X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F100_bugs%2F005_inline_reader_bug.t;h=7500dcdcb76523547e67aa5ee4e0fcb42987e47c;hb=d7dfe605d8f0ce4373a89a12d2849fad8ed051c1;hp=2e6775023346c0daf9c4a436862b925522315350;hpb=7ff5653479c2bfc0794635f7fbade9bfe7bb2381;p=gitmo%2FMoose.git

diff --git a/t/100_bugs/005_inline_reader_bug.t b/t/100_bugs/005_inline_reader_bug.t
index 2e67750..7500dcd 100644
--- a/t/100_bugs/005_inline_reader_bug.t
+++ b/t/100_bugs/005_inline_reader_bug.t
@@ -3,14 +3,13 @@
 use strict;
 use warnings;
 
-use Test::More tests => 1;
-use Test::Exception;
-
+use Test::More;
+use Test::Fatal;
 
 
 =pod
 
-This was a bug, but it is fixed now. This 
+This was a bug, but it is fixed now. This
 test makes sure it does not creep back in.
 
 =cut
@@ -18,14 +17,15 @@ test makes sure it does not creep back in.
 {
     package Foo;
     use Moose;
-    
-    ::lives_ok {
+
+    ::is( ::exception {
         has 'bar' => (
-            is      => 'ro', 
+            is      => 'ro',
             isa     => 'Int',
             lazy    => 1,
             default => 10,
         );
-    } '... this didnt die';
+    }, undef, '... this didnt die' );
 }
-  
+
+done_testing;