Redid conversion to Test::Fatal

[gitmo/Moose.git] / lib / Moose / Cookbook / Basics / Recipe2.pod

diff --git a/lib/Moose/Cookbook/Basics/Recipe2.pod b/lib/Moose/Cookbook/Basics/Recipe2.pod
index 9f1a4dd..abb50ec 100644 (file)
--- a/lib/Moose/Cookbook/Basics/Recipe2.pod
+++ b/lib/Moose/Cookbook/Basics/Recipe2.pod
@@ -236,10 +236,13 @@ my $savings_account;
     isa_ok( $savings_account, 'BankAccount' );
 
     is( $savings_account->balance, 250, '... got the right savings balance' );
-    lives_ok {
-        $savings_account->withdraw(50);
-    }
-    '... withdrew from savings successfully';
+    is(
+        exception {
+            $savings_account->withdraw(50);
+        },
+        undef,
+        '... withdrew from savings successfully'
+    );
     is( $savings_account->balance, 200,
         '... got the right savings balance after withdrawl' );
 
@@ -262,20 +265,26 @@ my $savings_account;
     is( $checking_account->balance, 100,
         '... got the right checkings balance' );
 
-    lives_ok {
-        $checking_account->withdraw(50);
-    }
-    '... withdrew from checking successfully';
+    is(
+        exception {
+            $checking_account->withdraw(50);
+        },
+        undef,
+        '... withdrew from checking successfully'
+    );
     is( $checking_account->balance, 50,
         '... got the right checkings balance after withdrawl' );
     is( $savings_account->balance, 350,
         '... got the right savings balance after checking withdrawl (no overdraft)'
     );
 
-    lives_ok {
-        $checking_account->withdraw(200);
-    }
-    '... withdrew from checking successfully';
+    is(
+        exception {
+            $checking_account->withdraw(200);
+        },
+        undef,
+        '... withdrew from checking successfully'
+    );
     is( $checking_account->balance, 0,
         '... got the right checkings balance after withdrawl' );
     is( $savings_account->balance, 200,
@@ -297,17 +306,23 @@ my $savings_account;
     is( $checking_account->balance, 100,
         '... got the right checkings balance' );
 
-    lives_ok {
-        $checking_account->withdraw(50);
-    }
-    '... withdrew from checking successfully';
+    is(
+        exception {
+            $checking_account->withdraw(50);
+        },
+        undef,
+        '... withdrew from checking successfully'
+    );
     is( $checking_account->balance, 50,
         '... got the right checkings balance after withdrawl' );
 
-    dies_ok {
-        $checking_account->withdraw(200);
-    }
-    '... withdrawl failed due to attempted overdraft';
+    isnt(
+        exception {
+            $checking_account->withdraw(200);
+        },
+        undef,
+        '... withdrawal failed due to attempted overdraft'
+    );
     is( $checking_account->balance, 50,
         '... got the right checkings balance after withdrawl failure' );
 }