X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F050_metaclasses%2F017_use_base_of_moose.t;h=b8962bd4e677b714573ad53b0942d21d773d75f8;hb=ca8e67d622c1a14bee4933ad64b1e465c5d63766;hp=2b68fd3b5aa7b0d14732f6c91b29b759b69a44ce;hpb=76768b64003a4c56e3bc59deb3e3a465fc2841da;p=gitmo%2FMouse.git diff --git a/t/050_metaclasses/017_use_base_of_moose.t b/t/050_metaclasses/017_use_base_of_moose.t index 2b68fd3..b8962bd 100644 --- a/t/050_metaclasses/017_use_base_of_moose.t +++ b/t/050_metaclasses/017_use_base_of_moose.t @@ -9,11 +9,13 @@ use Test::Exception; { package NoOpTrait; use Mouse::Role; + + } { package Parent; - use Mouse -traits => 'NoOpTrait'; + use Mouse "-traits" => 'NoOpTrait'; has attr => ( is => 'rw', @@ -25,12 +27,11 @@ use Test::Exception; package Child; use base 'Parent'; } - is(Child->meta->name, 'Child', "correct metaclass name"); - my $child = Child->new(attr => "ibute"); ok($child, "constructor works"); + is($child->attr, "ibute", "getter inherited properly"); $child->attr("ition");