X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F036-with-method-alias.t;fp=t%2F036-with-method-alias.t;h=0000000000000000000000000000000000000000;hb=920139b3efca66d2caeeef306c97fa0da62c6b73;hp=9d0ca72dcc2ca04e102a220cab67387bdde0f897;hpb=b644ef5d28f6076859080482d8b44727c1410e1c;p=gitmo%2FMouse.git

diff --git a/t/036-with-method-alias.t b/t/036-with-method-alias.t
deleted file mode 100644
index 9d0ca72..0000000
--- a/t/036-with-method-alias.t
+++ /dev/null
@@ -1,45 +0,0 @@
-use strict;
-use warnings;
-use Test::More tests => 6;
-
-{
-    package Animal;
-    use Mouse::Role;
-    sub eat { 'delicious' }
-}
-
-{
-    package Cat;
-    use Mouse::Role;
-    with 'Animal', {
-        -alias    => { eat => 'drink' },
-        -excludes => [qw(eat)],
-    };
-    sub eat { 'good!' }
-}
-
-{
-    package Tama;
-    use Mouse;
-    with 'Cat';
-}
-
-{
-    package Dog;
-    use Mouse;
-    with 'Animal', {
-        -alias    => { eat => 'drink' },
-    };
-}
-
-ok(Dog->can('eat'));
-ok(Dog->can('drink'));
-
-my $d = Dog->new();
-is($d->drink(), 'delicious');
-is($d->eat(),   'delicious');
-
-my $t = Tama->new;
-is $t->drink(), 'delicious';
-is $t->eat(),    'good!';
-