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