Better diagnostics when the evals fail.

[gitmo/MooseX-AlwaysCoerce.git] / t / 01-basic.t

diff --git a/t/01-basic.t b/t/01-basic.t
index b3643e5..1f7f3b1 100644 (file)
--- a/t/01-basic.t
+++ b/t/01-basic.t
@@ -25,10 +25,10 @@ use Test::More tests => 5;
 ok( (my $instance = MyClass->new), 'instance' );
 
 eval { $instance->foo('bar') };
-ok( (!$@), 'attribute coercion ran' );
+is $@, "", 'attribute coercion ran';
 
 eval { $instance->bar('baz') };
-ok( (!$@), 'class attribute coercion ran' );
+is $@, "", 'class attribute coercion ran';
 
 eval { $instance->baz('quux') };
 ok( $@, 'class attribute coercion did not run with coerce => 0' );