Integrate changes #9544,9547,9549(perlio),9550,9551 from

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

diff --git a/t/op/tr.t b/t/op/tr.t
index c7b4461..90b0370 100755 (executable)
--- a/t/op/tr.t
+++ b/t/op/tr.t
@@ -5,7 +5,7 @@ BEGIN {
     @INC = '../lib';
 }
 
-print "1..66\n";
+print "1..67\n";
 
 $_ = "abcdefghijklmnopqrstuvwxyz";
 
@@ -370,3 +370,9 @@ print "ok 65\n";
 $a = "\xfe\xff"; $a =~ tr/\xfe\xff/\x{1ff}\x{1fe}/;
 print "not " unless $a eq "\x{1ff}\x{1fe}";
 print "ok 66\n";
+
+# From David Dyck
+($a = "R0_001") =~ tr/R_//d;
+print "not " if hex($a) != 1;
+print "ok 67\n";
+