diff options
Diffstat (limited to 't/06-addsub.t')
-rw-r--r-- | t/06-addsub.t | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/t/06-addsub.t b/t/06-addsub.t index 3c0dfc8..e8445f7 100644 --- a/t/06-addsub.t +++ b/t/06-addsub.t @@ -2,7 +2,7 @@ use strict; use warnings; use Test::More; -use Test::Exception; +use Test::Fatal; BEGIN { $^P |= 0x210 } # PERLDBf_SUBLINE @@ -15,9 +15,9 @@ my $foo_stash = Package::Stash->new('Foo'); ok(!defined($Foo::{funk}), '... the &funk slot has not been created yet'); -lives_ok { +ok(!exception { $foo_stash->add_package_symbol('&funk' => sub { "Foo::funk", __LINE__ }); -} '... created &Foo::funk successfully'; +}, '... created &Foo::funk successfully'); ok(defined($Foo::{funk}), '... the &funk slot was created successfully'); |