X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F036-with-method-alias.t;h=9d0ca72dcc2ca04e102a220cab67387bdde0f897;hb=8cbcbb47d0f02077d07873c553494a884d9c085f;hp=bb77df57c808b84b4d4569911a329ef51c5703c3;hpb=21498b08feb4f9e5f74670eafe293adcbf3cdd29;p=gitmo%2FMouse.git

diff --git a/t/036-with-method-alias.t b/t/036-with-method-alias.t
index bb77df5..9d0ca72 100644
--- a/t/036-with-method-alias.t
+++ b/t/036-with-method-alias.t
@@ -1,6 +1,6 @@
 use strict;
 use warnings;
-use Test::More tests => 5;
+use Test::More tests => 6;
 
 {
     package Animal;
@@ -12,7 +12,8 @@ use Test::More tests => 5;
     package Cat;
     use Mouse::Role;
     with 'Animal', {
-        alias => { eat => 'drink' },
+        -alias    => { eat => 'drink' },
+        -excludes => [qw(eat)],
     };
     sub eat { 'good!' }
 }
@@ -27,7 +28,7 @@ use Test::More tests => 5;
     package Dog;
     use Mouse;
     with 'Animal', {
-        alias => { eat => 'drink' }
+        -alias    => { eat => 'drink' },
     };
 }
 
@@ -36,6 +37,7 @@ ok(Dog->can('drink'));
 
 my $d = Dog->new();
 is($d->drink(), 'delicious');
+is($d->eat(),   'delicious');
 
 my $t = Tama->new;
 is $t->drink(), 'delicious';