X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F001_mouse%2F810-isa-or.t;h=0b59ea199e4b61d9bcea6b82c275f8439a52033f;hb=dc5cf9efb1b286a25cb1e80e5e5ce070402876d6;hp=aeb326a5181f1f78a76e0d011cb279a024f3c999;hpb=b880de945fcf59e9811132613b5bcbca8a6d8696;p=gitmo%2FMouse.git diff --git a/t/001_mouse/810-isa-or.t b/t/001_mouse/810-isa-or.t index aeb326a..0b59ea1 100644 --- a/t/001_mouse/810-isa-or.t +++ b/t/001_mouse/810-isa-or.t @@ -22,7 +22,7 @@ use Test::More tests => 22; eval { Foo->new( bar => +{} ); }; -like($@, qr/^Attribute \(bar\) does not pass the type constraint because: Validation failed for 'Baz\|Str\|Undef' failed with value HASH\(\w+\)/, 'type constraint and coercion failed') +like($@, qr/^Attribute \(bar\) does not pass the type constraint because: Validation failed for 'Baz\|Str\|Undef' with value HASH\(\w+\)/, 'type constraint and coercion failed') or diag "\$@='$@'"; eval { @@ -92,7 +92,7 @@ is $foo->foo, 'Name', 'foo is Name'; } eval { Funk->new( foo => 'aaa' ) }; -like $@, qr/Attribute \(foo\) does not pass the type constraint because: Validation failed for 'KLASS\|Type3\|Undef' failed with value aaa/; +like $@, qr/Attribute \(foo\) does not pass the type constraint because: Validation failed for 'KLASS\|Type3\|Undef' with value aaa/; my $k = Funk->new; ok $k, 'got an object 4';