From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sat, 12 Jan 2002 20:08:54 +0000 (+0000)
Subject: Couple more Unicode lookbehind tests.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=03248d55dd406c902aa77dfb9ced71d28a6d2022;p=p5sagit%2Fp5-mst-13.2.git

Couple more Unicode lookbehind tests.

p4raw-id: //depot/perl@14223
---

diff --git a/t/op/pat.t b/t/op/pat.t
index edd34b7..8de9b82 100755
--- a/t/op/pat.t
+++ b/t/op/pat.t
@@ -6,7 +6,7 @@
 
 $| = 1;
 
-print "1..850\n";
+print "1..852\n";
 
 BEGIN {
     chdir 't' if -d 't';
@@ -2656,4 +2656,6 @@ print "# some Unicode properties\n";
 
     print "A\x{100}B"        =~ /(?<=A.)B/  ? "ok 849\n" : "not ok 849\n";
     print "A\x{200}\x{300}B" =~ /(?<=A..)B/ ? "ok 850\n" : "not ok 850\n";
+    print "\x{400}AB"        =~ /(?<=\x{400}.)B/ ? "ok 851\n" : "not ok 851\n";
+    print "\x{500\x{600}}B"  =~ /(?<=\x{500}.)B/ ? "ok 852\n" : "not ok 852\n";
 }