From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Wed, 10 Jan 2001 03:17:54 +0000 (+0000)
Subject: Test cases for #8385 (from Simon's "torture.pl")
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=a1874b66a2e595b5c1284f57f900fb844c8d8fa3;p=p5sagit%2Fp5-mst-13.2.git

Test cases for #8385 (from Simon's "torture.pl")

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

diff --git a/t/op/tr.t b/t/op/tr.t
index 8d6dd98..6a4e1aa 100755
--- a/t/op/tr.t
+++ b/t/op/tr.t
@@ -5,7 +5,7 @@ BEGIN {
     @INC = '../lib';
 }
 
-print "1..46\n";
+print "1..49\n";
 
 $_ = "abcdefghijklmnopqrstuvwxyz";
 
@@ -273,3 +273,17 @@ print "ok 45\n";
 print "not " unless $a eq v196.172.301.196.172.172;
 print "ok 46\n";
 
+# Tricky cases by Simon Cozens.
+
+($a = v196.172.200) =~ tr/\x{12c}/a/;
+print "not " unless sprintf("%vd", $a) eq '196.172.200';
+print "ok 47\n";
+
+($a = v196.172.200) =~ tr/\x{12c}/\x{12c}/;
+print "not " unless sprintf("%vd", $a) eq '196.172.200';
+print "ok 48\n";
+
+($a = v196.172.200) =~ tr/\x{12c}//d;
+print "not " unless sprintf("%vd", $a) eq '196.172.200';
+print "ok 49\n";
+