diff options
author | Jesse Luehrs <doy@tozt.net> | 2010-11-13 09:56:23 -0600 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2010-11-13 09:56:23 -0600 |
commit | bb19eac124cdc5a0f51da2e09bbe2a57d4817c9f (patch) | |
tree | da935122b93c40569fecc8ac0047e142d32cf170 /t/20-leaks.t | |
parent | c5e221f901796575c6beba3a887e92473577528f (diff) | |
download | package-stash-xs-bb19eac124cdc5a0f51da2e09bbe2a57d4817c9f.tar.gz package-stash-xs-bb19eac124cdc5a0f51da2e09bbe2a57d4817c9f.zip |
actually, these shouldn't be leaking, with the way T:LT works
Diffstat (limited to 't/20-leaks.t')
-rw-r--r-- | t/20-leaks.t | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/t/20-leaks.t b/t/20-leaks.t index 4e48bd3..bdfd37a 100644 --- a/t/20-leaks.t +++ b/t/20-leaks.t @@ -48,24 +48,24 @@ use Symbol; { my $foo = Package::Stash->new('Foo'); - leaks_cmp_ok { + no_leaks_ok { $foo->add_package_symbol('$scalar'); $foo->add_package_symbol('@array'); $foo->add_package_symbol('%hash'); $foo->add_package_symbol('io'); - } '==', 4, "add_package_symbol doesn't leak"; + } "add_package_symbol doesn't leak"; } { my $foo = Package::Stash->new('Foo'); - leaks_cmp_ok { + no_leaks_ok { $foo->add_package_symbol('$scalar_init' => 1); $foo->add_package_symbol('@array_init' => []); $foo->add_package_symbol('%hash_init' => {}); # hmmm, wonder why this coderef isn't treated as a leak $foo->add_package_symbol('&code_init' => sub { "foo" }); $foo->add_package_symbol('io_init' => Symbol::geniosym); - } '==', 9, "add_package_symbol doesn't leak"; + } "add_package_symbol doesn't leak"; is(exception { is(Foo->code_init, 'foo', "sub installed correctly") }, undef, "code_init exists"); |