Tcl Source Code

Check-in [c93af39cb0]
Login

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

Overview
Comment:merge 8.5
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | core-8-6-branch
Files: files | file ages | folders
SHA3-256:c93af39cb0373deced44e4d42d2b4228550c18e08799ddc7c7ae7004b17c219b
User & Date: dgp 2018-06-13 16:06:38
Context
2018-06-15
18:35
merge 8.5 check-in: e40bbfb746 user: jan.nijtmans tags: core-8-6-branch
2018-06-13
16:12
merge 8.6 check-in: 596aa0c944 user: dgp tags: core-8-branch
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:53
merge 8.5 check-in: 04e0eeb104 user: dgp tags: core-8-6-branch
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to tests/main.test.

1206
1207
1208
1209
1210
1211
1212
1213
1214
1215
1216
1217
1218
1219
1220
1221
	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







<
<







1206
1207
1208
1209
1210
1211
1212


1213
1214
1215
1216
1217
1218
1219
	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