From 9e60e8ff0381023d5e49388d32bd04748cb63ec9 Mon Sep 17 00:00:00 2001 From: Jesse Luehrs Date: Mon, 15 Nov 2010 13:05:40 -0600 Subject: update some test things --- t/21-leaks-debug.t | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 't/21-leaks-debug.t') diff --git a/t/21-leaks-debug.t b/t/21-leaks-debug.t index 292a28c..345c30c 100644 --- a/t/21-leaks-debug.t +++ b/t/21-leaks-debug.t @@ -125,7 +125,9 @@ use Symbol; @{$foo->get_or_add_symbol('@ISA')} = @super; $foo->get_or_add_symbol('$glob'); } "get_or_add_symbol doesn't leak"; - { local $TODO = $] < 5.010 ? "undef scalars aren't visible on 5.8" : undef; + { local $TODO = ($] < 5.010 || $Package::Stash::IMPLEMENTATION eq 'PP') + ? "undef scalars aren't visible on 5.8, or from pure perl at all" + : undef; ok($foo->has_symbol('$glob')); } is(ref($foo->get_symbol('$glob')), 'SCALAR'); @@ -159,7 +161,7 @@ use Symbol; $foo->get_all_symbols('SCALAR'); $foo->get_all_symbols('CODE'); $blah->get_all_symbols('CODE'); - } "list_all_symbols doesn't leak"; + } "get_all_symbols doesn't leak"; } # mimic CMOP::create_anon_class -- cgit v1.2.3-54-g00ecf