From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sat, 30 Dec 2000 17:18:40 +0000 (+0000)
Subject: Add a test for Unicode split //.  The #8267 was the cure.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=5a2d9fa29c136c74882bc9b7afca3c36badfe150;p=p5sagit%2Fp5-mst-13.2.git

Add a test for Unicode split //.  The #8267 was the cure.

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

diff --git a/t/op/split.t b/t/op/split.t
index 9a6586d..90c38e0 100755
--- a/t/op/split.t
+++ b/t/op/split.t
@@ -1,6 +1,6 @@
 #!./perl
 
-print "1..29\n";
+print "1..30\n";
 
 $FS = ':';
 
@@ -127,3 +127,8 @@ print "ok 28\n";
 $_ = join ':', split /(?=\w)/, "rm b";
 print "not" if $_ ne "r:m :b";
 print "ok 29\n";
+
+# unicode splittage
+@ary = map {ord} split //, v1.20.300.4000.50000.4000.300.20.1;
+print "not " unless "@ary" eq "1 20 300 4000 50000 4000 300 20 1";
+print "ok 30\n";