Test that a lazy attr without a default or builder dies

[gitmo/Moose.git] / t / 030_roles / 048_method_modifiers.t

diff --git a/t/030_roles/048_method_modifiers.t b/t/030_roles/048_method_modifiers.t
index fc5274b..4b4bca3 100644 (file)
--- a/t/030_roles/048_method_modifiers.t
+++ b/t/030_roles/048_method_modifiers.t
@@ -66,9 +66,9 @@ my $QuuxRole;
     package Quux::Role;
     use Moose::Role;
     { our $TODO; local $TODO = "can't handle regexes yet";
-    ::ok ! ::exception {
+    ::is( ::exception {
         after qr/foo|bar/ => sub { $QuuxRole++ }
-    };
+    }, undef );
     }
 }