From ef54fa25bf4f09581f3509c1a3f2378c860a680e Mon Sep 17 00:00:00 2001
From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Fri, 2 Nov 2001 01:26:53 +0000
Subject: The basic character classes seem to go untested with Unicode.

p4raw-id: //depot/perl@12803
---
 t/op/pat.t | 15 ++++++++++++++-
 1 file changed, 14 insertions(+), 1 deletion(-)

diff --git a/t/op/pat.t b/t/op/pat.t
index 9937e363b7..a94fcaf9ea 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";
+}
-- 
cgit v1.2.1