Tcl Source Code

Check-in [0667ce0d00]
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.5
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | core-8-6-branch
Files: files | file ages | folders
SHA3-256: 0667ce0d00122a6d734a8b8a0301006c48f6cf392410acbca778eb36720ca983
User & Date: dgp 2018-04-30 12:14:25
Context
2018-05-04
19:06
Update TZ info to tzdata2018e. check-in: adc50e99d2 user: jima tags: core-8-6-branch
2018-05-01
18:42
merge 8.6 check-in: bea1cbc1ad user: jan.nijtmans tags: core-8-branch
2018-04-30
12:14
merge 8.5 check-in: 0667ce0d00 user: dgp tags: core-8-6-branch
12:11
Contain platform-specific things in the constraint-controlled parts of the test. check-in: 74af01d8ff user: dgp tags: core-8-5-branch
11:52
amend after merge 8.5 check-in: 4dbb1d5420 user: sebres tags: core-8-6-branch
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to tests/winFCmd.test.

1078
1079
1080
1081
1082
1083
1084
1085

1086
1087
1088

1089
1090
1091
1092
1093
1094
1095
} -cleanup {
    file delete -force -- c:/td1
} -result {c:/td1}
test winFCmd-12.6.2 {ConvertFileNameFormat: absolute path with drive (in temp folder)} -setup {
    catch {file delete -force -- $::env(TEMP)/td1}
} -constraints {win} -body {
    createfile $::env(TEMP)/td1 {}
    string tolower [file attributes $::env(TEMP)/td1 -longname]

} -cleanup {
    file delete -force -- $::env(TEMP)/td1
} -result [string tolower [file normalize $::env(TEMP)]/td1]

test winFCmd-12.7 {ConvertFileNameFormat} -body {
    string tolower [file attributes //bisque/tcl/ws -longname]
} -constraints {nonPortable win} -result {//bisque/tcl/ws}
test winFCmd-12.8 {ConvertFileNameFormat} -setup {
    cleanup
} -constraints {win longFileNames} -body {
    createfile td1 {}






|
>


<
>







1078
1079
1080
1081
1082
1083
1084
1085
1086
1087
1088

1089
1090
1091
1092
1093
1094
1095
1096
} -cleanup {
    file delete -force -- c:/td1
} -result {c:/td1}
test winFCmd-12.6.2 {ConvertFileNameFormat: absolute path with drive (in temp folder)} -setup {
    catch {file delete -force -- $::env(TEMP)/td1}
} -constraints {win} -body {
    createfile $::env(TEMP)/td1 {}
    string equal [string tolower [file attributes $::env(TEMP)/td1 -longname]] \
	    [string tolower [file normalize $::env(TEMP)]/td1]]
} -cleanup {
    file delete -force -- $::env(TEMP)/td1

} -result 1
test winFCmd-12.7 {ConvertFileNameFormat} -body {
    string tolower [file attributes //bisque/tcl/ws -longname]
} -constraints {nonPortable win} -result {//bisque/tcl/ws}
test winFCmd-12.8 {ConvertFileNameFormat} -setup {
    cleanup
} -constraints {win longFileNames} -body {
    createfile td1 {}