Revert most of the conversion to Test::Fatal so we can redo it
[gitmo/Moose.git] / t / 020_attributes / 021_method_generation_rules.t
index 3873713..646e572 100644 (file)
@@ -4,7 +4,7 @@ use strict;
 use warnings;
 
 use Test::More;
-use Test::Fatal;
+use Test::Exception;
 
 
 =pod
@@ -33,9 +33,9 @@ ok($class, "Can define attr with rw + writer");
 $obj = $class->new();
 
 can_ok($obj, qw/foo _foo/);
-ok ! exception {$obj->_foo(1)}, "$class->_foo is writer";
+lives_ok {$obj->_foo(1)} "$class->_foo is writer";
 is($obj->foo(), 1, "$class->foo is reader");
-ok exception {$obj->foo(2)}, "$class->foo is not writer"; # this should fail
+dies_ok {$obj->foo(2)} "$class->foo is not writer"; # this should fail
 ok(!defined $obj->_foo(), "$class->_foo is not reader");
 
 $class = make_class('ro', 'writer', 'Test::Class::WriterRO');
@@ -44,9 +44,9 @@ ok($class, "Can define attr with ro + writer");
 $obj = $class->new();
 
 can_ok($obj, qw/foo _foo/);
-ok ! exception {$obj->_foo(1)}, "$class->_foo is writer";
+lives_ok {$obj->_foo(1)} "$class->_foo is writer";
 is($obj->foo(), 1, "$class->foo is reader");
-ok exception {$obj->foo(1)}, "$class->foo is not writer";
+dies_ok {$obj->foo(1)} "$class->foo is not writer";
 isnt($obj->_foo(), 1, "$class->_foo is not reader");
 
 $class = make_class('rw', 'accessor', 'Test::Class::AccessorRW');
@@ -55,9 +55,9 @@ ok($class, "Can define attr with rw + accessor");
 $obj = $class->new();
 
 can_ok($obj, qw/_foo/);
-ok ! exception {$obj->_foo(1)}, "$class->_foo is writer";
+lives_ok {$obj->_foo(1)} "$class->_foo is writer";
 is($obj->_foo(), 1, "$class->foo is reader");
 
-ok exception { make_class('ro', 'accessor', "Test::Class::AccessorRO"); }, "Cant define attr with ro + accessor";
+dies_ok { make_class('ro', 'accessor', "Test::Class::AccessorRO"); } "Cant define attr with ro + accessor";
 
 done_testing;