X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F010_basic_json.t;h=a410b139273c1e3db8dbf242979dde6a037b1af1;hb=7aac8ce996cd654b8a8eeb159b54a1853a079938;hp=5a93cc53a4be44ec8e47d51afcf75d62f4c6f55b;hpb=72a40e08957c306803a6aa0049add5a174c246be;p=gitmo%2FMooseX-Storage.git diff --git a/t/010_basic_json.t b/t/010_basic_json.t index 5a93cc5..a410b13 100644 --- a/t/010_basic_json.t +++ b/t/010_basic_json.t @@ -38,22 +38,23 @@ BEGIN { object => Foo->new( number => 2 ), ); isa_ok( $foo, 'Foo' ); - + my $json = $foo->freeze; - + is_valid_json($json, '.. this is valid JSON'); - + is_json( $json, - '{"array":[1,2,3,4,5,6,7,8,9,10],"hash":{"6":null,"3":null,"7":null,"9":null,"2":null,"8":null,"1":null,"4":null,"10":null,"5":null},"float":10.5,"object":{"number":2,"__CLASS__":"Foo"},"number":10,"__CLASS__":"Foo","string":"foo"}', +'{"array":[1,2,3,4,5,6,7,8,9,10],"hash":{"6":null,"3":null,"7":null,"9":null,"2":null,"8":null,"1":null,"4":null,"10":null,"5":null},"float":10.5,"object":{"number":2,"__CLASS__":"Foo"},"number":10,"__CLASS__":"Foo","string":"foo"}', '... got the right JSON' ); } { - my $foo = Foo->thaw( - '{"array":[1,2,3,4,5,6,7,8,9,10],"hash":{"6":null,"3":null,"7":null,"9":null,"2":null,"8":null,"1":null,"4":null,"10":null,"5":null},"float":10.5,"object":{"number":2,"__CLASS__":"Foo"},"number":10,"__CLASS__":"Foo","string":"foo"}' - ); + my $foo = + Foo->thaw( +'{"array":[1,2,3,4,5,6,7,8,9,10],"hash":{"6":null,"3":null,"7":null,"9":null,"2":null,"8":null,"1":null,"4":null,"10":null,"5":null},"float":10.5,"object":{"number":2,"__CLASS__":"Foo"},"number":10,"__CLASS__":"Foo","string":"foo"}' + ); isa_ok( $foo, 'Foo' ); is( $foo->number, 10, '... got the right number' );