From f419d4778cbdb4ba189a8ba5b2d0d9acc4f68392 Mon Sep 17 00:00:00 2001
From: stanton <stanton>
Date: Tue, 23 Nov 1999 22:59:12 +0000
Subject: * library/tcltest1.0/tcltest.tcl: Fixed bug where tcltest output went
 to stdout instead of the specified output file in some cases.

---
 ChangeLog                      | 6 ++++++
 library/tcltest/tcltest.tcl    | 5 +++--
 library/tcltest1.0/tcltest.tcl | 5 +++--
 3 files changed, 12 insertions(+), 4 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index e54b964..c5e0aa3 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+1999-11-23  Scott Stanton  <stanton@scriptics.com>
+
+	* library/tcltest1.0/tcltest.tcl: Fixed bug where tcltest output
+	went to stdout instead of the specified output file in some
+	cases.
+
 1999-11-19  Jeff Hobbs  <hobbs@scriptics.com>
 
 	* generic/tclProc.c: backed out change from 1999-11-18 as it
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)
 	    }
 	}
-- 
cgit v0.12