diff options
author | Justin Hunter <justin.d.hunter@gmail.com> | 2010-10-26 13:55:17 -0700 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2010-10-27 11:13:42 -0500 |
commit | 13f4d7c3ee749b18ba8b16e2cfc475e7471dd43c (patch) | |
tree | 44b9c96a069710bdce56ea3062662f708b6bc000 /t/06-addsub.t | |
parent | 41fc247afe43b3ca9bce931d224935a7bcf5a3bf (diff) | |
download | package-stash-13f4d7c3ee749b18ba8b16e2cfc475e7471dd43c.tar.gz package-stash-13f4d7c3ee749b18ba8b16e2cfc475e7471dd43c.zip |
move from Test::Exception to Test::Fatal
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'); |