use Class::MOP;
use Class::MOP::Class;
-use Test::More tests => 9;
-use Test::Exception;
+use Test::More;
+use Test::Fatal;
my %results;
%results = ();
my $o = $meta->get_meta_instance->create_instance;
isa_ok( $o, 'Base' );
- lives_ok {
+ is( exception {
$o->hey;
$o->hey
; # this would die with 'Can't use string ("barf") as a subroutine ref while "strict refs" in use'
- }
- 'wrapped doesn\'t die when $_ gets changed';
+ }, undef, 'wrapped doesn\'t die when $_ gets changed' );
is_deeply(
\%results, { base => 2, wrapped => 2 },
'saw expected calls to wrappers'
%results = ();
my $o = $meta->get_meta_instance->create_instance;
isa_ok( $o, 'Base' );
- lives_ok {
+ is( exception {
$o->hey;
$o->hey
; # this would die with 'Can't use string ("barf") as a subroutine ref while "strict refs" in use'
- }
- 'double-wrapped doesn\'t die when $_ gets changed';
+ }, undef, 'double-wrapped doesn\'t die when $_ gets changed' );
is_deeply(
\%results, { base => 2, wrapped => 4 },
'saw expected calls to wrappers'
);
}
+
+done_testing;