Tcl Source Code

Check-in [fae0174e02]
Login
☰Core Home Timeline Branches Tags Tickets Download Wiki

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

Overview
Comment:merge 8.6
Downloads: Tarball | ZIP archive
Timelines: family | ancestors | descendants | both | rc0 | core-8-6-9-rc
Files: files | file ages | folders
SHA3-256: fae0174e0237f99d1f17d828ebcd6bf1c9627769acae64da96711b91f6421153
User & Date: dgp 2018-10-09 18:27:57.305
Context
2018-10-10
23:04
Backport test fix. check-in: a5f5207521 user: dgp tags: core-8-6-9-rc
2018-10-09
18:27
merge 8.6 check-in: fae0174e02 user: dgp tags: rc0, core-8-6-9-rc
18:24
Use the 4 argument form of [makeFile]. check-in: 85248d5e90 user: dgp tags: core-8-6-branch
13:51
merge 8.6 check-in: 6b5cda39f6 user: dgp tags: core-8-6-9-rc
Changes
Side-by-Side Diff Ignore Whitespace Patch
Changes to tests/winPipe.test.
︙
319
320
321
322
323
324
325
326
327
328



329
330
331
332
333
334
335

319
320
321
322
323
324
325



326
327
328
329
330
331
332
333
334
335








-
-
-
+
+
+








	set path(echoArgs.bat) [makeFile "@[file native [interpreter]] $path(echoArgs.tcl) %*" "echoArgs.bat"]
    }
    set cmds [list [list [interpreter] $path(echoArgs.tcl)]]
    if {!($single & 2)} {
	lappend cmds [list $path(echoArgs.bat)]
    } else {
	if {![info exists path(echoArgs2.bat)] || ![file exists $path(echoArgs2.bat)]} {
	    file mkdir [file join [temporaryDirectory] test(Dir)Check]
	    set path(echoArgs2.bat) [makeFile "@[file native [interpreter]] $path(echoArgs.tcl) %*" \
		"test(Dir)Check/echo(Cmd)Test Args & Batch.bat"]
	    set path(echoArgs2.bat) [makeFile \
		"@[file native [interpreter]] $path(echoArgs.tcl) %*" \
		"echo(Cmd)Test Args & Batch.bat" [makeDirectory test(Dir)Check]]
	}
	lappend cmds [list $path(echoArgs2.bat)]
    }
    set broken {}
    foreach args $args {
	if {$single & 1} {
	    # enclose single test-arg between 1st/3rd to be sure nothing is truncated
︙
599
600
601
602
603
604
605
606
607
608



609
610
611
612
613
614

599
600
601
602
603
604
605



606
607
608
609
610
611
612
613
614








-
-
-
+
+
+







# cleanup
removeFile little
removeFile big
removeFile more
removeFile stdout
removeFile stderr
removeFile nothing
removeFile echoArgs.tcl
removeFile echoArgs.bat
file delete -force [file join [temporaryDirectory] test(Dir)Check]
if {[info exists path(echoArgs.tcl)]} { removeFile echoArgs.tcl }
if {[info exists path(echoArgs.bat)]} { removeFile echoArgs.bat }
if {[info exists path(echoArgs2.bat)]} { removeDirectory test(Dir)Check }
::tcltest::cleanupTests
return

# Local Variables:
# mode: tcl
# End:
This page was generated in about 0.016s by Fossil 2.27 [a6d506ecc4] 2025-07-09 13:52:53