diff options
author | Jesse Luehrs <doy@tozt.net> | 2011-08-05 13:08:04 -0500 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2011-08-05 13:08:04 -0500 |
commit | adda4f43e39cff45cf4d443dd93216644fca3afa (patch) | |
tree | e05964d374b3a5a4e363f595f443eb46a058fe44 /t/synopsis.t | |
parent | c3986e8ee5e47ef7e10896d991b53a3836591ef6 (diff) | |
download | package-stash-adda4f43e39cff45cf4d443dd93216644fca3afa.tar.gz package-stash-adda4f43e39cff45cf4d443dd93216644fca3afa.zip |
remove test numbers
Diffstat (limited to 't/synopsis.t')
-rw-r--r-- | t/synopsis.t | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/t/synopsis.t b/t/synopsis.t new file mode 100644 index 0000000..9f59948 --- /dev/null +++ b/t/synopsis.t @@ -0,0 +1,19 @@ +#!/usr/bin/env perl +use strict; +use warnings; +use lib 't/lib'; +use Test::More; + +use Package::Stash; + +my $stash = Package::Stash->new('Foo'); +$stash->add_symbol('%foo', {bar => 1}); +{ + no warnings 'once'; + is($Foo::foo{bar}, 1, "set in the stash properly"); +} +ok(!$stash->has_symbol('$foo'), "doesn't have anything in scalar slot"); +my $namespace = $stash->namespace; +is_deeply(*{ $namespace->{foo} }{HASH}, {bar => 1}, "namespace works properly"); + +done_testing; |