4 use Test::More tests => 8;
8 use_ok('MooseX::Storage');
19 has 'number' => ( is => 'ro', isa => 'Int', default => 42 );
20 has 'string' => ( is => 'ro', isa => 'Str', default => "true" );
21 has 'boolean' => ( is => 'ro', isa => 'Bool', default => 1 );
30 isa_ok( $foo, 'Foo' );
32 is($foo->boolean, 0, '... got the right boolean value');
42 '... got the right frozen class'
47 my $foo = Foo->unpack(
55 isa_ok( $foo, 'Foo' );
57 is( $foo->number, 0, '... got the right number' );
58 is( $foo->string, '', '... got the right string' );
59 ok( !$foo->boolean, '... got the right boolean' );