+#!/usr/bin/env perl
use strict;
use warnings;
-
+use lib 't/lib';
use Test::More;
-use Test::Exception;
+use Test::Fatal;
BEGIN { $^P |= 0x210 } # PERLDBf_SUBLINE
ok(!defined($Foo::{funk}), '... the &funk slot has not been created yet');
-lives_ok {
- $foo_stash->add_package_symbol('&funk' => sub { "Foo::funk", __LINE__ });
-} '... created &Foo::funk successfully';
+is(exception {
+ $foo_stash->add_symbol('&funk' => sub { "Foo::funk", __LINE__ });
+}, undef, '... created &Foo::funk successfully');
ok(defined($Foo::{funk}), '... the &funk slot was created successfully');
is $DB::sub{'Foo::funk'}, sprintf "%s:%d-%d", __FILE__, $line, $line,
'... got the right %DB::sub value for funk default args';
-$foo_stash->add_package_symbol(
+$foo_stash->add_symbol(
'&dunk' => sub { "Foo::dunk" },
filename => "FileName",
first_line_num => 100,