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

[gitmo/Class-MOP.git] / t / 017_add_method_modifier.t

diff --git a/t/017_add_method_modifier.t b/t/017_add_method_modifier.t
index a9c7945..97e9a62 100644 (file)
--- a/t/017_add_method_modifier.t
+++ b/t/017_add_method_modifier.t
@@ -2,7 +2,7 @@ use strict;
 use warnings;
 
 use Test::More;
-use Test::Exception;
+use Test::Fatal;
 
 use Class::MOP;
 
@@ -65,11 +65,11 @@ use Class::MOP;
         }
     );
 
-    ::throws_ok(
+    ::like (::exception(
         sub {
             CheckingAccount->meta->add_before_method_modifier(
                 'does_not_exist' => sub { } );
-        },
+        }),
         qr/\QThe method 'does_not_exist' was not found in the inheritance hierarchy for CheckingAccount/
     );
 
@@ -90,15 +90,15 @@ my $savings_account = BankAccount->new( balance => 250 );
 isa_ok( $savings_account, 'BankAccount' );
 
 is( $savings_account->balance, 250, '... got the right savings balance' );
-lives_ok {
+ok ! exception {
     $savings_account->withdraw(50);
-}
+},
 '... withdrew from savings successfully';
 is( $savings_account->balance, 200,
     '... got the right savings balance after withdrawal' );
-dies_ok {
+ok exception {
     $savings_account->withdraw(250);
-}
+},
 '... could not withdraw from savings successfully';
 
 $savings_account->deposit(150);
@@ -117,9 +117,9 @@ is( $checking_account->overdraft_account, $savings_account,
 
 is( $checking_account->balance, 100, '... got the right checkings balance' );
 
-lives_ok {
+ok ! exception {
     $checking_account->withdraw(50);
-}
+},
 '... withdrew from checking successfully';
 is( $checking_account->balance, 50,
     '... got the right checkings balance after withdrawal' );
@@ -127,9 +127,9 @@ is( $savings_account->balance, 350,
     '... got the right savings balance after checking withdrawal (no overdraft)'
 );
 
-lives_ok {
+ok ! exception {
     $checking_account->withdraw(200);
-}
+},
 '... withdrew from checking successfully';
 is( $checking_account->balance, 0,
     '... got the right checkings balance after withdrawal' );