X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F001_mouse%2F005-extends.t;fp=t%2F001_mouse%2F005-extends.t;h=0000000000000000000000000000000000000000;hb=28e04346e8728a41dee8d7b2fce1cf00047c6459;hp=31d7d24508c6fa8945cccc8e30f5bda16e1a3659;hpb=0c5c3648c1cd9e2fb5ce6446a0f81fc944cf0829;p=gitmo%2FMouse.git diff --git a/t/001_mouse/005-extends.t b/t/001_mouse/005-extends.t deleted file mode 100644 index 31d7d24..0000000 --- a/t/001_mouse/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'); -