Better test here; check the error message
Shawn M Moore [Mon, 22 Dec 2008 04:26:31 +0000 (04:26 +0000)]
t/800_shikabased/010-isa-or.t

index 0ede006..0b42f5c 100644 (file)
@@ -14,7 +14,7 @@ use Test::More tests => 18;
 eval {
     Foo->new( bar => +{} );
 };
-ok $@, 'not got an object';
+like($@, qr/^Attribute \(bar\) does not pass the type constraint because: Validation failed for 'Str\|Baz\|Undef' failed with value HASH\(\w+\)/, 'type constraint and coercion failed');
 
 eval {
     isa_ok(Foo->new( bar => undef ), 'Foo');