diff options
author | Jesse Luehrs <doy@tozt.net> | 2010-11-12 11:48:30 -0600 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2010-11-12 11:48:30 -0600 |
commit | 2033654760f55aa6b34262de791a32e98a33a046 (patch) | |
tree | 0cdb96ec731114fbb66728537b0309fac0607e1f /t/03-io.t | |
parent | 34805376fa48a707b1a7f52f3a282ee5cacd2cf9 (diff) | |
download | package-stash-xs-2033654760f55aa6b34262de791a32e98a33a046.tar.gz package-stash-xs-2033654760f55aa6b34262de791a32e98a33a046.zip |
better diagnostics for exception tests
Diffstat (limited to 't/03-io.t')
-rw-r--r-- | t/03-io.t | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -40,9 +40,9 @@ use Package::Stash; { my $stash = Package::Stash->new('Baz'); - ok(!exception { + is(exception { $stash->add_package_symbol('baz', *Foo::foo{IO}); - }, "can add an IO symbol"); + }, undef, "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"); } |