diff options
| author | dgp <dgp@users.sourceforge.net> | 2018-10-18 15:31:51 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2018-10-18 15:31:51 (GMT) |
| commit | 90221ac971708ce2bd09ffff98b55b8198513808 (patch) | |
| tree | ec9ac9fbc978032844db1abec26b437520a22af4 /tests/winFCmd.test | |
| parent | 050e383cf2f4f6e67ba6030a187257e0c2c0b1e0 (diff) | |
| parent | 49ebd1264d9cff42e9e5963f2a2f3c0eb732f375 (diff) | |
| download | tcl-90221ac971708ce2bd09ffff98b55b8198513808.zip tcl-90221ac971708ce2bd09ffff98b55b8198513808.tar.gz tcl-90221ac971708ce2bd09ffff98b55b8198513808.tar.bz2 | |
merge 8.7
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 } } |