X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=xt%2Fmoo-does-moose-role.t;fp=xt%2Fmoo-does-moose-role.t;h=b995e44fd2ae1b4e64bfd949d686e612b34aebf6;hb=4055038d2a1b634c49ffbda0c25b460dd2c6c561;hp=8811bfddb1c5a16044f0078f1bd1c750f7e3a34f;hpb=92f0702e452af6b823a40c4ff19f747698112c5d;p=gitmo%2FMoo.git

diff --git a/xt/moo-does-moose-role.t b/xt/moo-does-moose-role.t
index 8811bfd..b995e44 100644
--- a/xt/moo-does-moose-role.t
+++ b/xt/moo-does-moose-role.t
@@ -279,5 +279,13 @@ is exception {
   with qw(Splat NeedTrap);
 }, undef, 'requires satisfied by Moose attribute composed at the same time';
 
+{
+  package HasMonkey;
+  use Moo;
+  sub monkey {}
+}
+is exception {
+  Moo::Role->create_class_with_roles('HasMonkey', 'Splat', 'NeedTrap');
+}, undef, ' ... and when created by create_class_with_roles';
 
 done_testing;