X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F06-addsub.t;fp=t%2F06-addsub.t;h=e8445f78fe64fd937f8dbdb8fcb1894d3d379e36;hb=13f4d7c3ee749b18ba8b16e2cfc475e7471dd43c;hp=3c0dfc8a92c2b2e1ee4affa727ab444b808d186b;hpb=41fc247afe43b3ca9bce931d224935a7bcf5a3bf;p=gitmo%2FPackage-Stash-PP.git

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');