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/winFCmd.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/winFCmd.test')
| -rw-r--r-- | tests/winFCmd.test | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/tests/winFCmd.test b/tests/winFCmd.test index f1f2afa..f93f225 100644 --- a/tests/winFCmd.test +++ b/tests/winFCmd.test @@ -53,10 +53,9 @@ proc cleanup {args} { } if {[testConstraint win]} { - set major [string index $tcl_platform(osVersion) 0] - if {$major > 5} { + if {$::tcl_platform(osVersion) >= 5.0} { testConstraint winVista 1 - } elseif {$major == 5} { + } elseif {$::tcl_platform(osVersion) >= 4.0} { testConstraint winXP 1 } } |