From 1d5f32d6e963a738e0272039e6385ff8ad0d069c Mon Sep 17 00:00:00 2001
From: rjohnson <rjohnson>
Date: Thu, 8 Jul 1999 02:57:17 +0000
Subject: Fixed broken utility function makeFile.

---
 library/tcltest/tcltest.tcl    | 9 ++-------
 library/tcltest1.0/tcltest.tcl | 9 ++-------
 2 files changed, 4 insertions(+), 14 deletions(-)

diff --git a/library/tcltest/tcltest.tcl b/library/tcltest/tcltest.tcl
index bc7e5e2..91e7630 100644
--- a/library/tcltest/tcltest.tcl
+++ b/library/tcltest/tcltest.tcl
@@ -12,7 +12,7 @@
 # Copyright (c) 1998-1999 by Scriptics Corporation.
 # All rights reserved.
 # 
-# RCS: @(#) $Id: tcltest.tcl,v 1.3 1999/07/02 20:39:52 jenn Exp $
+# RCS: @(#) $Id: tcltest.tcl,v 1.4 1999/07/08 02:57:17 rjohnson Exp $
 
 package provide tcltest 1.0
 
@@ -1362,12 +1362,7 @@ proc ::tcltest::makeFile {contents name} {
 	puts "::tcltest::makeFile: putting $contents into $name"
     }
     set fd [open $name w]
-
-    # Doing the translation breaks TclPro Checker tests
-    # under Windows 
-    if {[string equal $tcl_platform(platform) "unix"]} {
-	fconfigure $fd -translation lf
-    }
+    fconfigure $fd -translation lf
 
     if {[string equal \
 	    [string index $contents [expr {[string length $contents] - 1}]] \
diff --git a/library/tcltest1.0/tcltest.tcl b/library/tcltest1.0/tcltest.tcl
index bc7e5e2..91e7630 100644
--- a/library/tcltest1.0/tcltest.tcl
+++ b/library/tcltest1.0/tcltest.tcl
@@ -12,7 +12,7 @@
 # Copyright (c) 1998-1999 by Scriptics Corporation.
 # All rights reserved.
 # 
-# RCS: @(#) $Id: tcltest.tcl,v 1.3 1999/07/02 20:39:52 jenn Exp $
+# RCS: @(#) $Id: tcltest.tcl,v 1.4 1999/07/08 02:57:17 rjohnson Exp $
 
 package provide tcltest 1.0
 
@@ -1362,12 +1362,7 @@ proc ::tcltest::makeFile {contents name} {
 	puts "::tcltest::makeFile: putting $contents into $name"
     }
     set fd [open $name w]
-
-    # Doing the translation breaks TclPro Checker tests
-    # under Windows 
-    if {[string equal $tcl_platform(platform) "unix"]} {
-	fconfigure $fd -translation lf
-    }
+    fconfigure $fd -translation lf
 
     if {[string equal \
 	    [string index $contents [expr {[string length $contents] - 1}]] \
-- 
cgit v0.12