summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2006-09-04 21:34:58 (GMT)
committerdgp <dgp@users.sourceforge.net>2006-09-04 21:34:58 (GMT)
commit000ee4180b53ec8878676aafcb4777947786def7 (patch)
treee5f44f07600b94bd8678f0b9f3df0fee27876c64
parent410d087dcbd593635b27707dfbda7795e878d320 (diff)
downloadtcl-000ee4180b53ec8878676aafcb4777947786def7.zip
tcl-000ee4180b53ec8878676aafcb4777947786def7.tar.gz
tcl-000ee4180b53ec8878676aafcb4777947786def7.tar.bz2
* tests/main.text (Tcl_Main-4.4): Test corrected to not be
timing sensitive to the Bug 1481986 fix. [Bug 1550858]
-rw-r--r--ChangeLog5
-rw-r--r--tests/main.test6
2 files changed, 8 insertions, 3 deletions
diff --git a/ChangeLog b/ChangeLog
index 6877c33..84bc188 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2006-09-04 Don Porter <dgp@users.sourceforge.net>
+
+ * tests/main.text (Tcl_Main-4.4): Test corrected to not be
+ timing sensitive to the Bug 1481986 fix. [Bug 1550858]
+
2006-09-04 Jeff Hobbs <jeffh@ActiveState.com>
* doc/package.n: correct package example
diff --git a/tests/main.test b/tests/main.test
index 689d9f0..7842644 100644
--- a/tests/main.test
+++ b/tests/main.test
@@ -1,6 +1,6 @@
# This file contains a collection of tests for generic/tclMain.c.
#
-# RCS: @(#) $Id: main.test,v 1.19 2006/05/05 18:09:47 dgp Exp $
+# RCS: @(#) $Id: main.test,v 1.20 2006/09/04 21:34:58 dgp Exp $
if {[catch {package require tcltest 2.0.2}]} {
puts stderr "Skipping tests in [info script]. tcltest 2.0.2 required."
@@ -546,7 +546,7 @@ namespace eval ::tcl::test::main {
}
} rc]
} -body {
- exec [interpreter] << {puts "In script"} \
+ exec [interpreter] << {} \
-appinitprocsetrcfile $rc >& result
set f [open result]
read $f
@@ -555,7 +555,7 @@ namespace eval ::tcl::test::main {
file delete result
removeFile rc
} -result "application-specific initialization failed:\
- \nIn script\nExit MainLoop\nIn exit\neven 0\n"
+ \nExit MainLoop\nIn exit\neven 0\n"
test Tcl_Main-4.5 {
Tcl_Main: Bug 1481986