diff options
| -rw-r--r-- | t/anon-basic.t | 13 | ||||
| -rw-r--r-- | t/anon.t | 14 | ||||
| -rw-r--r-- | t/bare-anon-basic.t | 13 | ||||
| -rw-r--r-- | t/bare-anon.t | 13 |
4 files changed, 32 insertions, 21 deletions
diff --git a/t/anon-basic.t b/t/anon-basic.t index 32f5c9c..5f7fb93 100644 --- a/t/anon-basic.t +++ b/t/anon-basic.t @@ -5,13 +5,16 @@ use lib 't/lib'; use Test::More; use Test::Fatal; -use Test::Requires 'Package::Anon'; use Package::Stash; -use Symbol; -plan skip_all => "Anonymous stashes in PP need at least perl 5.14" - if $] < 5.014 - && $Package::Stash::IMPLEMENTATION eq 'PP'; +BEGIN { + plan skip_all => "Anonymous stashes in PP need at least perl 5.14" + if $] < 5.014 + && $Package::Stash::IMPLEMENTATION eq 'PP'; +} + +use Test::Requires 'Package::Anon'; +use Symbol; my $Foo = Package::Anon->new('Foo'); $Foo->{SOME_CONSTANT} = \1; @@ -5,14 +5,16 @@ use Test::More; use Test::Fatal; use lib 't/lib'; -use Test::Requires 'Package::Anon'; - use Package::Stash; -use Symbol; -plan skip_all => "Anonymous stashes in PP need at least perl 5.14" - if $] < 5.014 - && $Package::Stash::IMPLEMENTATION eq 'PP'; +BEGIN { + plan skip_all => "Anonymous stashes in PP need at least perl 5.14" + if $] < 5.014 + && $Package::Stash::IMPLEMENTATION eq 'PP'; +} + +use Test::Requires 'Package::Anon'; +use Symbol; 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 5bdb523..c3cc981 100644 --- a/t/bare-anon-basic.t +++ b/t/bare-anon-basic.t @@ -6,13 +6,16 @@ use Test::More; use Test::Fatal; use Package::Stash; -use Symbol; -plan skip_all => "Anonymous stashes in PP need at least perl 5.14" - if $] < 5.014 - && $Package::Stash::IMPLEMENTATION eq 'PP'; +BEGIN { + plan skip_all => "Anonymous stashes in PP need at least perl 5.14" + if $] < 5.014 + && $Package::Stash::IMPLEMENTATION eq 'PP'; + + plan skip_all => "This isn't really going to work yet, probably"; +} -plan skip_all => "This isn't really going to work yet, probably"; +use Symbol; my $Foo = {}; $Foo->{SOME_CONSTANT} = \1; diff --git a/t/bare-anon.t b/t/bare-anon.t index 0ecb324..f42dce8 100644 --- a/t/bare-anon.t +++ b/t/bare-anon.t @@ -6,13 +6,16 @@ use Test::Fatal; use lib 't/lib'; use Package::Stash; -use Symbol; -plan skip_all => "Anonymous stashes in PP need at least perl 5.14" - if $] < 5.014 - && $Package::Stash::IMPLEMENTATION eq 'PP'; +BEGIN { + plan skip_all => "Anonymous stashes in PP need at least perl 5.14" + if $] < 5.014 + && $Package::Stash::IMPLEMENTATION eq 'PP'; + + plan skip_all => "This isn't really going to work yet, probably"; +} -plan skip_all => "This isn't really going to work yet, probably"; +use Symbol; my $anon = {}; my $stash = Package::Stash->new($anon); |