From de143171e074911fc2529d1d2f33e6b484a8eb18 Mon Sep 17 00:00:00 2001
From: hobbs <hobbs>
Date: Wed, 23 May 2001 23:22:43 +0000
Subject: 	* tests/io.test: changed io-52.[9-11] to not be platform
 sensitive 	with EOL translation.

---
 tests/io.test | 27 ++++++++++++++-------------
 1 file changed, 14 insertions(+), 13 deletions(-)

diff --git a/tests/io.test b/tests/io.test
index c193793..b77c6c6 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.17 2001/05/19 16:59:04 andreas_kupries Exp $
+# RCS: @(#) $Id: io.test,v 1.18 2001/05/23 23:22:43 hobbs Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     package require tcltest
@@ -6374,9 +6374,9 @@ makeFile {} kyrillic.txt
 makeFile {} utf8-fcopy.txt
 makeFile {} utf8-rp.txt
 
-# Create kyrillic file
+# Create kyrillic file, use lf translation to avoid os eol issues
 set out [open kyrillic.txt w]
-fconfigure $out -encoding koi8-r
+fconfigure $out -encoding koi8-r -translation lf
 puts       $out "\u0410\u0410"
 close      $out
 
@@ -6386,8 +6386,8 @@ test io-52.9 {TclCopyChannel & encodings} {
     set in  [open kyrillic.txt r]
     set out [open utf8-fcopy.txt w]
 
-    fconfigure $in  -encoding koi8-r
-    fconfigure $out -encoding utf-8
+    fconfigure $in  -encoding koi8-r -translation lf
+    fconfigure $out -encoding utf-8 -translation lf
 
     fcopy $in $out
     close $in
@@ -6398,16 +6398,15 @@ test io-52.9 {TclCopyChannel & encodings} {
     set in  [open kyrillic.txt r]
     set out [open utf8-rp.txt w]
 
-    fconfigure $in  -encoding koi8-r
-    fconfigure $out -encoding utf-8
+    fconfigure $in  -encoding koi8-r -translation lf
+    fconfigure $out -encoding utf-8 -translation lf
 
     puts -nonewline $out [read $in]
 
     close $in
     close $out
 
-    list \
-	    [file size kyrillic.txt]   \
+    list [file size kyrillic.txt] \
 	    [file size utf8-fcopy.txt] \
 	    [file size utf8-rp.txt]
 } {3 5 5}
@@ -6419,8 +6418,9 @@ test io-52.10 {TclCopyChannel & encodings} {
     set in  [open kyrillic.txt r]
     set out [open utf8-fcopy.txt w]
 
-    fconfigure $in  -encoding koi8-r
-    fconfigure $out -encoding binary
+    fconfigure $in  -encoding koi8-r -translation lf
+    # -translation binary is also -encoding binary
+    fconfigure $out -translation binary
 
     fcopy $in $out
     close $in
@@ -6436,8 +6436,9 @@ test io-52.11 {TclCopyChannel & encodings} {
     set in  [open utf8-fcopy.txt r]
     set out [open kyrillic.txt w]
 
-    fconfigure $in  -encoding binary
-    fconfigure $out -encoding koi8-r
+    # -translation binary is also -encoding binary
+    fconfigure $in  -translation binary
+    fconfigure $out -encoding koi8-r -translation lf
 
     fcopy $in $out
     close $in
-- 
cgit v0.12