From 2905fb35f8d7e19e0b9422060689d71c72bb6f39 Mon Sep 17 00:00:00 2001 From: Jesse Luehrs Date: Mon, 15 Nov 2010 13:02:14 -0600 Subject: almost complete pure perl implementation the leak tests are failing for some reason, need to track that down --- t/10-synopsis.t | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 't/10-synopsis.t') diff --git a/t/10-synopsis.t b/t/10-synopsis.t index 4c93f32..9f59948 100644 --- a/t/10-synopsis.t +++ b/t/10-synopsis.t @@ -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"); -- cgit v1.2.3-54-g00ecf