t/050_basic_storable.t

   1 $|++;
   2 use strict;
   3 use warnings;
   4
   5 use Test::More tests => 11;
   6 use Test::Deep;
   7 use Storable;
   8
   9 BEGIN {
  10     use_ok('MooseX::Storage');
  11 }
  12
  13 {
  14
  15     package Foo;
  16     use Moose;
  17     use MooseX::Storage;
  18
  19     with Storage( 'format' => 'Storable' );
  20
  21     has 'number' => ( is => 'ro', isa => 'Int' );
  22     has 'string' => ( is => 'ro', isa => 'Str' );
  23     has 'float'  => ( is => 'ro', isa => 'Num' );
  24     has 'array'  => ( is => 'ro', isa => 'ArrayRef' );
  25     has 'hash'   => ( is => 'ro', isa => 'HashRef' );
  26     has 'object' => ( is => 'ro', isa => 'Object' );
  27 }
  28
  29 {
  30     my $foo = Foo->new(
  31         number => 10,
  32         string => 'foo',
  33         float  => 10.5,
  34         array  => [ 1 .. 10 ],
  35         hash   => { map { $_ => undef } ( 1 .. 10 ) },
  36         object => Foo->new( number => 2 ),
  37     );
  38     isa_ok( $foo, 'Foo' );
  39
  40     my $stored = $foo->freeze;
  41
  42     my $struct = Storable::thaw($stored);
  43     cmp_deeply(
  44         $struct,
  45         {
  46             '__CLASS__' => 'Foo',
  47             'float'     => 10.5,
  48             'number'    => 10,
  49             'string'    => 'foo',
  50             'array'     => [ 1 .. 10],
  51             'hash'      => { map { $_ => undef } 1 .. 10 },
  52             'object'    => {
  53                 '__CLASS__' => 'Foo',
  54                 'number' => 2
  55             },
  56         },
  57         '... got the data struct we expected'
  58     );
  59 }
  60
  61 {
  62     my $stored = Storable::nfreeze({
  63         '__CLASS__' => 'Foo',
  64         'float'     => 10.5,
  65         'number'    => 10,
  66         'string'    => 'foo',
  67         'array'     => [ 1 .. 10],
  68         'hash'      => { map { $_ => undef } 1 .. 10 },
  69         'object'    => {
  70             '__CLASS__' => 'Foo',
  71             'number' => 2
  72         },
  73     });
  74
  75     my $foo = Foo->thaw($stored);
  76     isa_ok( $foo, 'Foo' );
  77
  78     is( $foo->number, 10,    '... got the right number' );
  79     is( $foo->string, 'foo', '... got the right string' );
  80     is( $foo->float,  10.5,  '... got the right float' );
  81     cmp_deeply( $foo->array, [ 1 .. 10 ], '... got the right array' );
  82     cmp_deeply(
  83         $foo->hash,
  84         { map { $_ => undef } ( 1 .. 10 ) },
  85         '... got the right hash'
  86     );
  87
  88     isa_ok( $foo->object, 'Foo' );
  89     is( $foo->object->number, 2,
  90         '... got the right number (in the embedded object)' );
  91 }
  92