From: Dave Rolsky <autarch@urth.org>
Date: Thu, 28 Aug 2008 14:43:53 +0000 (+0000)
Subject: Clean the test up a little to use Test::Exception
X-Git-Tag: 0.55_02~18
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=e33d8fa86cca0f3167f63e2a8fbbe9fd639f6319;p=gitmo%2FMoose.git

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

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
--- 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;
-