6 use Test::More tests => 7;
9 use_ok('MooseX::Storage');
20 has 'number' => ( is => 'ro', isa => 'Int', default => 42 );
21 has 'string' => ( is => 'ro', isa => 'Str', default => "true" );
22 has 'boolean' => ( is => 'ro', isa => 'Bool', default => 1 );
31 isa_ok( $foo, 'Foo' );
41 '... got the right frozen class'
46 my $foo = Foo->unpack(
54 isa_ok( $foo, 'Foo' );
56 is( $foo->number, 0, '... got the right number' );
57 is( $foo->string, '', '... got the right string' );
58 ok( !$foo->boolean, '... got the right boolean' );