Move t/*/t into t/001_mouse

[gitmo/Mouse.git] / t / 001_mouse / 006-unimport.t

diff --git a/t/001_mouse/006-unimport.t b/t/001_mouse/006-unimport.t
new file mode 100644 (file)
index 0000000..a3c74db
--- /dev/null
+++ b/t/001_mouse/006-unimport.t
@@ -0,0 +1,35 @@
+#!/usr/bin/env perl
+use strict;
+use warnings;
+use Test::More tests => 5;
+
+do {
+    package Class;
+    use Mouse;
+
+    no Mouse;
+
+    package Child;
+    use Mouse;
+    extends 'Class';
+
+    no Mouse;
+};
+
+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");
+
+ok(Foo->can('extends'), "extends method is NOT unimported");
+is(eval { Foo->extends }, "good", "extends method is ours, not the extends keyword");
+