diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2018-10-17 19:51:47 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2018-10-17 19:51:47 (GMT) |
commit | e0209e39ea32294ee016d240fd1dfe9411469832 (patch) | |
tree | f7526e3966ad91dbb1472bdcdcb21fde193f4d4e /tests/cmdAH.test | |
parent | 6d88b01d1e2bb2a76d4e0f094f1e895e3b16c859 (diff) | |
download | tcl-e0209e39ea32294ee016d240fd1dfe9411469832.zip tcl-e0209e39ea32294ee016d240fd1dfe9411469832.tar.gz tcl-e0209e39ea32294ee016d240fd1dfe9411469832.tar.bz2 |
Fix test-cases running on Windows 10: [string index $tcl_platform(osVersion) 0] doesn't give the correct answer then (it gives "1", but "10" was expected)
Diffstat (limited to 'tests/cmdAH.test')
-rw-r--r-- | tests/cmdAH.test | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tests/cmdAH.test b/tests/cmdAH.test index 45a867a..6cc8c0f 100644 --- a/tests/cmdAH.test +++ b/tests/cmdAH.test @@ -20,7 +20,7 @@ testConstraint testsetplatform [llength [info commands testsetplatform]] testConstraint testvolumetype [llength [info commands testvolumetype]] testConstraint linkDirectory [expr { ![testConstraint win] || - ([string index $tcl_platform(osVersion) 0] >= 5 + ($::tcl_platform(osVersion) >= 5.0 && [lindex [file system [temporaryDirectory]] 1] eq "NTFS") }] |