X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F800_shikabased%2F010-isa-or.t;h=ef867433ade8f88f2daef1df96c39eb6486116e3;hb=684db121da77d6c63be5a58e33606907ca2aa4fb;hp=0ede006e93b95c4e2ee7e5910acb549ed9238f4e;hpb=bcc5080bdc8c8b3edfbb3dd6af0b65224074043f;p=gitmo%2FMouse.git diff --git a/t/800_shikabased/010-isa-or.t b/t/800_shikabased/010-isa-or.t index 0ede006..ef86743 100644 --- a/t/800_shikabased/010-isa-or.t +++ b/t/800_shikabased/010-isa-or.t @@ -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'); @@ -32,7 +32,7 @@ my $f = Foo->new; eval { $f->bar([]); }; -ok !$@; +ok !$@, $@; is $f->bar, 'Baz', 'bar is baz (coerce from ArrayRef)'; eval {