X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F030_roles%2Ffailing%2F032_roles_and_method_cloning.t;h=2b4e615767f1525c3d421bf6fd837aed2057fc9a;hb=6cfa1e5e70616fb102915489c02d8347ffa912fb;hp=bc5950ae285497289bcfffe69602f1acf062315a;hpb=6719984210754e8d012ae678536f194c35000823;p=gitmo%2FMouse.git

diff --git a/t/030_roles/failing/032_roles_and_method_cloning.t b/t/030_roles/failing/032_roles_and_method_cloning.t
index bc5950a..2b4e615 100644
--- a/t/030_roles/failing/032_roles_and_method_cloning.t
+++ b/t/030_roles/failing/032_roles_and_method_cloning.t
@@ -3,14 +3,14 @@
 use strict;
 use warnings;
 
-use Test::More tests => 14;
+use Test::More tests => 17;
 
 
 {
     package Role::Foo;
     use Mouse::Role;
 
-    sub foo { }
+    sub foo { (caller(0))[3] }
 }
 
 {
@@ -70,3 +70,12 @@ use Test::More tests => 14;
     is( $meth->original_fully_qualified_name, 'Role::Foo::foo',
         'original fq name is Role::Foo::foo' );
 }
+
+isnt( ClassA->foo, "ClassB::foo", "ClassA::foo is not confused with ClassB::foo");
+
+{
+    local $TODO =
+      "multiply-consumed roles' subs take on their most recently used name";
+    is( ClassB->foo, 'ClassB::foo', 'ClassB::foo knows its name' );
+    is( ClassA->foo, 'ClassA::foo', 'ClassA::foo knows its name' );
+}