Clean the test up a little to use Test::Exception

[gitmo/Moose.git] / t / 030_roles / 031_roles_applied_in_create.t

diff --git a/t/030_roles/031_roles_applied_in_create.t b/t/030_roles/031_roles_applied_in_create.t
index 752f954..3f052f9 100644 (file)
--- a/t/030_roles/031_roles_applied_in_create.t
+++ b/t/030_roles/031_roles_applied_in_create.t
@@ -3,21 +3,24 @@
 use strict;
 use warnings;
 
-use Test::More;
+use Test::More tests => 1;
 use Test::Exception;
 use Moose::Meta::Class;
 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 passes if we inline the role definitions in this file.
+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;
-