diff options
| author | dgp <dgp@users.sourceforge.net> | 2018-04-30 12:11:14 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2018-04-30 12:11:14 (GMT) |
| commit | 0fc27b893e12027a6b5136fb96ba216b823f43e1 (patch) | |
| tree | cc128cc85170480876aff6fb04dd277d412b5a8e /tests | |
| parent | ddfce0ed3f91a335d169f6f25cae2da7051d0631 (diff) | |
| download | tcl-0fc27b893e12027a6b5136fb96ba216b823f43e1.zip tcl-0fc27b893e12027a6b5136fb96ba216b823f43e1.tar.gz tcl-0fc27b893e12027a6b5136fb96ba216b823f43e1.tar.bz2 | |
Contain platform-specific things in the constraint-controlled parts of the test.
Diffstat (limited to 'tests')
| -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 b3fd921..1b2b042 100644 --- a/tests/winFCmd.test +++ b/tests/winFCmd.test @@ -912,10 +912,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} {nonPortable win} { string tolower [file attributes //bisque/tcl/ws -longname] } {//bisque/tcl/ws} |