diff options
| author | Jesse Luehrs <doy@tozt.net> | 2013-01-03 23:58:36 -0600 |
|---|---|---|
| committer | Jesse Luehrs <doy@tozt.net> | 2013-01-03 23:58:36 -0600 |
| commit | 5045a43150c39834acc8950f849fe05b235bbdd3 (patch) | |
| tree | 6bb8e0b834f34576c7d38ea6bf037b98fba2d92a | |
| parent | 948efbf576d8799d1089ed240c31c8c0b6d42e14 (diff) | |
| download | package-stash-5045a43150c39834acc8950f849fe05b235bbdd3.tar.gz package-stash-5045a43150c39834acc8950f849fe05b235bbdd3.zip | |
sync tests
| -rwxr-xr-x | t/edge-cases.t | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/t/edge-cases.t b/t/edge-cases.t index 58b819e..4e851c3 100755 --- a/t/edge-cases.t +++ b/t/edge-cases.t @@ -56,7 +56,10 @@ is(ref($stash->get_or_add_symbol('$glob')), 'SCALAR', "got an empty scalar"); SKIP: { skip "PP doesn't support anon stashes before 5.14", 4 if $] < 5.014 && $Package::Stash::IMPLEMENTATION eq 'PP'; - local $TODO = "don't know how to properly inflate a stash entry"; + skip "XS doesn't support anon stashes before 5.10", 4 + if $] < 5.010 && $Package::Stash::IMPLEMENTATION eq 'XS'; + local $TODO = "don't know how to properly inflate a stash entry in PP" + if $Package::Stash::IMPLEMENTATION eq 'PP'; my $anon = {}; # not using Package::Anon $anon->{foo} = -1; # stub @@ -88,9 +91,12 @@ SKIP: { } { + local $TODO = $] < 5.010 + ? "undef scalars aren't visible on 5.8" + : undef; my $stash = Package::Stash->new('Baz'); $stash->add_symbol('$baz', \undef); - ok($stash->has_symbol('$baz')); + ok($stash->has_symbol('$baz'), "immortal scalars are also visible"); } done_testing; |