Import SQLite 3.8.7.4.

third_party/sqlite/src/test/attach4.test

 # 200 July 1
 #
 # 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.
 #
 #***********************************************************************
@@ skipping 57 matching lines @@
   foreach {name f} $files {
     lappend L $name [execsql "SELECT x FROM $name.tbl"]
   }
   set L
 } $files
 
 set L [list]
 set S ""
 foreach {name f} $files {
   if {[permutation] == "journaltest"} {
-    lappend L delete
+    set mode delete
   } else {
-    lappend L wal
+    set mode wal
   }
+  ifcapable !wal { set mode delete }
+  lappend L $mode
   append S "
     PRAGMA $name.journal_mode = WAL;
     UPDATE $name.tbl SET x = '$name';
   "
 }
 do_execsql_test 1.5 $S $L
 
 do_test 1.6 {
   set L [list]
   foreach {name f} $files {
@@ skipping 15 matching lines @@
   foreach {name f} $files {
     lappend L $name [execsql "SELECT x FROM $name.tbl"]
   }
   set L
 } $files
 
 db close
 foreach {name f} $files { forcedelete $f }
 
 finish_test