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

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

diff --git a/lib/Moose/Cookbook/Basics/Recipe5.pod b/lib/Moose/Cookbook/Basics/Recipe5.pod
index 45de2c4..d901d57 100644 (file)
--- a/lib/Moose/Cookbook/Basics/Recipe5.pod
+++ b/lib/Moose/Cookbook/Basics/Recipe5.pod
@@ -257,24 +257,24 @@ isa_ok( $r, 'Request' );
     is( $header4->content_type, 'application/pdf',
         '... got the right content type in the header' );
 
-    ok exception {
+    dies_ok {
         $r->headers('Foo');
-    },
+    }
     '... dies when it gets bad params';
 }
 
 {
     is( $r->protocol, undef, '... got nothing by default' );
 
-    ok ! exception {
+    lives_ok {
         $r->protocol('HTTP/1.0');
-    },
+    }
     '... set the protocol correctly';
     is( $r->protocol, 'HTTP/1.0', '... got nothing by default' );
 
-    ok exception {
+    dies_ok {
         $r->protocol('http/1.0');
-    },
+    }
     '... the protocol died with bar params correctly';
 }