From: Karen Etheridge <ether@cpan.org>
Date: Sun, 11 Mar 2012 00:56:19 +0000 (-0800)
Subject: improve test by testing for explicit exception message
X-Git-Tag: 0.13~18
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=64c572f8a67500716757f45975103d58b9324e8c;p=gitmo%2FMooseX-UndefTolerant.git

improve test by testing for explicit exception message
---

diff --git a/t/constructor.t b/t/constructor.t
index 22d4ce2..90e8ea1 100644
--- 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,