diff options
Diffstat (limited to 't/06-addsub.t')
-rw-r--r-- | t/06-addsub.t | 2 |
1 files changed, 0 insertions, 2 deletions
diff --git a/t/06-addsub.t b/t/06-addsub.t index 50a67fd..1965afd 100644 --- a/t/06-addsub.t +++ b/t/06-addsub.t @@ -29,7 +29,6 @@ ok(defined($Foo::{funk}), '... the &funk slot was created successfully'); is((Foo->funk())[0], 'Foo::funk', '... got the right value from the function'); my $line = (Foo->funk())[1]; -{ local $TODO = "need to reimplement the db stuff in xs"; is $DB::sub{'Foo::funk'}, sprintf "%s:%d-%d", __FILE__, $line, $line, '... got the right %DB::sub value for funk default args'; @@ -42,6 +41,5 @@ $foo_stash->add_symbol( is $DB::sub{'Foo::dunk'}, sprintf "%s:%d-%d", "FileName", 100, 199, '... got the right %DB::sub value for dunk with specified args'; -} done_testing; |