improve test by testing for explicit exception message

[gitmo/MooseX-UndefTolerant.git] / t / constructor.t

diff --git a/t/constructor.t b/t/constructor.t
index 22d4ce2..90e8ea1 100644 (file)
--- a/t/constructor.t
+++ b/t/constructor.t
@@ -60,7 +60,9 @@ sub do_tests
     {
         my $obj = Foo->new(attr1 => undef);
         ok(!$obj->has_attr1, 'UT attr1 has no value when assigned undef in constructor');
-        isnt (exception { $obj = Foo->new(attr2 => undef) }, undef,
+        like(
+            exception { $obj = Foo->new(attr2 => undef) },
+            qr/\QAttribute (attr2) does not pass the type constraint because: Validation failed for 'Num' with value undef\E/,
             'But assigning undef to attr2 generates a type constraint error');
 
         is (exception { $obj = Foo->new(attr3 => undef) }, undef,