From 1c18b5b6965b64591b52b118d863cb8e109fb8a1 Mon Sep 17 00:00:00 2001
From: hobbs <hobbs>
Date: Sat, 2 Mar 2002 04:57:29 +0000
Subject: corrected iso2022 return encoding escape

---
 tests/io.test | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/tests/io.test b/tests/io.test
index 6c8cf79..43c4072 100644
--- a/tests/io.test
+++ b/tests/io.test
@@ -12,7 +12,7 @@
 # See the file "license.terms" for information on usage and redistribution
 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 #
-# RCS: @(#) $Id: io.test,v 1.26 2002/02/15 14:28:50 dkf Exp $
+# RCS: @(#) $Id: io.test,v 1.27 2002/03/02 04:57:29 hobbs Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     package require tcltest
@@ -101,7 +101,7 @@ test io-1.8 {Tcl_WriteChars: WriteChars} {
     puts -nonewline $f [format %s%c [string repeat " " 4] 12399] 
     close           $f 
     contents test2
-} "\x1b(B    \x1b\$@\$O"
+} "\x1b(B    \x1b\$B\$O"
 
 test io-2.1 {WriteBytes} {
     # loop until all bytes are written
-- 
cgit v0.12