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
[perl5.git] / 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;
-        }
     }
 }