Forgot the latest mktables.PL from #9899.

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

diff --git a/t/op/pat.t b/t/op/pat.t
index 9cd6e9d..9130454 100755 (executable)
--- a/t/op/pat.t
+++ b/t/op/pat.t
@@ -5,7 +5,7 @@
 # that does fit that format, add it to op/re_tests, not here.
 
 $| = 1;
-print "1..586\n";
+print "1..587\n";
 
 BEGIN {
     chdir 't' if -d 't';
@@ -1549,6 +1549,8 @@ print "ok 247\n";
 }
 
 {
+    $test = 582;
+
     # bugid 20010410.006
     for my $rx (
                '/(.*?)\{(.*?)\}/csg',
@@ -1572,3 +1574,12 @@ EOT
        print "ok " . $test++ . "\n";
     }
 }
+
+{
+    # from Robin Houston
+
+    my $x = "\x{12345678}";
+    $x =~ s/(.)/$1/g;
+    print "not " unless ord($x) == 0x12345678 && length($x) == 1;
+    print "ok 587\n";
+}