diff options
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 } } |