t/op/pat.t

[perl5.git] / t / op / pat.t

diff --git a/t/op/pat.t b/t/op/pat.t
index 5ff4b92..0c57c84 100755 (executable)
--- a/t/op/pat.t
+++ b/t/op/pat.t
@@ -2038,7 +2038,7 @@ print "ok 683\n" if @a == 9 && "@a" eq "f o o \n $a $b b a r";
 
 $test = 687;
 
-# Force scalar context on the patern match
+# Force scalar context on the pattern match
 sub ok ($;$) {
     my($ok, $name) = @_;
     my $todo = $TODO ? " # TODO $TODO" : '';
@@ -2052,6 +2052,18 @@ sub ok ($;$) {
     return $ok;
 }
 
+sub skip {
+    my $why = shift;
+    $why =~ s/\n.*//s;
+    my $n    = @_ ? shift : 1;
+    for (1..$n) {
+        print "ok $test # skip: $why\n";
+        $test++;
+    }
+    local $^W = 0;
+    last SKIP;
+}
+
 {
     # Check that \x## works. 5.6.1 and 5.005_03 fail some of these.
     $x = "\x4e" . "E";
@@ -4605,7 +4617,7 @@ sub kt
 }
 
 SKIP: {
-    if (ordA == 193) { skip("Assumes ASCII", 4) }
+    unless ($ordA == 65) { skip("Assumes ASCII", 4) }
 
     my @notIsPunct = grep {/[[:punct:]]/ and not /\p{IsPunct}/}
                        map {chr} 0x20..0x7f;