X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F006-unimport.t;h=fa7259b89698e9370797d1552ab2ec9da6d6c927;hb=faa45e546ff56d48fbd9fec43d1fc014520ca0e3;hp=52454745e1553af24dd8a267f1af1729452dcc01;hpb=c3398f5bd45f2851b7cd40ca9823bcf7d2378469;p=gitmo%2FMouse.git

diff --git a/t/006-unimport.t b/t/006-unimport.t
index 5245474..fa7259b 100644
--- a/t/006-unimport.t
+++ b/t/006-unimport.t
@@ -1,7 +1,7 @@
 #!/usr/bin/env perl
 use strict;
 use warnings;
-use Test::More tests => 2;
+use Test::More tests => 5;
 
 do {
     package Class;
@@ -19,3 +19,19 @@ do {
 ok(!Child->can('extends'), "extends keyword is unimported");
 ok(!Class->can('extends'), "extends keyword is unimported");
 
+do {
+    package Foo;
+    use Mouse 'has';
+
+    sub extends { "good" }
+
+    no Mouse;
+};
+
+ok(!Foo->can('has'), "has keyword is unimported");
+TODO: {
+    local $TODO = "fixing this may require a Sub::Identify dep";
+    ok(Foo->can('extends'), "extends method is NOT unimported");
+    is(eval { Foo->extends }, "good", "extends method is ours, not the extends keyword");
+};
+