X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F053-extends-meta.t;h=538aba7ce2447bda40ad12276cdb98cdfac9483b;hb=596dcb263138e513428bb4af02d9be3505948a03;hp=76c9753531cc86d41ce7d3ffb75f36b3441b6fd7;hpb=8d40c3b80e6e4cebdf951d289d6b5d33b7641338;p=gitmo%2FMouse.git diff --git a/t/053-extends-meta.t b/t/053-extends-meta.t index 76c9753..538aba7 100755 --- a/t/053-extends-meta.t +++ b/t/053-extends-meta.t @@ -1,7 +1,7 @@ #!/usr/bin/env perl use strict; use warnings; -use Test::More tests => 12; +use Test::More tests => 14; use Test::Exception; { package My::Meta::Class; @@ -32,6 +32,7 @@ use Test::Exception; my $meta = My::Meta::Class->initialize('Foo'); isa_ok $meta, 'My::Meta::Class'; +isa_ok $meta->meta, 'Mouse::Meta::Class'; can_ok $meta, qw(name my_class_attr); is $meta->name, 'Foo'; lives_and{ @@ -40,6 +41,7 @@ lives_and{ $meta = My::Meta::Role->initialize('Bar'); isa_ok $meta, 'My::Meta::Role'; +isa_ok $meta->meta, 'Mouse::Meta::Class'; can_ok $meta, qw(name my_role_attr); is $meta->name, 'Bar'; lives_and{