6 use Test::More tests => 8;
10 use_ok('MooseX::Storage');
21 has 'number' => ( is => 'ro', isa => 'Int', default => 42 );
22 has 'string' => ( is => 'ro', isa => 'Str', default => "true" );
23 has 'boolean' => ( is => 'ro', isa => 'Bool', default => 1 );
32 isa_ok( $foo, 'Foo' );
34 is($foo->boolean, 0, '... got the right boolean value');
44 '... got the right frozen class'
49 my $foo = Foo->unpack(
57 isa_ok( $foo, 'Foo' );
59 is( $foo->number, 0, '... got the right number' );
60 is( $foo->string, '', '... got the right string' );
61 ok( !$foo->boolean, '... got the right boolean' );