role application works for a simple case

[gitmo/Moo.git] / xt / handle_moose.t

diff --git a/xt/handle_moose.t b/xt/handle_moose.t
index b89b6b3..75400e5 100644 (file)
--- a/xt/handle_moose.t
+++ b/xt/handle_moose.t
@@ -14,4 +14,14 @@ is($attr->get_read_method_ref->body, Foo->can('one'), 'Right method');
 
 is(Foo->new(one => 1, THREE => 3)->one, 1, 'Accessor still works');
 
+$meta = Moose::Meta::Class->initialize('Spoon');
+
+$meta->superclasses('Moose::Object');
+
+Moose::Util::apply_all_roles($meta, 'Bar');
+
+my $spoon = Spoon->new(four => 4);
+
+is($spoon->four, 4, 'Role application ok');
+
 done_testing;