X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F030_roles%2F031_roles_applied_in_create.t;fp=t%2F030_roles%2F031_roles_applied_in_create.t;h=defad7d63635ca2ee79321d5d223b157b71fe9ed;hb=6719984210754e8d012ae678536f194c35000823;hp=0000000000000000000000000000000000000000;hpb=56a558f97f2da37b37db51a6a8ef7f923e84724e;p=gitmo%2FMouse.git

diff --git a/t/030_roles/031_roles_applied_in_create.t b/t/030_roles/031_roles_applied_in_create.t
new file mode 100644
index 0000000..defad7d
--- /dev/null
+++ b/t/030_roles/031_roles_applied_in_create.t
@@ -0,0 +1,27 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+
+use Test::More tests => 1;
+use Test::Exception;
+use Mouse::Meta::Class;
+use Mouse::Util;
+
+use lib 't/lib', 'lib';
+
+
+# Note that this test passed (pre svn #5543) if we inlined the role
+# definitions in this file, as it was very timing sensitive.
+lives_ok(
+    sub {
+        my $builder_meta = Mouse::Meta::Class->create(
+            'YATTA' => (
+                superclass => 'Mouse::Meta::Class',
+                roles      => [qw( Role::Interface Role::Child )],
+            )
+        );
+    },
+    'Create a new class with several roles'
+);
+