diff options
| author | rjohnson <rjohnson> | 1999-07-08 02:57:17 (GMT) |
|---|---|---|
| committer | rjohnson <rjohnson> | 1999-07-08 02:57:17 (GMT) |
| commit | 1d5f32d6e963a738e0272039e6385ff8ad0d069c (patch) | |
| tree | 82a49812555b7264203215ab701cf415945a692b | |
| parent | 95230d707c09070e97548fa70c5e05072b1976dc (diff) | |
| download | tcl-1d5f32d6e963a738e0272039e6385ff8ad0d069c.zip tcl-1d5f32d6e963a738e0272039e6385ff8ad0d069c.tar.gz tcl-1d5f32d6e963a738e0272039e6385ff8ad0d069c.tar.bz2 | |
Fixed broken utility function makeFile.
| -rw-r--r-- | library/tcltest/tcltest.tcl | 9 | ||||
| -rw-r--r-- | 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}]] \ |