X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F103_io_storable_file_custom.t;h=88093b81cb9eaf87af3cb3152a8861b29bdddbcc;hb=c2dae5d88280be6f80857e79194f092298f88b36;hp=f87148b8b6de906495cc3e781232082133072c5f;hpb=81a84db6ebe5ec540d0035fc6d1104cc49c81e25;p=gitmo%2FMooseX-Storage.git diff --git a/t/103_io_storable_file_custom.t b/t/103_io_storable_file_custom.t index f87148b..88093b8 100644 --- a/t/103_io_storable_file_custom.t +++ b/t/103_io_storable_file_custom.t @@ -16,15 +16,15 @@ BEGIN { package Foo; use Moose; use MooseX::Storage; - + with Storage(io => 'StorableFile'); - + has 'number' => (is => 'ro', isa => 'Int'); has 'string' => (is => 'rw', isa => 'Str'); - has 'float' => (is => 'ro', isa => 'Num'); + has 'float' => (is => 'ro', isa => 'Num'); has 'array' => (is => 'ro', isa => 'ArrayRef'); - has 'hash' => (is => 'ro', isa => 'HashRef'); - has 'object' => (is => 'ro', isa => 'Object'); + has 'hash' => (is => 'ro', isa => 'HashRef'); + has 'object' => (is => 'ro', isa => 'Object'); ## add some custom freeze/thaw hooks here ... @@ -58,7 +58,7 @@ my $file = catfile($dir,'temp.storable'); isa_ok($foo, 'Foo'); $foo->store($file); - + # check our custom freeze hook fired ... my $data = Storable::retrieve($file); cmp_deeply( @@ -67,17 +67,17 @@ my $file = catfile($dir,'temp.storable'); '__CLASS__' => 'Foo', 'float' => 10.5, 'number' => 10, - 'string' => 'HELLO WORLD', + 'string' => 'HELLO WORLD', 'array' => [ 1 .. 10], - 'hash' => { map { $_ => undef } 1 .. 10 }, + 'hash' => { map { $_ => undef } 1 .. 10 }, 'object' => { '__CLASS__' => 'Foo', 'number' => 2 }, }, '... got the data struct we expected' - ); - + ); + } {