X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F03-io.t;fp=t%2F03-io.t;h=147b74592229112db9a41f4e177cc0f2f4ad4ee9;hb=13f4d7c3ee749b18ba8b16e2cfc475e7471dd43c;hp=43a7dd8af90dd1e259b0a551ebf439dff050768e;hpb=41fc247afe43b3ca9bce931d224935a7bcf5a3bf;p=gitmo%2FPackage-Stash-PP.git diff --git a/t/03-io.t b/t/03-io.t index 43a7dd8..147b745 100644 --- a/t/03-io.t +++ b/t/03-io.t @@ -2,7 +2,7 @@ use strict; use warnings; use Test::More; -use Test::Exception; +use Test::Fatal; { package Foo; @@ -40,9 +40,9 @@ use Package::Stash; { my $stash = Package::Stash->new('Baz'); - lives_ok { + ok(!exception { $stash->add_package_symbol('baz', *Foo::foo{IO}); - } "can add an IO symbol"; + }, "can add an IO symbol"); ok($stash->has_package_symbol('baz'), "has baz"); is($stash->get_package_symbol('baz'), *Foo::foo{IO}, "got the right baz"); }