From: Dave Rolsky 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; -