From: Michael G. Schwern <schwern@pobox.com>
Date: Mon, 10 Dec 2001 02:47:40 +0000 (-0500)
Subject: Re: [PATCH t/op/pack.t] Cleanup
X-Git-Tag: accepted/trunk/20130322.191538~28917
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=3020ec7a966d29011d9714679eba0b8797d51b1e;p=platform%2Fupstream%2Fperl.git

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
--- 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;
-        }
     }
 }