diff options
Diffstat (limited to 'tests/glob2.test')
| -rw-r--r-- | tests/glob2.test | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/glob2.test b/tests/glob2.test index 80fdd12..e6f3fbf 100644 --- a/tests/glob2.test +++ b/tests/glob2.test @@ -15,8 +15,8 @@ source [file dirname [info script]]/testing.tcl needs cmd file needs cmd glob -testConstraint win [expr {$tcl_platform(platform) eq "windows"}] -testConstraint unix [expr {$tcl_platform(platform) eq "unix"}] +constraint expr win {$tcl_platform(platform) eq "windows"} +constraint expr unix {$tcl_platform(platform) eq "unix"} testConstraint unixOrPc 1 proc touch filename {catch {close [open $filename w]}} |