diff options
Diffstat (limited to 't')
-rw-r--r-- | t/basic.t | 4 | ||||
-rwxr-xr-x | t/edge-cases.t | 4 | ||||
-rw-r--r-- | t/impl-selection/basic-pp.t | 4 | ||||
-rw-r--r-- | t/impl-selection/basic-xs.t | 4 |
4 files changed, 8 insertions, 8 deletions
@@ -391,8 +391,8 @@ like(exception { [qw(BEGIN bar baz foo quuuux quuux quux)], "list_all_symbols", ); - { local $TODO = ($] < 5.010 || $Package::Stash::IMPLEMENTATION eq 'PP') - ? "undef scalars aren't visible on 5.8, or from pure perl at all" + { local $TODO = $] < 5.010 + ? "undef scalars aren't visible on 5.8" : undef; is_deeply( [sort $quuux->list_all_symbols('SCALAR')], diff --git a/t/edge-cases.t b/t/edge-cases.t index 7c82626..04e2164 100755 --- a/t/edge-cases.t +++ b/t/edge-cases.t @@ -26,8 +26,8 @@ use Package::Stash; } my $stash = Package::Stash->new('Foo'); -{ local $TODO = ($] < 5.010 || $Package::Stash::IMPLEMENTATION eq 'PP') - ? "undef scalars aren't visible on 5.8, or from pure perl at all" +{ local $TODO = $] < 5.010 + ? "undef scalars aren't visible on 5.8" : undef; ok($stash->has_symbol('$SCALAR'), '$SCALAR'); } diff --git a/t/impl-selection/basic-pp.t b/t/impl-selection/basic-pp.t index 7388e80..398f383 100644 --- a/t/impl-selection/basic-pp.t +++ b/t/impl-selection/basic-pp.t @@ -395,8 +395,8 @@ like(exception { [qw(BEGIN bar baz foo quuuux quuux quux)], "list_all_symbols", ); - { local $TODO = ($] < 5.010 || $Package::Stash::IMPLEMENTATION eq 'PP') - ? "undef scalars aren't visible on 5.8, or from pure perl at all" + { local $TODO = $] < 5.010 + ? "undef scalars aren't visible on 5.8" : undef; is_deeply( [sort $quuux->list_all_symbols('SCALAR')], diff --git a/t/impl-selection/basic-xs.t b/t/impl-selection/basic-xs.t index bffd3b7..0fe2aa3 100644 --- a/t/impl-selection/basic-xs.t +++ b/t/impl-selection/basic-xs.t @@ -396,8 +396,8 @@ like(exception { [qw(BEGIN bar baz foo quuuux quuux quux)], "list_all_symbols", ); - { local $TODO = ($] < 5.010 || $Package::Stash::IMPLEMENTATION eq 'PP') - ? "undef scalars aren't visible on 5.8, or from pure perl at all" + { local $TODO = $] < 5.010 + ? "undef scalars aren't visible on 5.8" : undef; is_deeply( [sort $quuux->list_all_symbols('SCALAR')], |