Tcl Source Code

Check-in [d25d034991]
Login
Bounty program for improvements to Tcl and certain Tcl packages.
Tcl 2019 Conference, Houston/TX, US, Nov 4-8
Send your abstracts to [email protected]
or submit via the online form by Sep 9.

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

Overview
Comment:Balance the [makeFile/makeDirectory] and [removeFile/removeDirectory] calls (conditional now, so avoids warnings in filter/constraint cases).
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | core-8-branch
Files: files | file ages | folders
SHA3-256: d25d034991378dcbee925a35de64965073b9e80a61bd5045f96f24f870806231
User & Date: dkf 2018-10-09 17:56:34
Context
2018-10-09
18:52
Avoid making question marks bold or italic in docs UNLESS EXACTLY MEANINGFUL check-in: 3c5f9fbcbc user: dkf tags: core-8-branch
18:17
Merge 8.7 check-in: 41b954d063 user: jan.nijtmans tags: trunk
18:12
Merge 8.7 Add Unsigned functions to the implementation. TIP text is still far behind describing what... check-in: 9e83b1442d user: jan.nijtmans tags: tip-481
17:56
Balance the [makeFile/makeDirectory] and [removeFile/removeDirectory] calls (conditional now, so avo... check-in: d25d034991 user: dkf tags: core-8-branch
17:55
Balance the [makeFile/makeDirectory] and [removeFile/removeDirectory] calls (conditional now, so avo... check-in: 2c4e477519 user: dkf tags: core-8-6-branch
08:21
Improve documentation of [tcl::process] check-in: 39c1d8084d user: dkf tags: core-8-branch
Changes
Hide Diffs Unified Diffs 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
...
599
600
601
602
603
604
605
606
607
608
609
610
611
612
613
614
	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"]
	}
	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
................................................................................
# 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]
::tcltest::cleanupTests
return

# Local Variables:
# mode: tcl
# End:






<

|







 







|
|
|






319
320
321
322
323
324
325

326
327
328
329
330
331
332
333
334
...
598
599
600
601
602
603
604
605
606
607
608
609
610
611
612
613
	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)]} {

	    set path(echoArgs2.bat) [makeFile "@[file native [interpreter]] $path(echoArgs.tcl) %*" \
		"[makeDirectory test(Dir)Check]/echo(Cmd)Test Args & Batch.bat"]
	}
	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
................................................................................
# cleanup
removeFile little
removeFile big
removeFile more
removeFile stdout
removeFile stderr
removeFile nothing
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: