Blame SOURCES/sqlite-3.8.10.1-tcl-regress-tests.patch

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