From: Jesse Luehrs Date: Sat, 10 Dec 2011 08:29:01 +0000 (-0600) Subject: sync tests X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=42b01b3381c4157c2fb4ea0905b653ff52e977ca;p=gitmo%2FPackage-Stash.git sync tests --- 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