6 use Test::More no_plan => 1;
9 use_ok('MooseX::Storage');
19 has 'baz' => (is => 'ro', isa => 'Int');
35 bars => [ map { Bar->new(baz => $_) } (1 .. 10) ]
37 isa_ok( $foo, 'Foo' );
52 '... got the right frozen class'
57 my $foo = Foo->unpack(
70 isa_ok( $foo, 'Foo' );
72 foreach my $i (1 .. scalar @{$foo->bars}) {
73 isa_ok($foo->bars->[$i - 1], 'Bar');
74 is($foo->bars->[$i - 1]->baz, $i, "... got the right baz ($i) in the Bar in Foo");