From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Fri, 2 Nov 2001 01:26:53 +0000 (+0000)
Subject: The basic character classes seem to go untested with Unicode.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ef54fa25bf4f09581f3509c1a3f2378c860a680e;p=p5sagit%2Fp5-mst-13.2.git

The basic character classes seem to go untested with Unicode.

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

diff --git a/t/op/pat.t b/t/op/pat.t
index 9937e36..a94fcaf 100755
--- a/t/op/pat.t
+++ b/t/op/pat.t
@@ -6,7 +6,7 @@
 
 $| = 1;
 
-print "1..750\n";
+print "1..753\n";
 
 BEGIN {
     chdir 't' if -d 't';
@@ -2258,3 +2258,16 @@ print "# some Unicode properties\n";
     print "ok 750\n";
 }
 
+{
+    # 0100;LATIN CAPITAL LETTER A WITH MACRON;Lu;0;L;0041 0304;;;;N;LATIN CAPITAL LETTER A MACRON;;;0101;
+    print "not " unless "\x{0100}" =~ /\w/;
+    print "ok 751\n";
+
+    # 0660;ARABIC-INDIC DIGIT ZERO;Nd;0;AN;;0;0;0;N;;;;;
+    print "not " unless "\x{0660}" =~ /\d/;
+    print "ok 752\n";
+
+    # 1680;OGHAM SPACE MARK;Zs;0;WS;;;;;N;;;;;
+    print "not " unless "\x{1680}" =~ /\s/;
+    print "ok 753\n";
+}