diff options
author | Jesse Luehrs <doy@tozt.net> | 2010-11-12 12:16:57 -0600 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2010-11-12 12:16:57 -0600 |
commit | 76f7c3068e8bd63fcbac28758631fcda72596674 (patch) | |
tree | 8ce7295c60515515fb65ff4bb38e9a5833144e05 /t | |
parent | 2033654760f55aa6b34262de791a32e98a33a046 (diff) | |
download | package-stash-xs-76f7c3068e8bd63fcbac28758631fcda72596674.tar.gz package-stash-xs-76f7c3068e8bd63fcbac28758631fcda72596674.zip |
add_package_symbol (except the db bits, for now)
Diffstat (limited to 't')
-rw-r--r-- | t/06-addsub.t | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/t/06-addsub.t b/t/06-addsub.t index 4fa1e8c..860a5c0 100644 --- a/t/06-addsub.t +++ b/t/06-addsub.t @@ -29,6 +29,7 @@ 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'; @@ -41,5 +42,6 @@ $foo_stash->add_package_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; |