[gitmo/Package-Stash-XS.git] / t / 10-synopsis.t

#!/usr/bin/env perl
use strict;
use warnings;
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;
Commit	Line	Data
3b9f59fd	1	#!/usr/bin/env perl
	2	use strict;
	3	use warnings;
	4	use Test::More;
	5
e94260da	6	use Package::Stash;
3b9f59fd	7
e94260da	8	my $stash = Package::Stash->new('Foo');
15c104e2	9	$stash->add_symbol('%foo', {bar => 1});
3b9f59fd	10	{
	11	no warnings 'once';
	12	is($Foo::foo{bar}, 1, "set in the stash properly");
	13	}
15c104e2	14	ok(!$stash->has_symbol('$foo'), "doesn't have anything in scalar slot");
3b9f59fd	15	my $namespace = $stash->namespace;
	16	is_deeply(*{ $namespace->{foo} }{HASH}, {bar => 1}, "namespace works properly");
	17
	18	done_testing;