From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Fri, 5 Jan 2001 00:47:39 +0000 (+0000)
Subject: Add some Unicode chop() tests.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=9b83640ace8ecce9f2982167e5a081c8e8452fd7;p=p5sagit%2Fp5-mst-13.2.git

Add some Unicode chop() tests.

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

diff --git a/t/op/chop.t b/t/op/chop.t
index 6723ca3..65d0669 100755
--- a/t/op/chop.t
+++ b/t/op/chop.t
@@ -1,6 +1,6 @@
 #!./perl
 
-print "1..30\n";
+print "1..33\n";
 
 # optimized
 
@@ -89,3 +89,17 @@ $_ = "ab\n";
 $/ = \3;
 print chomp() == 0 ? "ok 29\n" : "not ok 29\n";
 print $_ eq "ab\n" ? "ok 30\n" : "not ok 30\n";
+
+# Go Unicode.
+
+$_ = "abc\x{1234}";
+chop;
+print $_ eq "abc" ? "ok 31\n" : "not ok 31\n";
+
+$_ = "abc\x{1234}d";
+chop;
+print $_ eq "abc\x{1234}" ? "ok 32\n" : "not ok 32\n";
+
+$_ = "\x{1234}\x{2345}";
+chop;
+print $_ eq "\x{1234}" ? "ok 33\n" : "not ok 33\n";