From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Mon, 19 Apr 2004 08:57:17 +0000 (+0000)
Subject: New file left out of the last commit.
X-Git-Tag: perl-5.9.2~1083
X-Git-Url: https://perl5.git.perl.org/perl5.git/commitdiff_plain/0f1b7392b6ef0fdb863906170718343a907e3a42?ds=inline

New file left out of the last commit.

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

diff --git a/t/uni/class.t b/t/uni/class.t
new file mode 100644
index 0000000..24f65fa
--- /dev/null
+++ b/t/uni/class.t
@@ -0,0 +1,41 @@
+BEGIN {
+    chdir 't' if -d 't';
+    @INC = qw(../lib .);
+    require "test.pl";
+}
+
+plan tests => 4;
+
+sub MyUniClass {
+  <<END;
+0030	004F
+END
+}
+
+sub Other::Class {
+  <<END;
+0040	005F
+END
+}
+
+sub A::B::Intersection {
+  <<END;
++main::MyUniClass
+&Other::Class
+END
+}
+
+
+my $str = join "", map chr($_), 0x20 .. 0x6F;
+
+# make sure it finds built-in class
+is(($str =~ /(\p{Letter}+)/)[0], 'ABCDEFGHIJKLMNOPQRSTUVWXYZ');
+
+# make sure it finds user-defined class
+is(($str =~ /(\p{MyUniClass}+)/)[0], '0123456789:;<=>?@ABCDEFGHIJKLMNO');
+
+# make sure it finds class in other package
+is(($str =~ /(\p{Other::Class}+)/)[0], '@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_');
+
+# make sure it finds class in other OTHER package
+is(($str =~ /(\p{A::B::Intersection}+)/)[0], '@ABCDEFGHIJKLMNO');