6 use Test::Requires 'Test::LeakTrace';
19 use constant baz => 1;
20 our %quux = (a => 'b');
25 Package::Stash->new('Foo');
26 } "object construction doesn't leak";
31 Package::Stash->new('Bar');
32 } "object construction doesn't leak, with an existing package";
37 Package::Stash->new('Baz');
38 } "object construction doesn't leak, with an existing package with things in it";
42 my $foo = Package::Stash->new('Foo');
46 } "accessors don't leak";
50 my $foo = Package::Stash->new('Foo');
52 $foo->add_package_symbol('$scalar');
53 $foo->add_package_symbol('@array');
54 $foo->add_package_symbol('%hash');
55 $foo->add_package_symbol('io');
56 } '==', 4, "add_package_symbol doesn't leak";
60 my $foo = Package::Stash->new('Foo');
62 $foo->add_package_symbol('$scalar_init' => 1);
63 $foo->add_package_symbol('@array_init' => []);
64 $foo->add_package_symbol('%hash_init' => {});
65 # hmmm, wonder why this coderef isn't treated as a leak
66 $foo->add_package_symbol('&code_init' => sub { "foo" });
67 $foo->add_package_symbol('io_init' => Symbol::geniosym);
68 } '==', 9, "add_package_symbol doesn't leak";
70 is(Foo->code_init, 'foo', "sub installed correctly")
71 }, undef, "code_init exists");
75 my $foo = Package::Stash->new('Foo');
77 $foo->remove_package_symbol('$scalar_init');
78 $foo->remove_package_symbol('@array_init');
79 $foo->remove_package_symbol('%hash_init');
80 $foo->remove_package_symbol('&code_init');
81 $foo->remove_package_symbol('io_init');
82 } "remove_package_symbol doesn't leak";
86 my $foo = Package::Stash->new('Foo');
87 $foo->add_package_symbol("${_}glob") for ('$', '@', '%', '&', '');
89 $foo->remove_package_glob('glob');
90 } "remove_package_glob doesn't leak";
94 my $foo = Package::Stash->new('Foo');
96 $foo->has_package_symbol('io');
97 $foo->has_package_symbol('%hash');
98 $foo->has_package_symbol('@array_init');
99 $foo->has_package_symbol('$glob');
100 $foo->has_package_symbol('&something_else');
101 } "has_package_symbol doesn't leak";
105 my $foo = Package::Stash->new('Foo');
107 $foo->get_package_symbol('io');
108 $foo->get_package_symbol('%hash');
109 $foo->get_package_symbol('@array_init');
110 $foo->get_package_symbol('$glob');
111 $foo->get_package_symbol('&something_else');
112 } "get_package_symbol doesn't leak";
116 my $foo = Package::Stash->new('Foo');
117 ok(!$foo->has_package_symbol('$glob'));
118 ok(!$foo->has_package_symbol('@array_init'));
120 $foo->get_or_add_package_symbol('io');
121 $foo->get_or_add_package_symbol('%hash');
122 my @super = ('Exporter');
123 @{$foo->get_or_add_package_symbol('@ISA')} = @super;
124 $foo->get_or_add_package_symbol('$glob');
125 } "get_or_add_package_symbol doesn't leak";
126 ok($foo->has_package_symbol('$glob'));
127 is(ref($foo->get_package_symbol('$glob')), 'SCALAR');
128 ok($foo->has_package_symbol('@ISA'));
129 is(ref($foo->get_package_symbol('@ISA')), 'ARRAY');
130 is_deeply($foo->get_package_symbol('@ISA'), ['Exporter']);
131 isa_ok('Foo', 'Exporter');
135 my $foo = Package::Stash->new('Foo');
136 my $baz = Package::Stash->new('Baz');
138 $foo->list_all_package_symbols;
139 $foo->list_all_package_symbols('SCALAR');
140 $foo->list_all_package_symbols('CODE');
141 $baz->list_all_package_symbols('CODE');
142 } "list_all_package_symbols doesn't leak";