diff options
author | Jesse Luehrs <doy@tozt.net> | 2010-11-15 13:05:40 -0600 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2010-11-15 13:05:40 -0600 |
commit | 9e60e8ff0381023d5e49388d32bd04748cb63ec9 (patch) | |
tree | e111047e8b1301ce259972767e5dc53facc42672 /t/07-edge-cases.t | |
parent | af3e1f5e6280e1212d8f116cb7f72391c9e43a18 (diff) | |
download | package-stash-xs-9e60e8ff0381023d5e49388d32bd04748cb63ec9.tar.gz package-stash-xs-9e60e8ff0381023d5e49388d32bd04748cb63ec9.zip |
update some test things
Diffstat (limited to 't/07-edge-cases.t')
-rwxr-xr-x | t/07-edge-cases.t | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/t/07-edge-cases.t b/t/07-edge-cases.t index 17ec84c..feec31e 100755 --- a/t/07-edge-cases.t +++ b/t/07-edge-cases.t @@ -25,7 +25,9 @@ use Package::Stash; } my $stash = Package::Stash->new('Foo'); -{ 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($stash->has_symbol('$SCALAR'), '$SCALAR'); } ok($stash->has_symbol('$SCALAR_WITH_VALUE'), '$SCALAR_WITH_VALUE'); |