test for use Moo after no Moo

diff --git a/t/use-after-no.t b/t/use-after-no.t
new file mode 100644 (file)
index 0000000..5ced7df
--- /dev/null
+++ b/t/use-after-no.t
@@ -0,0 +1,40 @@
+use strictures 1;
+use Test::More;
+
+ok eval q{
+  package Spoon;
+  use Moo;
+
+  has foo => ( is => 'ro' );
+
+  no Moo;
+
+  use Moo;
+
+  has foo2 => ( is => 'ro' );
+
+  no Moo;
+
+  1;
+}, "subs imported on 'use Moo;' after 'no Moo;'"
+    or diag $@;
+
+ok eval q{
+  package Roller;
+  use Moo;
+
+  has foo => ( is => 'ro' );
+
+  no Moo;
+
+  use Moo;
+
+  has foo2 => ( is => 'ro' );
+
+  no Moo;
+
+  1;
+}, "subs imported on 'use Moo::Role;' after 'no Moo::Role;'"
+    or diag $@;
+
+done_testing;