piss off. -- mst

[gitmo/Moo.git] / t / no-moo.t

diff --git a/t/no-moo.t b/t/no-moo.t
new file mode 100644 (file)
index 0000000..c857ef4
--- /dev/null
+++ b/t/no-moo.t
@@ -0,0 +1,19 @@
+use strictures 1;
+use Test::More;
+
+{
+  package Spoon;
+
+  use Moo;
+
+  no warnings 'redefine';
+
+  sub has { "has!" }
+
+  no Moo;
+}
+
+ok(!Spoon->can('extends'), 'extends cleaned');
+is(Spoon->has, "has!", 'has left alone');
+
+done_testing;