From df491f72df4e5e7d9edda466a9408528c843ba33 Mon Sep 17 00:00:00 2001 From: Rafael Kitover Date: Tue, 13 Jul 2010 02:46:03 -0400 Subject: switch to Test::Exception, add failing test for MooseX::Method::Signatures --- t/01-basic.t | 25 +++++++++++-------------- 1 file changed, 11 insertions(+), 14 deletions(-) (limited to 't/01-basic.t') diff --git a/t/01-basic.t b/t/01-basic.t index bfe227c..3d2e365 100644 --- a/t/01-basic.t +++ b/t/01-basic.t @@ -3,6 +3,7 @@ use strict; use warnings; use Test::More tests => 7; +use Test::Exception; { package MyClass; @@ -30,22 +31,18 @@ use Test::More tests => 7; ok( (my $instance = MyClass->new), 'instance' ); -eval { $instance->foo('bar') }; -is $@, "", 'attribute coercion ran'; +lives_ok { $instance->foo('bar') } 'attribute coercion ran'; -eval { $instance->bar('baz') }; -is $@, "", 'class attribute coercion ran'; +lives_ok { $instance->bar('baz') } 'class attribute coercion ran'; -eval { $instance->baz('quux') }; -ok( $@, 'class attribute coercion did not run with coerce => 0' ); +dies_ok { $instance->baz('quux') } + 'class attribute coercion did not run with coerce => 0'; -undef $@; +dies_ok { $instance->quux('mtfnpy') } + 'attribute coercion did not run with coerce => 0'; -eval { $instance->quux('mtfnpy') }; -ok( $@, 'attribute coercion did not run with coerce => 0' ); +lives_ok { $instance->uncoerced_attr(10) } + 'set attribute having type with no coercion and no coerce=0'; -eval { $instance->uncoerced_attr(10) }; -is $@, "", 'set attribute having type with no coercion and no coerce=0'; - -eval { $instance->uncoerced_class_attr(10) }; -is $@, "", 'set class attribute having type with no coercion and no coerce=0'; +lives_ok { $instance->uncoerced_class_attr(10) } + 'set class attribute having type with no coercion and no coerce=0'; -- cgit v1.2.3-54-g00ecf