summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorrjohnson <rjohnson>1999-07-08 02:57:17 (GMT)
committerrjohnson <rjohnson>1999-07-08 02:57:17 (GMT)
commit1d5f32d6e963a738e0272039e6385ff8ad0d069c (patch)
tree82a49812555b7264203215ab701cf415945a692b
parent95230d707c09070e97548fa70c5e05072b1976dc (diff)
downloadtcl-1d5f32d6e963a738e0272039e6385ff8ad0d069c.zip
tcl-1d5f32d6e963a738e0272039e6385ff8ad0d069c.tar.gz
tcl-1d5f32d6e963a738e0272039e6385ff8ad0d069c.tar.bz2
Fixed broken utility function makeFile.
-rw-r--r--library/tcltest/tcltest.tcl9
-rw-r--r--library/tcltest1.0/tcltest.tcl9
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}]] \