Revert "convert all uses of Test::Exception to Test::Fatal."

[gitmo/Class-MOP.git] / t / 062_custom_instance.t

diff --git a/t/062_custom_instance.t b/t/062_custom_instance.t
index 0ec0c21..da03fdb 100644 (file)
--- a/t/062_custom_instance.t
+++ b/t/062_custom_instance.t
@@ -2,7 +2,7 @@
 use strict;
 use warnings;
 use Test::More;
-use Test::Fatal;
+use Test::Exception;
 
 use Class::MOP;
 
@@ -45,7 +45,7 @@ my $instance;
 }
 
 undef $instance;
-ok ! exception {
+lives_and {
     my $foo = Foo::Sub->new;
     isa_ok($foo, 'Foo');
     isa_ok($foo, 'Foo::Sub');
@@ -53,7 +53,7 @@ ok ! exception {
 };
 
 undef $instance;
-ok ! exception {
+lives_and {
     my $foo = Foo::Sub->new(foo => 'FOO');
     isa_ok($foo, 'Foo');
     isa_ok($foo, 'Foo::Sub');
@@ -62,7 +62,7 @@ ok ! exception {
 };
 
 undef $instance;
-ok ! exception {
+lives_and {
     my $foo = Foo::Sub->new(bar => 'bar');
     isa_ok($foo, 'Foo');
     isa_ok($foo, 'Foo::Sub');
@@ -71,7 +71,7 @@ ok ! exception {
 };
 
 undef $instance;
-ok ! exception {
+lives_and {
     my $foo = Foo::Sub->new(foo => 'FOO', bar => 'bar');
     isa_ok($foo, 'Foo');
     isa_ok($foo, 'Foo::Sub');
@@ -117,25 +117,25 @@ ok ! exception {
     );
 }
 
-like exception { BadFoo::Sub->new },
+throws_ok { BadFoo::Sub->new }
     qr/BadFoo=HASH.*is not a BadFoo::Sub/,
     "error with incorrect constructors";
 
 {
     my $meta = Class::MOP::Class->create('Really::Bad::Foo');
-    like exception {
+    throws_ok {
         $meta->new_object(__INSTANCE__ => (bless {}, 'Some::Other::Class'))
-    }, qr/Some::Other::Class=HASH.*is not a Really::Bad::Foo/,
-    "error with completely invalid class";
+    } qr/Some::Other::Class=HASH.*is not a Really::Bad::Foo/,
+      "error with completely invalid class";
 }
 
 {
     my $meta = Class::MOP::Class->create('Really::Bad::Foo::2');
     for my $invalid ('foo', 1, 0, '') {
-        like exception {
+        throws_ok {
             $meta->new_object(__INSTANCE__ => $invalid)
-        }, qr/The __INSTANCE__ parameter must be a blessed reference, not $invalid/,
-        "error with unblessed thing";
+        } qr/The __INSTANCE__ parameter must be a blessed reference, not $invalid/,
+          "error with unblessed thing";
     }
 }