diff options
| author | dgp <dgp@users.sourceforge.net> | 2018-04-30 12:14:25 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2018-04-30 12:14:25 (GMT) |
| commit | 71938f034c418ea425e166f02e7c69f2dc67bcd6 (patch) | |
| tree | 99195206ea23ccf847b3957fac40ef384846d9a6 | |
| parent | debcb2bf0157aa00be72330199c44e4d38a4b0ab (diff) | |
| parent | 0fc27b893e12027a6b5136fb96ba216b823f43e1 (diff) | |
| download | tcl-71938f034c418ea425e166f02e7c69f2dc67bcd6.zip tcl-71938f034c418ea425e166f02e7c69f2dc67bcd6.tar.gz tcl-71938f034c418ea425e166f02e7c69f2dc67bcd6.tar.bz2 | |
merge 8.5
| -rw-r--r-- | tests/winFCmd.test | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/tests/winFCmd.test b/tests/winFCmd.test index 0e5ef38..29f703c 100644 --- a/tests/winFCmd.test +++ b/tests/winFCmd.test @@ -1082,10 +1082,11 @@ test winFCmd-12.6.2 {ConvertFileNameFormat: absolute path with drive (in temp fo catch {file delete -force -- $::env(TEMP)/td1} } -constraints {win} -body { createfile $::env(TEMP)/td1 {} - string tolower [file attributes $::env(TEMP)/td1 -longname] + 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 [string tolower [file normalize $::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} |