almost complete pure perl implementation
[gitmo/Package-Stash.git] / t / 10-synopsis.t
index 4c93f32..9f59948 100644 (file)
@@ -1,17 +1,18 @@
 #!/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_package_symbol('%foo', {bar => 1});
+$stash->add_symbol('%foo', {bar => 1});
 {
     no warnings 'once';
     is($Foo::foo{bar}, 1, "set in the stash properly");
 }
-ok(!$stash->has_package_symbol('$foo'), "doesn't have anything in scalar slot");
+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");