summaryrefslogtreecommitdiffstats
path: root/t
diff options
context:
space:
mode:
authorJesse Luehrs <doy@tozt.net>2011-11-29 14:49:26 -0600
committerJesse Luehrs <doy@tozt.net>2011-11-29 14:49:26 -0600
commitacbc69c4f1ade78eb1d6f951cb6336af4297d996 (patch)
treef9d8ed192469daac7ffc967762dd2649452df560 /t
parentace6563db0b4154744704087b763f76f847bf590 (diff)
downloadpackage-stash-acbc69c4f1ade78eb1d6f951cb6336af4297d996.tar.gz
package-stash-acbc69c4f1ade78eb1d6f951cb6336af4297d996.zip
don't rely on the ::PP BROKEN_ constants existing in tests
Diffstat (limited to 't')
-rw-r--r--t/anon-basic.t2
-rw-r--r--t/anon.t2
-rw-r--r--t/bare-anon-basic.t2
-rw-r--r--t/bare-anon.t2
-rwxr-xr-xt/edge-cases.t3
5 files changed, 5 insertions, 6 deletions
diff --git a/t/anon-basic.t b/t/anon-basic.t
index bfa80e1..fc26f12 100644
--- a/t/anon-basic.t
+++ b/t/anon-basic.t
@@ -10,7 +10,7 @@ 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 $] < 5.014
&& $Package::Stash::IMPLEMENTATION eq 'PP';
my $Foo = Package::Anon->new('Foo');
diff --git a/t/anon.t b/t/anon.t
index 575de06..8b7f7aa 100644
--- a/t/anon.t
+++ b/t/anon.t
@@ -11,7 +11,7 @@ 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 $] < 5.014
&& $Package::Stash::IMPLEMENTATION eq 'PP';
my $anon = Package::Anon->new;
diff --git a/t/bare-anon-basic.t b/t/bare-anon-basic.t
index 3291cd3..9cea31e 100644
--- a/t/bare-anon-basic.t
+++ b/t/bare-anon-basic.t
@@ -9,7 +9,7 @@ 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 $] < 5.014
&& $Package::Stash::IMPLEMENTATION eq 'PP';
my $Foo = {};
diff --git a/t/bare-anon.t b/t/bare-anon.t
index e24647d..34e234c 100644
--- a/t/bare-anon.t
+++ b/t/bare-anon.t
@@ -9,7 +9,7 @@ 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 $] < 5.014
&& $Package::Stash::IMPLEMENTATION eq 'PP';
my $anon = {};
diff --git a/t/edge-cases.t b/t/edge-cases.t
index 1d26176..d1e5182 100755
--- a/t/edge-cases.t
+++ b/t/edge-cases.t
@@ -55,8 +55,7 @@ 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 $Package::Stash::IMPLEMENTATION eq 'PP'
- && Package::Stash::BROKEN_GLOB_ASSIGNMENT;
+ if $] < 5.014 && $Package::Stash::IMPLEMENTATION eq 'PP';
local $TODO = ($Package::Stash::IMPLEMENTATION eq 'PP')
? "don't know how to properly inflate a stash entry"
: undef;