summaryrefslogtreecommitdiffstats
path: root/t/20-leaks.t
diff options
context:
space:
mode:
authorJesse Luehrs <doy@tozt.net>2010-11-13 09:56:23 -0600
committerJesse Luehrs <doy@tozt.net>2010-11-13 09:56:23 -0600
commitbb19eac124cdc5a0f51da2e09bbe2a57d4817c9f (patch)
treeda935122b93c40569fecc8ac0047e142d32cf170 /t/20-leaks.t
parentc5e221f901796575c6beba3a887e92473577528f (diff)
downloadpackage-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.t8
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");