[sql] Import SQLite 3.17.0.

third_party/sqlite/src/test/pragma3.test

 # 2014-12-19
 #
 # 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 for PRAGMA data_version command.
 #
 
 set testdir [file dirname $argv0]
 source $testdir/tester.tcl
+do_not_use_codec
 
 do_execsql_test pragma3-100 {
   PRAGMA data_version;
 } {1}
 do_execsql_test pragma3-101 {
   PRAGMA temp.data_version;
 } {1}
 
 # Writing to the pragma is a no-op 
 do_execsql_test pragma3-102 {
@@ skipping 185 matching lines @@
   db2 close
   db close
   sqlite3_enable_shared_cache $::enable_shared_cache
 }
 
 # Make sure this also works in WAL mode
 #
 # This will not work with the in-memory journal permutation, as opening
 # [db2] switches the journal mode back to "memory"
 #
-ifcapable wal {
+if {[wal_is_capable]} {
 if {[permutation]!="inmemory_journal"} {
 
   sqlite3 db test.db
   db eval {PRAGMA journal_mode=WAL}
   sqlite3 db2 test.db
   do_test pragma3-400 {
     db eval {
       PRAGMA data_version;
       PRAGMA journal_mode;
       SELECT * FROM t1;
@@ skipping 10 matching lines @@
     db eval {UPDATE t1 SET a=111*(a/100); PRAGMA data_version; SELECT * FROM t1}
   } {2 111 222}
   do_test pragma3-430 {
     db2 eval {PRAGMA data_version; SELECT * FROM t1;}
   } {3 111 222}
   db2 close
 }
 }
 
 finish_test