diff options
Diffstat (limited to 'test/shell1.test')
| -rw-r--r-- | test/shell1.test | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/test/shell1.test b/test/shell1.test index f89d34d53..0e674a849 100644 --- a/test/shell1.test +++ b/test/shell1.test @@ -1064,20 +1064,20 @@ do_test shell1-5.0 { # return character (and on Windows, the end-of-file character) # cannot be used here. # - if {$i==0x0D || ($tcl_platform(platform)=="windows" && $i==0x1A)} { + if {$i==0x0D || ($tcl_platform(platform) eq "windows" && $i==0x1A)} { continue } # Tcl 8.7 maps 0x80 through 0x9f into valid UTF8. So skip those tests. if {$i>=0x80} { if {$i<=0x9F || $tcl_version>=9.0} continue - if {$tcl_platform(platform)=="windows"} continue + if {$tcl_platform(platform) eq "windows"} continue } - if {$i>=0xE0 && $tcl_platform(os)=="OpenBSD"} continue - if {$i>=0xE0 && $i<=0xEF && $tcl_platform(os)=="Linux"} continue + if {$i>=0xE0 && $tcl_platform(os) eq "OpenBSD"} continue + if {$i>=0xE0 && $i<=0xEF && $tcl_platform(os) eq "Linux"} continue set hex [format %02X $i] set char [subst \\x$hex]; set oldChar $char set escapes [list] - if {$tcl_platform(platform)=="windows"} { + if {$tcl_platform(platform) eq "windows"} { # # NOTE: On Windows, we need to escape all the whitespace characters, # the alarm (\a) character, and those with special meaning to |