X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F006-addsub.t;fp=t%2F006-addsub.t;h=b5a5822e76f5652778574254f8ef3d76a11ec803;hb=4ada57e0b39192a0002ff703b7af0f3bd99003fa;hp=0000000000000000000000000000000000000000;hpb=18713f832189fda11e472a9357620a05e19f85e0;p=gitmo%2FPackage-Stash.git

diff --git a/t/006-addsub.t b/t/006-addsub.t
new file mode 100644
index 0000000..b5a5822
--- /dev/null
+++ b/t/006-addsub.t
@@ -0,0 +1,40 @@
+use strict;
+use warnings;
+
+use Test::More;
+use Test::Exception;
+
+BEGIN { $^P |= 0x210 } # PERLDBf_SUBLINE
+
+use Package::Stash;
+
+my $foo_stash = Package::Stash->new('Foo');
+
+# ----------------------------------------------------------------------
+## test adding a CODE
+
+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';
+
+ok(defined($Foo::{funk}), '... the &funk slot was created successfully');
+
+{
+    no strict 'refs';
+    ok(defined &{'Foo::funk'}, '... our &funk exists');
+}
+
+is((Foo->funk())[0], 'Foo::funk', '... got the right value from the function');
+
+my $line = (Foo->funk())[1];
+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('&dunk' => sub { "Foo::dunk" }, "FileName", 100, 199);
+
+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;