added Mouse::Meta::TypeConstraint and use it. Mouse::Meta::Attribute->type_constraint...

[gitmo/Mouse.git] / t / 800_shikabased / 014-subtype-as.t

diff --git a/t/800_shikabased/014-subtype-as.t b/t/800_shikabased/014-subtype-as.t
index 0a95057..3dc197b 100644 (file)
--- a/t/800_shikabased/014-subtype-as.t
+++ b/t/800_shikabased/014-subtype-as.t
@@ -64,6 +64,7 @@ isa_ok $f2, 'Foo';
 is ref($f2->as_only), 'Obj1';
 
 my $f3 = eval { Foo->new( any => Obj1->new ) };
+die $@ if $@;
 isa_ok $f3, 'Foo';
 is ref($f3->any), 'Obj1';