database/sqlite
1
0
Fork 0
mirror of https://github.com/sqlite/sqlite.git synced 2025-07-29 08:01:23 +03:00
Code Activity

shell1.test: == => eq

Browse Source 
FossilOrigin-Name: 99fdd19193056259d84768f46519328c300976b102f1b1e0b815720df01b28d0
This commit is contained in:
jan.nijtmans
2025-03-27 17:25:38 +00:00
parent 1588d3de37
commit d07045119d
3 changed files with 12 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
test/shell1.test
View File

@ -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