Composing 2 moo roles into a Moose class is broken

[gitmo/Moo.git] / xt / moo-roles-into-moose-class.t

diff --git a/xt/moo-roles-into-moose-class.t b/xt/moo-roles-into-moose-class.t
new file mode 100644 (file)
index 0000000..e7ac1a0
--- /dev/null
+++ b/xt/moo-roles-into-moose-class.t
@@ -0,0 +1,24 @@
+use strict;
+use Test::More;
+{
+    package Foo;
+    use Moo::Role;
+    use namespace::autoclean;
+}
+{
+    package Bar;
+    use Moo::Role;
+    use namespace::autoclean;
+}
+{
+    package Bax;
+    use Moose;
+    with qw/
+        Foo
+        Bar
+    /;
+}
+
+ok 1;
+done_testing;
+