Once again syncing after too long an absence

[p5sagit/p5-mst-13.2.git] / t / op / split.t

diff --git a/t/op/split.t b/t/op/split.t
index 45df76a..90c38e0 100755 (executable)
--- a/t/op/split.t
+++ b/t/op/split.t
@@ -1,6 +1,6 @@
 #!./perl
 
-print "1..28\n";
+print "1..30\n";
 
 $FS = ':';
 
@@ -122,3 +122,13 @@ print "ok 27\n";
 print "not " if @list1 != @list2 or "@list1" ne "@list2"
              or @list1 != 2 or "@list1" ne "a   b c ";
 print "ok 28\n";
+
+# zero-width assertion
+$_ = 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";