don't know how to do these in xs either yet
Jesse Luehrs [Sat, 10 Dec 2011 07:51:20 +0000 (01:51 -0600)]
t/bare-anon-basic.t
t/bare-anon.t
t/edge-cases.t

index 9cea31e..0c984d3 100644 (file)
@@ -210,9 +210,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 {
index 34e234c..f53a16c 100644 (file)
@@ -25,9 +25,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(
@@ -43,9 +41,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(
index 262c13b..49f56ed 100755 (executable)
@@ -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