diff options
author | Jesse Luehrs <doy@tozt.net> | 2010-11-14 11:24:36 -0600 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2010-11-14 11:24:36 -0600 |
commit | d1d0e437f4a989ddd7b1c8061b1f5900447a4db0 (patch) | |
tree | 20719243d15b44be2ef2093fe0b21f615406c0aa /t | |
parent | 9aa6fe4f1c0b7719085d51b26b2237f071b1a94f (diff) | |
download | package-stash-xs-d1d0e437f4a989ddd7b1c8061b1f5900447a4db0.tar.gz package-stash-xs-d1d0e437f4a989ddd7b1c8061b1f5900447a4db0.zip |
reimplement the %DB::sub functionality
Diffstat (limited to '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; |