Tcl Source Code

Check-in [bc0459f5c3]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Stop creating a stray child process.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | core-8-5-branch
Files: files | file ages | folders
SHA3-256:bc0459f5c3b2b56fa694bcd8cb19890f348f91e1fa3496bfbcf2f15e0b915174
User & Date: dgp 2018-06-13 15:59:15
Context
2018-06-15
18:31
Align common install locations in SC_PATH_TCLCONFIG and SC_PATH_TKCONFIG. Add FreeBSD (closes [d6d60... check-in: 4790e733ef user: jan.nijtmans tags: core-8-5-branch
2018-06-13
16:06
merge 8.5 check-in: c93af39cb0 user: dgp tags: core-8-6-branch
15:59
Stop creating a stray child process. check-in: bc0459f5c3 user: dgp tags: core-8-5-branch
2018-06-12
17:10
[860a9f1945] Remove test safe-8.8; Mac OS 9 tests are no longer useful. check-in: 3a43176c2a user: dgp tags: core-8-5-branch
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to tests/main.test.

1214
1215
1216
1217
1218
1219
1220
1221
1222
1223
1224
1225
1226
1227
1228
1229
	file delete result
    } -result "1\nExit MainLoop\n"

    test Tcl_Main-8.13 {
	Bug 1775878
    } -constraints {
	exec Tcltest
    } -setup {
	catch {set f [open "|[list [interpreter]]" w+]}
    } -body {
	exec [interpreter] << "testsetmainloop\nputs \\\npwd\ntestexitmainloop" >& result
	set f [open result]
	read $f
    } -cleanup {
	close $f
	file delete result







<
<







1214
1215
1216
1217
1218
1219
1220


1221
1222
1223
1224
1225
1226
1227
	file delete result
    } -result "1\nExit MainLoop\n"

    test Tcl_Main-8.13 {
	Bug 1775878
    } -constraints {
	exec Tcltest


    } -body {
	exec [interpreter] << "testsetmainloop\nputs \\\npwd\ntestexitmainloop" >& result
	set f [open result]
	read $f
    } -cleanup {
	close $f
	file delete result