view release on metacpan or  search on metacpan

t/20entities.t  view on Meta::CPAN

    my $item2 = item();
    diag( join(" | ", @{$args} ) );
    $item2->department( @{$args} );
    is_deeply( $item2->struct, $item->struct );    
}

__END__
    # TODO

    # Check that strings are encoded in UTF-8
    my %unicode = (
        "\xE4" => "\xC3\xA4"
    );
    foreach my $s (keys %unicode) {
        $e = $class->new( content => $s );
        is ( $e->json, '{"string":"'. $unicode{$s} . '"}', "UTF-8" );
    }