4 use Test::More tests => 12;
17 reader => 'get_at_type',
33 ok( Foo->meta->has_attribute($_), "Foo has '$_' attribute" )
34 for 'type', '@type', 'has spaces';
36 is( $foo->get_type, 1, q{'type' attribute default is 1} );
37 is( $foo->get_at_type, 2, q{'@type' attribute default is 1} );
38 is( $foo->get_hs, 42, q{'has spaces' attribute default is 42} );
40 Foo->meta->make_immutable, redo if Foo->meta->is_mutable;