This patch disables a test which caused failed assertion in tcl 8.6.3. According to sqlite upstream[1], this should be fixed in tcl 8.6.5. [1] http://mailinglists.sqlite.org/cgi-bin/mailman/private/sqlite-users/2015-May/059518.html diff -up sqlite-src-3130000/test/shell1.test.orig sqlite-src-3130000/test/shell1.test --- sqlite-src-3130000/test/shell1.test.orig 2016-05-24 17:46:53.447074482 +0200 +++ sqlite-src-3130000/test/shell1.test 2016-05-24 17:48:20.951080978 +0200 @@ -855,65 +855,65 @@ do_test shell1-4.6 { # Test using arbitrary byte data with the shell via standard input/output. # -do_test shell1-5.0 { - # - # NOTE: Skip NUL byte because it appears to be incompatible with command - # shell argument parsing. - # - for {set i 1} {$i < 256} {incr i} { - # - # NOTE: Due to how the Tcl [exec] command works (i.e. where it treats - # command channels opened for it as textual ones), the carriage - # return character (and on Windows, the end-of-file character) - # cannot be used here. - # - if {$i==0x0D || ($tcl_platform(platform)=="windows" && $i==0x1A)} { - continue - } - set hex [format %02X $i] - set char [subst \\x$hex]; set oldChar $char - set escapes [list] - if {$tcl_platform(platform)=="windows"} { - # - # NOTE: On Windows, we need to escape all the whitespace characters, - # the alarm (\a) character, and those with special meaning to - # the SQLite shell itself. - # - set escapes [list \ - \a \\a \b \\b \t \\t \n \\n \v \\v \f \\f \r \\r \ - " " "\" \"" \" \\\" ' \"'\" \\ \\\\] - } else { - # - # NOTE: On Unix, we need to escape most of the whitespace characters - # and those with special meaning to the SQLite shell itself. - # The alarm (\a), backspace (\b), and carriage-return (\r) - # characters do not appear to require escaping on Unix. For - # the alarm and backspace characters, this is probably due to - # differences in the command shell. For the carriage-return, - # it is probably due to differences in how Tcl handles command - # channel end-of-line translations. - # - set escapes [list \ - \t \\t \n \\n \v \\v \f \\f \ - " " "\" \"" \" \\\" ' \"'\" \\ \\\\] - } - set char [string map $escapes $char] - set x [catchcmdex test.db ".print $char\n"] - set code [lindex $x 0] - set res [lindex $x 1] - if {$code ne "0"} { - error "failed with error: $res" - } - if {$res ne "$oldChar\n"} { - if {[llength $res] > 0} { - set got [format %02X [scan $res %c]] - } else { - set got - } - error "failed with byte $hex mismatch, got $got" - } - } -} {} +#do_test shell1-5.0 { +# # +# # NOTE: Skip NUL byte because it appears to be incompatible with command +# # shell argument parsing. +# # +# for {set i 1} {$i < 256} {incr i} { +# # +# # NOTE: Due to how the Tcl [exec] command works (i.e. where it treats +# # command channels opened for it as textual ones), the carriage +# # return character (and on Windows, the end-of-file character) +# # cannot be used here. +# # +# if {$i==0x0D || ($tcl_platform(platform)=="windows" && $i==0x1A)} { +# continue +# } +# set hex [format %02X $i] +# set char [subst \\x$hex]; set oldChar $char +# set escapes [list] +# if {$tcl_platform(platform)=="windows"} { +# # +# # NOTE: On Windows, we need to escape all the whitespace characters, +# # the alarm (\a) character, and those with special meaning to +# # the SQLite shell itself. +# # +# set escapes [list \ +# \a \\a \b \\b \t \\t \n \\n \v \\v \f \\f \r \\r \ +# " " "\" \"" \" \\\" ' \"'\" \\ \\\\] +# } else { +# # +# # NOTE: On Unix, we need to escape most of the whitespace characters +# # and those with special meaning to the SQLite shell itself. +# # The alarm (\a), backspace (\b), and carriage-return (\r) +# # characters do not appear to require escaping on Unix. For +# # the alarm and backspace characters, this is probably due to +# # differences in the command shell. For the carriage-return, +# # it is probably due to differences in how Tcl handles command +# # channel end-of-line translations. +# # +# set escapes [list \ +# \t \\t \n \\n \v \\v \f \\f \ +# " " "\" \"" \" \\\" ' \"'\" \\ \\\\] +# } +# set char [string map $escapes $char] +# set x [catchcmdex test.db ".print $char\n"] +# set code [lindex $x 0] +# set res [lindex $x 1] +# if {$code ne "0"} { +# error "failed with error: $res" +# } +# if {$res ne "$oldChar\n"} { +# if {[llength $res] > 0} { +# set got [format %02X [scan $res %c]] +# } else { +# set got +# } +# error "failed with byte $hex mismatch, got $got" +# } +# } +#} {} # These test cases do not work on MinGW if 0 {