use Moose::Util::TypeConstraints;
use NoInlineAttribute;
use Test::More;
-use Test::Fatal;
+use Test::Exception;
use Test::Moose;
{
ok( $obj->is_lit, 'set is_lit to 1 using ->illuminate' );
ok( !$obj->is_dark, 'check if is_dark does the right thing' );
- like exception { $obj->illuminate(1) },
+ throws_ok { $obj->illuminate(1) }
qr/Cannot call set with any arguments/,
'set throws an error when an argument is passed';
ok( !$obj->is_lit, 'set is_lit to 0 using ->darken' );
ok( $obj->is_dark, 'check if is_dark does the right thing' );
- like exception { $obj->darken(1) },
+ throws_ok { $obj->darken(1) }
qr/Cannot call unset with any arguments/,
'unset throws an error when an argument is passed';
ok( $obj->is_lit, 'toggle is_lit back to 1 using ->flip_switch' );
ok( !$obj->is_dark, 'check if is_dark does the right thing' );
- like exception { $obj->flip_switch(1) },
+ throws_ok { $obj->flip_switch(1) }
qr/Cannot call toggle with any arguments/,
'toggle throws an error when an argument is passed';