From 629b45841d15418d44d20fd831d8af280e4f939e Mon Sep 17 00:00:00 2001
From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sun, 1 Apr 2001 05:58:23 +0000
Subject: Test for #9499.

p4raw-id: //depot/perl@9500
---
 t/op/tr.t | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 't/op/tr.t')

diff --git a/t/op/tr.t b/t/op/tr.t
index e815cf2563..c7b446196c 100755
--- a/t/op/tr.t
+++ b/t/op/tr.t
@@ -5,7 +5,7 @@ BEGIN {
     @INC = '../lib';
 }
 
-print "1..65\n";
+print "1..66\n";
 
 $_ = "abcdefghijklmnopqrstuvwxyz";
 
@@ -367,3 +367,6 @@ print "ok 64\n";
 print "not " unless $a eq "\x{100}";
 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";
-- 
cgit v1.2.1