summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorJesse Luehrs <doy@tozt.net>2011-12-10 02:29:01 -0600
committerJesse Luehrs <doy@tozt.net>2011-12-10 02:29:01 -0600
commit42b01b3381c4157c2fb4ea0905b653ff52e977ca (patch)
treed3716e63a951b12a2b9eae9659ba7fdfa51bb7cf
parente068010b38c06c1632291ea6bdc2560d63305dc1 (diff)
downloadpackage-stash-42b01b3381c4157c2fb4ea0905b653ff52e977ca.tar.gz
package-stash-42b01b3381c4157c2fb4ea0905b653ff52e977ca.zip
sync tests
-rw-r--r--t/bare-anon-basic.t4
-rw-r--r--t/bare-anon.t8
-rwxr-xr-xt/edge-cases.t4
3 files changed, 4 insertions, 12 deletions
diff --git a/t/bare-anon-basic.t b/t/bare-anon-basic.t
index 2119d8f..64451aa 100644
--- a/t/bare-anon-basic.t
+++ b/t/bare-anon-basic.t
@@ -212,9 +212,7 @@ ok(defined(*{ $Foo->{foo} }{ARRAY}), '... the @foo slot has NOT been removed');
}
{
- local $TODO = ($Package::Stash::IMPLEMENTATION eq 'PP')
- ? "can't inflate weird stash entries"
- : undef;
+ local $TODO = "can't inflate weird stash entries";
is(
exception {
diff --git a/t/bare-anon.t b/t/bare-anon.t
index 2f756d5..0ecb324 100644
--- a/t/bare-anon.t
+++ b/t/bare-anon.t
@@ -27,9 +27,7 @@ my $stash = Package::Stash->new($anon);
}
{
- local $TODO = ($Package::Stash::IMPLEMENTATION eq 'PP')
- ? "can't inflate weird stash entries"
- : undef;
+ local $TODO = "can't inflate weird stash entries";
$anon->{bar} = \123;
is(
@@ -45,9 +43,7 @@ my $stash = Package::Stash->new($anon);
}
{
- local $TODO = ($Package::Stash::IMPLEMENTATION eq 'PP')
- ? "can't inflate weird stash entries"
- : undef;
+ local $TODO = "can't inflate weird stash entries";
$anon->{baz} = -1;
is(
diff --git a/t/edge-cases.t b/t/edge-cases.t
index 262c13b..49f56ed 100755
--- a/t/edge-cases.t
+++ b/t/edge-cases.t
@@ -56,9 +56,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 $] < 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;
+ local $TODO = "don't know how to properly inflate a stash entry";
my $anon = {}; # not using Package::Anon
$anon->{foo} = -1; # stub