Moose::Meta::Role::create should honor "roles"

[gitmo/Moose.git] / t / roles / create_role.t

diff --git a/t/roles/create_role.t b/t/roles/create_role.t
index 204c66d..3963dd1 100644 (file)
--- a/t/roles/create_role.t
+++ b/t/roles/create_role.t
@@ -30,4 +30,11 @@ ok(!$visored->is_worn, "method was consumed");
 
 ok(!$role->is_anon_role, "the role is not anonymous");
 
+my $composed_role = Moose::Meta::Role->create(
+    'MyItem::Role::Equipment2',
+    roles => [ $role ],
+);
+
+ok($composed_role->does_role('MyItem::Role::Equipment2'), "Role composed into role");
+
 done_testing;