inhale Mouse

[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
index e7ac1a0..ac17d30 100644 (file)
--- a/xt/moo-roles-into-moose-class.t
+++ b/xt/moo-roles-into-moose-class.t
@@ -1,15 +1,39 @@
 use strict;
+use warnings;
 use Test::More;
+
 {
     package Foo;
     use Moo::Role;
-    use namespace::autoclean;
+    # if we autoclean here there's nothing left and then load_class tries
+    # to require Foo during Moose application and everything breaks.
 }
 {
     package Bar;
     use Moo::Role;
     use namespace::autoclean;
+
+    has attr => (
+        is => 'ro'
+    );
+
+    sub thing {}
+}
+{
+    package Baz;
+    use Moose;
+    no Moose;
+
+    ::ok(!__PACKAGE__->can('has'), 'No has function after no Moose;');
+    Moose::with('Baz', 'Bar');
 }
+
+::is(Baz->can('thing'), Bar->can('thing'), 'Role copies method correctly');
+::ok(Baz->can('attr'), 'Attr accessor correct');
+::ok(!Bar->can('has'), 'Moo::Role sugar removed by autoclean');
+::ok(!Bar->can('with'), 'Role::Tiny sugar removed by autoclean');
+::ok(!Baz->can('has'), 'Sugar not copied');
+
 {
     package Bax;
     use Moose;