diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2018-10-17 19:55:17 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2018-10-17 19:55:17 (GMT) |
| commit | 2881b5c3df298c14a851a8bed7d618a5761f4274 (patch) | |
| tree | 5fe478b0a9054e94c7cb8bf2f29e0bc7f32b72aa /tests/fileName.test | |
| parent | e1196c53f256897cfdf6549eae9bdd88eb1aa930 (diff) | |
| parent | e0209e39ea32294ee016d240fd1dfe9411469832 (diff) | |
| download | tcl-2881b5c3df298c14a851a8bed7d618a5761f4274.zip tcl-2881b5c3df298c14a851a8bed7d618a5761f4274.tar.gz tcl-2881b5c3df298c14a851a8bed7d618a5761f4274.tar.bz2 | |
Fix test-cases running on Windows 10: [string index $tcl_platform(osVersion) 0] doesn't give the correct answer then.
Also backport genStubs.tcl from 8.7: The "deprecated" mark is not used in Tcl 8.6, but it is used by Tk 8.7 when doing "make genstubs" against Tcl 8.6.
Diffstat (limited to 'tests/fileName.test')
| -rw-r--r-- | tests/fileName.test | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tests/fileName.test b/tests/fileName.test index 7f983a7..7b51da1 100644 --- a/tests/fileName.test +++ b/tests/fileName.test @@ -23,7 +23,7 @@ testConstraint testtranslatefilename [llength [info commands testtranslatefilena testConstraint linkDirectory 1 testConstraint symbolicLinkFile 1 if {[testConstraint win]} { - if {[string index $tcl_platform(osVersion) 0] < 5 \ + if {$::tcl_platform(osVersion) < 5.0 \ || [lindex [file system [temporaryDirectory]] 1] ne "NTFS"} { testConstraint linkDirectory 0 } |