X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F050_basic_storable.t;h=d659666b6356cd2ce8468229734f03c5f3aa339d;hb=19d8a777247d4816be278da681de598526eaf1f2;hp=bdf1e7d1f4ce505784c0950f438e16d2b50e349d;hpb=619ab942be0a8bd8f530c57ca5b0c8d833cdc89b;p=gitmo%2FMooseX-Storage.git diff --git a/t/050_basic_storable.t b/t/050_basic_storable.t index bdf1e7d..d659666 100644 --- a/t/050_basic_storable.t +++ b/t/050_basic_storable.t @@ -1,4 +1,3 @@ -#!/usr/bin/perl $|++; use strict; use warnings; @@ -37,7 +36,7 @@ BEGIN { object => Foo->new( number => 2 ), ); isa_ok( $foo, 'Foo' ); - + my $stored = $foo->freeze; my $struct = Storable::thaw($stored); @@ -47,9 +46,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 @@ -64,15 +63,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); isa_ok( $foo, 'Foo' );