X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fpragma%2Futf8.t;h=8db3d1a3053d4eb4ef3c978273c8028590571e3c;hb=be341bcebb03d2f97192fb78a6a1bc33c7bca5ce;hp=01b0f0529c8e1adabecf4fe7ce309e1b12f265d4;hpb=0f4b663008b5032408c35f3557d9d5c2790d3fcb;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/t/pragma/utf8.t b/t/pragma/utf8.t
index 01b0f05..8db3d1a 100755
--- a/t/pragma/utf8.t
+++ b/t/pragma/utf8.t
@@ -4,9 +4,13 @@ BEGIN {
     chdir 't' if -d 't';
     unshift @INC, '../lib';
     $ENV{PERL5LIB} = '../lib';
+    if ( ord("\t") != 9 ) { # skip on ebcdic platforms
+        print "1..0 # Skip utf8 tests on ebcdic platform.\n";
+        exit;
+    }
 }
 
-print "1..12\n";
+print "1..65\n";
 
 my $test = 1;
 
@@ -16,67 +20,272 @@ sub ok {
     print "ok $test\n";
 }
 
+sub ok_bytes {
+    use bytes;
+    my ($got,$expect) = @_;
+    print "# expected [$expect], got [$got]\nnot " if $got ne $expect;
+    print "ok $test\n";
+}
+
+
 {
     use utf8;
     $_ = ">\x{263A}<"; 
     s/([\x{80}-\x{10ffff}])/"&#".ord($1).";"/eg; 
     ok $_, '>&#9786;<';
-    $test++;
+    $test++;				# 1
 
     $_ = ">\x{263A}<"; 
     my $rx = "\x{80}-\x{10ffff}";
     s/([$rx])/"&#".ord($1).";"/eg; 
     ok $_, '>&#9786;<';
-    $test++;
+    $test++;				# 2
 
     $_ = ">\x{263A}<"; 
     my $rx = "\\x{80}-\\x{10ffff}";
     s/([$rx])/"&#".ord($1).";"/eg; 
     ok $_, '>&#9786;<';
-    $test++;
+    $test++;				# 3
 
     $_ = "alpha,numeric"; 
     m/([[:alpha:]]+)/; 
     ok $1, 'alpha';
-    $test++;
+    $test++;				# 4
 
     $_ = "alphaNUMERICstring";
     m/([[:^lower:]]+)/; 
     ok $1, 'NUMERIC';
-    $test++;
+    $test++;				# 5
 
     $_ = "alphaNUMERICstring";
     m/(\p{Ll}+)/; 
     ok $1, 'alpha';
-    $test++;
+    $test++;				# 6
 
     $_ = "alphaNUMERICstring"; 
     m/(\p{Lu}+)/; 
     ok $1, 'NUMERIC';
-    $test++;
+    $test++;				# 7
 
     $_ = "alpha,numeric"; 
     m/([\p{IsAlpha}]+)/; 
     ok $1, 'alpha';
-    $test++;
+    $test++;				# 8
 
     $_ = "alphaNUMERICstring";
     m/([^\p{IsLower}]+)/; 
     ok $1, 'NUMERIC';
-    $test++;
+    $test++;				# 9
 
     $_ = "alpha123numeric456"; 
     m/([\p{IsDigit}]+)/; 
     ok $1, '123';
-    $test++;
+    $test++;				# 10
 
     $_ = "alpha123numeric456"; 
     m/([^\p{IsDigit}]+)/; 
     ok $1, 'alpha';
-    $test++;
+    $test++;				# 11
 
     $_ = ",123alpha,456numeric"; 
     m/([\p{IsAlnum}]+)/; 
     ok $1, '123alpha';
-    $test++;
+    $test++;				# 12
+}
+{
+    use utf8;
+
+    $_ = "\x{263A}>\x{263A}\x{263A}"; 
+
+    ok length, 4;
+    $test++;				# 13
+
+    ok length((m/>(.)/)[0]), 1;
+    $test++;				# 14
+
+    ok length($&), 2;
+    $test++;				# 15
+
+    ok length($'), 1;
+    $test++;				# 16
+
+    ok length($`), 1;
+    $test++;				# 17
+
+    ok length($1), 1;
+    $test++;				# 18
+
+    ok length($tmp=$&), 2;
+    $test++;				# 19
+
+    ok length($tmp=$'), 1;
+    $test++;				# 20
+
+    ok length($tmp=$`), 1;
+    $test++;				# 21
+
+    ok length($tmp=$1), 1;
+    $test++;				# 22
+
+    {
+	use bytes;
+
+	my $tmp = $&;
+	ok $tmp, pack("C*", ord(">"), 0342, 0230, 0272);
+	$test++;				# 23
+
+	$tmp = $';
+	ok $tmp, pack("C*", 0342, 0230, 0272);
+	$test++;				# 24
+
+	$tmp = $`;
+	ok $tmp, pack("C*", 0342, 0230, 0272);
+	$test++;				# 25
+
+	$tmp = $1;
+	ok $tmp, pack("C*", 0342, 0230, 0272);
+	$test++;				# 26
+    }
+
+    ok_bytes $&, pack("C*", ord(">"), 0342, 0230, 0272);
+    $test++;				# 27
+
+    ok_bytes $', pack("C*", 0342, 0230, 0272);
+    $test++;				# 28
+
+    ok_bytes $`, pack("C*", 0342, 0230, 0272);
+    $test++;				# 29
+
+    ok_bytes $1, pack("C*", 0342, 0230, 0272);
+    $test++;				# 30
+
+    {
+	use bytes;
+	no utf8;
+
+	ok length, 10;
+	$test++;				# 31
+
+    	ok length((m/>(.)/)[0]), 1;
+    	$test++;				# 32
+
+    	ok length($&), 2;
+    	$test++;				# 33
+
+    	ok length($'), 5;
+    	$test++;				# 34
+
+    	ok length($`), 3;
+    	$test++;				# 35
+
+    	ok length($1), 1;
+    	$test++;				# 36
+
+	ok $&, pack("C*", ord(">"), 0342);
+	$test++;				# 37
+
+	ok $', pack("C*", 0230, 0272, 0342, 0230, 0272);
+	$test++;				# 38
+
+	ok $`, pack("C*", 0342, 0230, 0272);
+	$test++;				# 39
+
+	ok $1, pack("C*", 0342);
+	$test++;				# 40
+
+    }
+
+
+    {
+	no utf8;
+	$_="\342\230\272>\342\230\272\342\230\272";
+    }
+
+    ok length, 10;
+    $test++;				# 41
+
+    ok length((m/>(.)/)[0]), 1;
+    $test++;				# 42
+
+    ok length($&), 2;
+    $test++;				# 43
+
+    ok length($'), 1;
+    $test++;				# 44
+
+    ok length($`), 1;
+    $test++;				# 45
+
+    ok length($1), 1;
+    $test++;				# 46
+
+    ok length($tmp=$&), 2;
+    $test++;				# 47
+
+    ok length($tmp=$'), 1;
+    $test++;				# 48
+
+    ok length($tmp=$`), 1;
+    $test++;				# 49
+
+    ok length($tmp=$1), 1;
+    $test++;				# 50
+
+    {
+	use bytes;
+
+        my $tmp = $&;
+	ok $tmp, pack("C*", ord(">"), 0342, 0230, 0272);
+	$test++;				# 51
+
+        $tmp = $';
+	ok $tmp, pack("C*", 0342, 0230, 0272);
+	$test++;				# 52
+
+        $tmp = $`;
+	ok $tmp, pack("C*", 0342, 0230, 0272);
+	$test++;				# 53
+
+        $tmp = $1;
+	ok $tmp, pack("C*", 0342, 0230, 0272);
+	$test++;				# 54
+    }
+    {
+	use bytes;
+	no utf8;
+
+	ok length, 10;
+	$test++;				# 55
+
+    	ok length((m/>(.)/)[0]), 1;
+    	$test++;				# 56
+
+    	ok length($&), 2;
+    	$test++;				# 57
+
+    	ok length($'), 5;
+    	$test++;				# 58
+
+    	ok length($`), 3;
+    	$test++;				# 59
+
+    	ok length($1), 1;
+    	$test++;				# 60
+
+	ok $&, pack("C*", ord(">"), 0342);
+	$test++;				# 61
+
+	ok $', pack("C*", 0230, 0272, 0342, 0230, 0272);
+	$test++;				# 62
+
+	ok $`, pack("C*", 0342, 0230, 0272);
+	$test++;				# 63
+
+	ok $1, pack("C*", 0342);
+	$test++;				# 64
+
+    }
+
+    ok "\x{ab}" =~ /^\x{ab}$/, 1;
+    $test++;					# 65
 }