Tcl Source Code

Check-in [fae0174e02]
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:merge 8.6
Downloads: Tarball | ZIP archive | SQL 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
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
Hide Diffs Side-by-Side Diffs Ignore Whitespace Patch

Changes to tests/winPipe.test.

   319    319   	set path(echoArgs.bat) [makeFile "@[file native [interpreter]] $path(echoArgs.tcl) %*" "echoArgs.bat"]
   320    320       }
   321    321       set cmds [list [list [interpreter] $path(echoArgs.tcl)]]
   322    322       if {!($single & 2)} {
   323    323   	lappend cmds [list $path(echoArgs.bat)]
   324    324       } else {
   325    325   	if {![info exists path(echoArgs2.bat)] || ![file exists $path(echoArgs2.bat)]} {
   326         -	    file mkdir [file join [temporaryDirectory] test(Dir)Check]
   327         -	    set path(echoArgs2.bat) [makeFile "@[file native [interpreter]] $path(echoArgs.tcl) %*" \
   328         -		"test(Dir)Check/echo(Cmd)Test Args & Batch.bat"]
          326  +	    set path(echoArgs2.bat) [makeFile \
          327  +		"@[file native [interpreter]] $path(echoArgs.tcl) %*" \
          328  +		"echo(Cmd)Test Args & Batch.bat" [makeDirectory test(Dir)Check]]
   329    329   	}
   330    330   	lappend cmds [list $path(echoArgs2.bat)]
   331    331       }
   332    332       set broken {}
   333    333       foreach args $args {
   334    334   	if {$single & 1} {
   335    335   	    # enclose single test-arg between 1st/3rd to be sure nothing is truncated
................................................................................
   599    599   # cleanup
   600    600   removeFile little
   601    601   removeFile big
   602    602   removeFile more
   603    603   removeFile stdout
   604    604   removeFile stderr
   605    605   removeFile nothing
   606         -removeFile echoArgs.tcl
   607         -removeFile echoArgs.bat
   608         -file delete -force [file join [temporaryDirectory] test(Dir)Check]
          606  +if {[info exists path(echoArgs.tcl)]} { removeFile echoArgs.tcl }
          607  +if {[info exists path(echoArgs.bat)]} { removeFile echoArgs.bat }
          608  +if {[info exists path(echoArgs2.bat)]} { removeDirectory test(Dir)Check }
   609    609   ::tcltest::cleanupTests
   610    610   return
   611    611   
   612    612   # Local Variables:
   613    613   # mode: tcl
   614    614   # End: