diff options
| author | jan.nijtmans <jan.nijtmans@noemail.net> | 2025-03-27 17:25:38 +0000 |
|---|---|---|
| committer | jan.nijtmans <jan.nijtmans@noemail.net> | 2025-03-27 17:25:38 +0000 |
| commit | d07045119dc8853faf10bef1e87928b3041ae52c (patch) | |
| tree | 5cb11ed911437786937db5a83d75a70a7ff209ca /test | |
| parent | 1588d3de37aa5cbf172077780370d56fc3612a3d (diff) | |
| download | sqlite-d07045119dc8853faf10bef1e87928b3041ae52c.tar.gz sqlite-d07045119dc8853faf10bef1e87928b3041ae52c.zip | |
shell1.test: == => eq
FossilOrigin-Name: 99fdd19193056259d84768f46519328c300976b102f1b1e0b815720df01b28d0
Diffstat (limited to '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 |