summaryrefslogtreecommitdiffstats
path: root/library
diff options
context:
space:
mode:
authorstanton <stanton>1999-11-23 22:59:12 (GMT)
committerstanton <stanton>1999-11-23 22:59:12 (GMT)
commitf419d4778cbdb4ba189a8ba5b2d0d9acc4f68392 (patch)
tree309a9dd3f809605628214c341cf03c14ceda6d19 /library
parentca8c104bda2a3dc8f0eea0de1fdb8d7bce522cec (diff)
downloadtcl-f419d4778cbdb4ba189a8ba5b2d0d9acc4f68392.zip
tcl-f419d4778cbdb4ba189a8ba5b2d0d9acc4f68392.tar.gz
tcl-f419d4778cbdb4ba189a8ba5b2d0d9acc4f68392.tar.bz2
* library/tcltest1.0/tcltest.tcl: Fixed bug where tcltest output
went to stdout instead of the specified output file in some cases.
Diffstat (limited to 'library')
-rw-r--r--library/tcltest/tcltest.tcl5
-rw-r--r--library/tcltest1.0/tcltest.tcl5
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)
}
}