diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2018-10-17 20:02:36 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2018-10-17 20:02:36 (GMT) |
| commit | 94d07354cee8df4983bb39da1268bbd22b9e2a91 (patch) | |
| tree | 94e0421c21a72a754683d78ca169d5c2b93e0fbe /tests/winFCmd.test | |
| parent | e154c5151281fbbe01ef1361f5f6980a5ec5a6d3 (diff) | |
| parent | 2881b5c3df298c14a851a8bed7d618a5761f4274 (diff) | |
| download | tcl-94d07354cee8df4983bb39da1268bbd22b9e2a91.zip tcl-94d07354cee8df4983bb39da1268bbd22b9e2a91.tar.gz tcl-94d07354cee8df4983bb39da1268bbd22b9e2a91.tar.bz2 | |
Merge 8.6
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 1767712..a0b7053 100644 --- a/tests/winFCmd.test +++ b/tests/winFCmd.test @@ -56,10 +56,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} { + } else { testConstraint winXP 1 } } |