Redid conversion to Test::Fatal

[gitmo/Moose.git] / t / 020_attributes / 006_attribute_required.t

diff --git a/t/020_attributes/006_attribute_required.t b/t/020_attributes/006_attribute_required.t
index 0975765..95ba4dc 100644 (file)
--- a/t/020_attributes/006_attribute_required.t
+++ b/t/020_attributes/006_attribute_required.t
@@ -3,9 +3,8 @@
 use strict;
 use warnings;
 
-use Test::More tests => 15;
-use Test::Exception;
-
+use Test::More;
+use Test::Fatal;
 
 
 {
@@ -53,16 +52,17 @@ use Test::Exception;
 #    Foo->new(bar => 10, boo => undef);
 #} qr/^Attribute \(boo\) is required and cannot be undef/, '... must supply all the required attribute';
 
-lives_ok {
+is( exception {
     Foo->new(bar => 10, baz => undef);
-} '... undef is a valid attribute value';
+}, undef, '... undef is a valid attribute value' );
 
-lives_ok {
+is( exception {
     Foo->new(bar => 10, boo => undef);
-}  '... undef is a valid attribute value';
+}, undef, '... undef is a valid attribute value' );
 
 
-throws_ok {
+like( exception {
     Foo->new;
-} qr/^Attribute \(bar\) is required/, '... must supply all the required attribute';
+}, qr/^Attribute \(bar\) is required/, '... must supply all the required attribute' );
 
+done_testing;