diff options
| author | dgp <dgp@users.sourceforge.net> | 2006-09-04 21:34:58 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2006-09-04 21:34:58 (GMT) |
| commit | 000ee4180b53ec8878676aafcb4777947786def7 (patch) | |
| tree | e5f44f07600b94bd8678f0b9f3df0fee27876c64 /tests/main.test | |
| parent | 410d087dcbd593635b27707dfbda7795e878d320 (diff) | |
| download | tcl-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]
Diffstat (limited to 'tests/main.test')
| -rw-r--r-- | tests/main.test | 6 |
1 files changed, 3 insertions, 3 deletions
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 |