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 f226544..95ba4dc 100644 (file)
--- a/t/020_attributes/006_attribute_required.t
+++ b/t/020_attributes/006_attribute_required.t
@@ -44,25 +44,25 @@ use Test::Fatal;
 }
 
 #Yeah.. this doesn't work like this anymore, see below. (groditi)
-#like exception {
+#throws_ok {
 #    Foo->new(bar => 10, baz => undef);
-#}, qr/^Attribute \(baz\) is required and cannot be undef/, '... must supply all the required attribute';
+#} qr/^Attribute \(baz\) is required and cannot be undef/, '... must supply all the required attribute';
 
-#like exception {
+#throws_ok {
 #    Foo->new(bar => 10, boo => undef);
-#}, qr/^Attribute \(boo\) is required and cannot be undef/, '... must supply all the required attribute';
+#} qr/^Attribute \(boo\) is required and cannot be undef/, '... must supply all the required attribute';
 
-ok ! exception {
+is( exception {
     Foo->new(bar => 10, baz => undef);
-}, '... undef is a valid attribute value';
+}, undef, '... undef is a valid attribute value' );
 
-ok ! exception {
+is( exception {
     Foo->new(bar => 10, boo => undef);
-},  '... undef is a valid attribute value';
+}, undef, '... undef is a valid attribute value' );
 
 
-like exception {
+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;