This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Re: [PATCH t/op/pack.t] Cleanup
authorMichael G. Schwern <schwern@pobox.com>
Mon, 10 Dec 2001 02:47:40 +0000 (21:47 -0500)
committerJarkko Hietaniemi <jhi@iki.fi>
Mon, 10 Dec 2001 13:26:24 +0000 (13:26 +0000)
Message-ID: <20011210074739.GH1770@blackrider>

p4raw-id: //depot/perl@13594

t/op/pack.t

index 4503398..75ddd1e 100755 (executable)
@@ -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;
-        }
     }
 }