summaryrefslogtreecommitdiffstats
path: root/xt/author/leaks.t
diff options
context:
space:
mode:
Diffstat (limited to 'xt/author/leaks.t')
-rw-r--r--xt/author/leaks.t10
1 files changed, 1 insertions, 9 deletions
diff --git a/xt/author/leaks.t b/xt/author/leaks.t
index 65e1c6e..18ec601 100644
--- a/xt/author/leaks.t
+++ b/xt/author/leaks.t
@@ -71,13 +71,9 @@ use Symbol;
no_leaks_ok {
$foo->add_symbol('&code_init' => sub { "foo" });
} "add_symbol code doesn't leak";
- { local $TODO = $Package::Stash::IMPLEMENTATION eq 'PP'
- ? "the pure perl implementation leaks here somehow"
- : undef;
no_leaks_ok {
$foo->add_symbol('io_init' => Symbol::geniosym);
} "add_symbol io doesn't leak";
- }
is(exception {
is(Foo->code_init, 'foo', "sub installed correctly")
}, undef, "code_init exists");
@@ -189,13 +185,9 @@ use Symbol;
}
{
- local $TODO = ($Package::Stash::IMPLEMENTATION eq 'PP'
- && $Carp::VERSION ge '1.17')
- ? "Carp is leaky on 5.12.2 apparently?"
- : undef;
my $foo = Package::Stash->new('Foo');
no_leaks_ok {
- eval { $foo->get_or_add_symbol('&blorg') };
+ eval { $foo->add_symbol('&blorg') };
} "doesn't leak on errors";
}