[sql] Import SQLite 3.17.0.

third_party/sqlite/src/test/tkt4018.test

 # 2009 August 20
 #
 # The author disclaims copyright to this source code.  In place of
 # a legal notice, here is a blessing:
 #
 #    May you do good and not evil.
 #    May you find forgiveness for yourself and forgive others.
 #    May you share freely, never taking more than you give.
 #
 #***********************************************************************
 # This file implements regression tests for SQLite library.
 #
 # This file implements tests to verify that ticket #4018 has been
 # fixed.  
 #
 
 set testdir [file dirname $argv0]
 source $testdir/tester.tcl
+do_not_use_codec
 
 proc testsql {sql} {
   set fd [open tf_main.tcl w]
   puts $fd [subst -nocommands {
     sqlite3_test_control_pending_byte 0x0010000
     sqlite3 db test.db
     set rc [catch { db eval {$sql} } msg]
     puts -nonewline "[set rc] {[set msg]}"
     flush stdout
     exit
@@ skipping 51 matching lines @@
 } {1 2 3 4}
 do_test tkt4018-2.3 {
   db2 close
   sqlite3 db2 test.db -readonly 1
   execsql COMMIT
   catchsql {INSERT INTO t1 VALUES(5, 6)} db2
 } {1 {attempt to write a readonly database}}
 db2 close
 
 finish_test