From: Rafael Garcia-Suarez Date: Mon, 19 Apr 2004 08:57:17 +0000 (+0000) Subject: New file left out of the last commit. X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=0f1b7392b6ef0fdb863906170718343a907e3a42;p=p5sagit%2Fp5-mst-13.2.git 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 { + <?@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');