diff options
| author | sebres <sebres@users.sourceforge.net> | 2018-05-24 20:20:26 (GMT) |
|---|---|---|
| committer | sebres <sebres@users.sourceforge.net> | 2018-05-24 20:20:26 (GMT) |
| commit | a410c0d8d504868b1dbdcaf70a521859e32327fd (patch) | |
| tree | 1ba0fc5dfe3b3e646f7aff01303aa1181b5e01de | |
| parent | ecec1703aade688299289c4d74bae88a04e04d22 (diff) | |
| download | tcl-a410c0d8d504868b1dbdcaf70a521859e32327fd.zip tcl-a410c0d8d504868b1dbdcaf70a521859e32327fd.tar.gz tcl-a410c0d8d504868b1dbdcaf70a521859e32327fd.tar.bz2 | |
fixed typo in winFCmd-12.6.2: unneeded extra-bracket removed
| -rw-r--r-- | tests/winFCmd.test | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tests/winFCmd.test b/tests/winFCmd.test index 1b2b042..f1f2afa 100644 --- a/tests/winFCmd.test +++ b/tests/winFCmd.test @@ -913,7 +913,7 @@ test winFCmd-12.6.2 {ConvertFileNameFormat: absolute path with drive (in temp fo } -constraints {win} -body { createfile $::env(TEMP)/td1 {} string equal [string tolower [file attributes $::env(TEMP)/td1 -longname]] \ - [string tolower [file normalize $::env(TEMP)]/td1]] + [string tolower [file normalize $::env(TEMP)]/td1] } -cleanup { file delete -force -- $::env(TEMP)/td1 } -result 1 |