Revert most of the conversion to Test::Fatal so we can redo it

[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 825dfd7..1c8003b 100644 (file)
--- a/t/010_basics/013_create.t
+++ b/t/010_basics/013_create.t
@@ -4,7 +4,7 @@ use strict;
 use warnings;
 
 use Test::More;
-use Test::Fatal;
+use Test::Exception;
 
 {
     package Class;
@@ -24,13 +24,13 @@ use Test::Fatal;
 
 my $new_class;
 
-ok ! exception {
+lives_ok {
     $new_class = Moose::Meta::Class->create(
         'Class::WithFoo',
         superclasses => ['Class'],
         roles        => ['Foo'],
     );
-}, 'creating lives';
+} 'creating lives';
 ok $new_class;
 
 my $with_foo = Class::WithFoo->new;
@@ -38,23 +38,23 @@ my $with_foo = Class::WithFoo->new;
 ok $with_foo->foo_role_applied;
 isa_ok $with_foo, 'Class', '$with_foo';
 
-like exception {
+throws_ok {
     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";
 
-ok exception {
+dies_ok {
     Moose::Meta::Class->create(
         'Continuing::To::Fail',
         superclasses => ['Class'],
         roles        => ['Foo', 'Conflicts::With::Foo'],
     );
-}, 'conflicting roles == death';
+} 'conflicting roles == death';
 
 # XXX: Continuing::To::Fail gets created anyway