diff options
| author | stanton <stanton@noemail.net> | 1999-11-23 22:59:11 (GMT) |
|---|---|---|
| committer | stanton <stanton@noemail.net> | 1999-11-23 22:59:11 (GMT) |
| commit | 2b059611999735c244a9c0ad4b56ec577ccfa61a (patch) | |
| tree | 309a9dd3f809605628214c341cf03c14ceda6d19 /library | |
| parent | e422365f3847b388c1b40b6b275a68f1524ecae8 (diff) | |
| download | tcl-2b059611999735c244a9c0ad4b56ec577ccfa61a.zip tcl-2b059611999735c244a9c0ad4b56ec577ccfa61a.tar.gz tcl-2b059611999735c244a9c0ad4b56ec577ccfa61a.tar.bz2 | |
* library/tcltest1.0/tcltest.tcl: Fixed bug where tcltest output
went to stdout instead of the specified output file in some
cases.
FossilOrigin-Name: b16d36cb823dfcbb0aff242f14f83c3219981d8f
Diffstat (limited to 'library')
| -rw-r--r-- | library/tcltest/tcltest.tcl | 5 | ||||
| -rw-r--r-- | library/tcltest1.0/tcltest.tcl | 5 |
2 files changed, 6 insertions, 4 deletions
diff --git a/library/tcltest/tcltest.tcl b/library/tcltest/tcltest.tcl index 1c86eb7..3f09055 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.19 1999/11/04 18:20:12 jenn Exp $ +# RCS: @(#) $Id: tcltest.tcl,v 1.20 1999/11/23 22:59:13 stanton Exp $ package provide tcltest 1.0 @@ -1228,7 +1228,8 @@ proc ::tcltest::cleanupTests {{calledFromAllFile 0}} { if {[llength $testFilesThatTurded] > 0} { puts $::tcltest::outputChannel "Warning: files left behind:" foreach testFile $testFilesThatTurded { - puts "\t$testFile:\t$::tcltest::createdNewFiles($testFile)" + puts $::tcltest::outputChannel \ + "\t$testFile:\t$::tcltest::createdNewFiles($testFile)" unset ::tcltest::createdNewFiles($testFile) } } diff --git a/library/tcltest1.0/tcltest.tcl b/library/tcltest1.0/tcltest.tcl index 1c86eb7..3f09055 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.19 1999/11/04 18:20:12 jenn Exp $ +# RCS: @(#) $Id: tcltest.tcl,v 1.20 1999/11/23 22:59:13 stanton Exp $ package provide tcltest 1.0 @@ -1228,7 +1228,8 @@ proc ::tcltest::cleanupTests {{calledFromAllFile 0}} { if {[llength $testFilesThatTurded] > 0} { puts $::tcltest::outputChannel "Warning: files left behind:" foreach testFile $testFilesThatTurded { - puts "\t$testFile:\t$::tcltest::createdNewFiles($testFile)" + puts $::tcltest::outputChannel \ + "\t$testFile:\t$::tcltest::createdNewFiles($testFile)" unset ::tcltest::createdNewFiles($testFile) } } |