From 13f4d7c3ee749b18ba8b16e2cfc475e7471dd43c Mon Sep 17 00:00:00 2001 From: Justin Hunter Date: Tue, 26 Oct 2010 13:55:17 -0700 Subject: move from Test::Exception to Test::Fatal --- t/06-addsub.t | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 't/06-addsub.t') 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'); -- cgit v1.2.3-54-g00ecf