X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F060_basic_deferred.t;fp=t%2F060_basic_deferred.t;h=b60b9bcdb29df3fe67705a03d93dbc648668b1a1;hb=766ab81f59db9f3087e0011112ff2e69133a85c5;hp=9be9b3a3db860beeb3b90904d40c7c8abe756579;hpb=11d44bb52ca8164d34774985af7b550cfd0c60a0;p=gitmo%2FMooseX-Storage.git diff --git a/t/060_basic_deferred.t b/t/060_basic_deferred.t index 9be9b3a..b60b9bc 100644 --- a/t/060_basic_deferred.t +++ b/t/060_basic_deferred.t @@ -9,10 +9,10 @@ use Storable; BEGIN { eval "use Test::JSON; use Test::YAML::Valid;"; - plan skip_all => "Test::JSON and Test::YAML::Valid are required for this test" if $@; + plan skip_all => "Test::JSON and Test::YAML::Valid are required for this test" if $@; eval "use JSON::Any"; - plan skip_all => "JSON::Any is required for this test" if $@; - plan tests => 33; + plan skip_all => "JSON::Any is required for this test" if $@; + plan tests => 33; use_ok('MooseX::Storage'); } @@ -57,7 +57,7 @@ BEGIN { { 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"}', - { 'format' => 'JSON' } + { 'format' => 'JSON' } ); isa_ok( $foo, 'Foo' ); @@ -86,7 +86,7 @@ BEGIN { object => Foo->new( number => 2 ), ); isa_ok( $foo, 'Foo' ); - + my $stored = $foo->freeze({ 'format' => 'Storable' }); my $struct = Storable::thaw($stored); @@ -96,9 +96,9 @@ BEGIN { '__CLASS__' => 'Foo', 'float' => 10.5, 'number' => 10, - 'string' => 'foo', + 'string' => 'foo', 'array' => [ 1 .. 10], - 'hash' => { map { $_ => undef } 1 .. 10 }, + 'hash' => { map { $_ => undef } 1 .. 10 }, 'object' => { '__CLASS__' => 'Foo', 'number' => 2 @@ -113,15 +113,15 @@ BEGIN { '__CLASS__' => 'Foo', 'float' => 10.5, 'number' => 10, - 'string' => 'foo', + 'string' => 'foo', 'array' => [ 1 .. 10], - 'hash' => { map { $_ => undef } 1 .. 10 }, + 'hash' => { map { $_ => undef } 1 .. 10 }, 'object' => { '__CLASS__' => 'Foo', 'number' => 2 }, }); - + my $foo = Foo->thaw($stored, { 'format' => 'Storable' }); isa_ok( $foo, 'Foo' ); @@ -157,9 +157,9 @@ BEGIN { is( $yaml, - q{--- + q{--- __CLASS__: Foo -array: +array: - 1 - 2 - 3 @@ -171,7 +171,7 @@ array: - 9 - 10 float: 10.5 -hash: +hash: 1: ~ 10: ~ 2: ~ @@ -183,7 +183,7 @@ hash: 8: ~ 9: ~ number: 10 -object: +object: __CLASS__: Foo number: 2 string: foo @@ -195,9 +195,9 @@ string: foo { my $foo = Foo->thaw( - q{--- + q{--- __CLASS__: Foo -array: +array: - 1 - 2 - 3 @@ -209,7 +209,7 @@ array: - 9 - 10 float: 10.5 -hash: +hash: 1: ~ 10: ~ 2: ~ @@ -221,7 +221,7 @@ hash: 8: ~ 9: ~ number: 10 -object: +object: __CLASS__: Foo number: 2 string: foo