Redid conversion to Test::Fatal

[gitmo/Moose.git] / t / 010_basics / 013_create.t

diff --git a/t/010_basics/013_create.t b/t/010_basics/013_create.t
index 8fbafe7..e3bdb3a 100644 (file)
--- a/t/010_basics/013_create.t
+++ b/t/010_basics/013_create.t
@@ -3,23 +3,17 @@
 use strict;
 use warnings;
 
-use Test::More tests => 10;
-use Test::Exception;
+use Test::More;
+use Test::Fatal;
 
-BEGIN {
-    use_ok('Moose::Meta::Class');
-    use_ok('Moose');
-    use_ok('Moose::Role');
-}
-
-{ 
+{
     package Class;
     use Moose;
-    
+
     package Foo;
     use Moose::Role;
     sub foo_role_applied { 1 }
-    
+
     package Conflicts::With::Foo;
     use Moose::Role;
     sub foo_role_applied { 0 }
@@ -30,13 +24,13 @@ BEGIN {
 
 my $new_class;
 
-lives_ok {
+is( exception {
     $new_class = Moose::Meta::Class->create(
         'Class::WithFoo',
         superclasses => ['Class'],
         roles        => ['Foo'],
     );
-} 'creating lives';
+}, undef, 'creating lives' );
 ok $new_class;
 
 my $with_foo = Class::WithFoo->new;
@@ -44,23 +38,24 @@ my $with_foo = Class::WithFoo->new;
 ok $with_foo->foo_role_applied;
 isa_ok $with_foo, 'Class', '$with_foo';
 
-throws_ok {
+like( exception {
     Moose::Meta::Class->create(
         'Made::Of::Fail',
         superclasses => ['Class'],
         roles => 'Foo', # "oops"
     );
-} qr/You must pass an ARRAY ref of roles/;
+}, qr/You must pass an ARRAY ref of roles/ );
 
 ok !Made::Of::Fail->isa('UNIVERSAL'), "did not create Made::Of::Fail";
 
-dies_ok {
+isnt( exception {
     Moose::Meta::Class->create(
         'Continuing::To::Fail',
         superclasses => ['Class'],
         roles        => ['Foo', 'Conflicts::With::Foo'],
     );
-} 'conflicting roles == death';
+}, undef, 'conflicting roles == death' );
 
 # XXX: Continuing::To::Fail gets created anyway
 
+done_testing;