Convert all tests to done_testing.
[gitmo/Moose.git] / t / 030_roles / 031_roles_applied_in_create.t
index 752f954..10d698c 100644 (file)
@@ -10,14 +10,19 @@ use Moose::Util;
 
 use lib 't/lib', 'lib';
 
-plan tests => 1;
 
-my $builder_meta = Moose::Meta::Class->create(
-    'YATTA' => (
-        superclass => 'Moose::Meta::Class',
-        roles      => [ qw( Role::Interface Role::Child ) ],
-    )
+# 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 = Moose::Meta::Class->create(
+            'YATTA' => (
+                superclass => 'Moose::Meta::Class',
+                roles      => [qw( Role::Interface Role::Child )],
+            )
+        );
+    },
+    'Create a new class with several roles'
 );
 
-ok 1;
-
+done_testing;