X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F005-extends.t;h=d3d6af16e6c524968993eb282ea68b1de5cd9458;hb=085c18e99e18eb6715c7d294603ff28bcbd6c4e7;hp=c84fd0064ad203ff65831454fed2b02b4fa0a50a;hpb=c3398f5bd45f2851b7cd40ca9823bcf7d2378469;p=gitmo%2FMouse.git diff --git a/t/005-extends.t b/t/005-extends.t index c84fd00..d3d6af1 100644 --- a/t/005-extends.t +++ b/t/005-extends.t @@ -1,7 +1,7 @@ #!/usr/bin/env perl use strict; use warnings; -use Test::More tests => 5; +use Test::More tests => 7; use lib 't/lib'; do { @@ -29,3 +29,11 @@ isa_ok($child => 'Mouse::Object'); can_ok('Mouse::TestClass' => qw(mouse antimouse)); +eval " + package Child; + use Mouse; +"; + +isa_ok($child => 'Class'); +isa_ok($child => 'Mouse::Object'); +