X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F005-extends.t;fp=t%2F005-extends.t;h=0000000000000000000000000000000000000000;hb=920139b3efca66d2caeeef306c97fa0da62c6b73;hp=31d7d24508c6fa8945cccc8e30f5bda16e1a3659;hpb=b644ef5d28f6076859080482d8b44727c1410e1c;p=gitmo%2FMouse.git diff --git a/t/005-extends.t b/t/005-extends.t deleted file mode 100644 index 31d7d24..0000000 --- a/t/005-extends.t +++ /dev/null @@ -1,39 +0,0 @@ -#!/usr/bin/env perl -use strict; -use warnings; -use Test::More tests => 7; -use lib 't/lib'; - -do { - package Class; - use Mouse; - - package Child; - use Mouse; - extends 'Class'; - - package Mouse::TestClass; - use Mouse; - extends 'Unsweetened'; - - sub mouse { 1 } -}; - -can_ok(Child => 'new'); - -my $child = Child->new; - -isa_ok($child => 'Child'); -isa_ok($child => 'Class'); -isa_ok($child => 'Mouse::Object'); - -can_ok('Mouse::TestClass' => qw(mouse unsweetened)); - -eval " - package Child; - use Mouse; -"; - -isa_ok($child => 'Class'); -isa_ok($child => 'Mouse::Object'); -