Index: t/meta.t =================================================================== --- t/meta.t (revision 0) +++ t/meta.t (revision 0) @@ -0,0 +1,29 @@ +use strict; +use warnings; +use Test::More tests => 5; +use MooseX::Adopt::Class::Accessor::Fast; +{ + package TestPackage; + use Moose; + with 'MooseX::Emulate::Class::Accessor::Fast'; + __PACKAGE__->mk_accessors(qw/ normal /); + __PACKAGE__->meta->make_immutable; +} +{ + package TestPackage::SubClass; + use base qw/TestPackage/; + __PACKAGE__->mk_accessors(qw/ meta /); +} + +my $i = TestPackage::SubClass->new({ normal => 42, meta => 66 }); + +# 1,2 +is $i->normal, 42, 'normal accessor read value from constructor'; +$i->normal(2); +is $i->normal, 2, 'normal accessor read set value'; + +# 3,4 +is $i->meta, 66, 'meta accessor read value from constructor'; +$i->meta(9); +is $i->meta, 9, 'meta accessor read set value'; +