Re: [PATCH t/op/pack.t] Cleanup

Message-ID: <20011210074739.GH1770@blackrider>

p4raw-id: //depot/perl@13594

diff --git a/t/op/pack.t b/t/op/pack.t
index 4503398..75ddd1e 100755 (executable)
--- a/t/op/pack.t
+++ b/t/op/pack.t
@@ -205,13 +205,13 @@ foreach my $t (@templates) {
         is( $@, '' );
 
         is(scalar @t, 2);
-        if( $t =~ /[nv]/i ) {
+
+        SKIP: {
+            skip "$t not expected to work for some reason", 2 if $t =~ /[nv]/i;
+
             is($t[0], 12);
             is($t[1], 34);
         }
-        else {
-            pass() for 1..2;
-        }
     }
 }