diff options
author | Jesse Luehrs <doy@tozt.net> | 2011-11-29 14:34:53 -0600 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2011-11-29 14:34:53 -0600 |
commit | ace6563db0b4154744704087b763f76f847bf590 (patch) | |
tree | ddbb2fb936a351f3b563de4696d6ebb80cc4c8dd /t | |
parent | c6ddb1d1e19b3e23d64840dd62e2f9c777b5eb09 (diff) | |
download | package-stash-ace6563db0b4154744704087b763f76f847bf590.tar.gz package-stash-ace6563db0b4154744704087b763f76f847bf590.zip |
properly conditionalize these on the PP implementation
Diffstat (limited to 't')
-rw-r--r-- | t/anon-basic.t | 3 | ||||
-rw-r--r-- | t/anon.t | 3 | ||||
-rw-r--r-- | t/bare-anon-basic.t | 3 | ||||
-rw-r--r-- | t/bare-anon.t | 3 | ||||
-rwxr-xr-x | t/edge-cases.t | 4 |
5 files changed, 11 insertions, 5 deletions
diff --git a/t/anon-basic.t b/t/anon-basic.t index 661430a..bfa80e1 100644 --- a/t/anon-basic.t +++ b/t/anon-basic.t @@ -10,7 +10,8 @@ use Package::Stash; use Symbol; plan skip_all => "Anonymous stashes in PP need at least perl 5.14" - if Package::Stash::BROKEN_GLOB_ASSIGNMENT; + if Package::Stash::BROKEN_GLOB_ASSIGNMENT + && $Package::Stash::IMPLEMENTATION eq 'PP'; my $Foo = Package::Anon->new('Foo'); $Foo->{SOME_CONSTANT} = \1; @@ -11,7 +11,8 @@ use Package::Stash; use Symbol; plan skip_all => "Anonymous stashes in PP need at least perl 5.14" - if Package::Stash::BROKEN_GLOB_ASSIGNMENT; + if Package::Stash::BROKEN_GLOB_ASSIGNMENT + && $Package::Stash::IMPLEMENTATION eq 'PP'; my $anon = Package::Anon->new; my $stash = Package::Stash->new($anon); diff --git a/t/bare-anon-basic.t b/t/bare-anon-basic.t index 5a1601a..3291cd3 100644 --- a/t/bare-anon-basic.t +++ b/t/bare-anon-basic.t @@ -9,7 +9,8 @@ use Package::Stash; use Symbol; plan skip_all => "Anonymous stashes in PP need at least perl 5.14" - if Package::Stash::BROKEN_GLOB_ASSIGNMENT; + if Package::Stash::BROKEN_GLOB_ASSIGNMENT + && $Package::Stash::IMPLEMENTATION eq 'PP'; my $Foo = {}; $Foo->{SOME_CONSTANT} = \1; diff --git a/t/bare-anon.t b/t/bare-anon.t index 3c96ec8..e24647d 100644 --- a/t/bare-anon.t +++ b/t/bare-anon.t @@ -9,7 +9,8 @@ use Package::Stash; use Symbol; plan skip_all => "Anonymous stashes in PP need at least perl 5.14" - if Package::Stash::BROKEN_GLOB_ASSIGNMENT; + if Package::Stash::BROKEN_GLOB_ASSIGNMENT + && $Package::Stash::IMPLEMENTATION eq 'PP'; my $anon = {}; my $stash = Package::Stash->new($anon); diff --git a/t/edge-cases.t b/t/edge-cases.t index b1e5bb8..1d26176 100755 --- a/t/edge-cases.t +++ b/t/edge-cases.t @@ -57,7 +57,9 @@ SKIP: { skip "PP doesn't support anon stashes before 5.14", 4 if $Package::Stash::IMPLEMENTATION eq 'PP' && Package::Stash::BROKEN_GLOB_ASSIGNMENT; - local $TODO = "don't know how to properly inflate a stash entry"; + local $TODO = ($Package::Stash::IMPLEMENTATION eq 'PP') + ? "don't know how to properly inflate a stash entry" + : undef; my $anon = {}; # not using Package::Anon $anon->{foo} = -1; # stub |