[sql] Import SQLite 3.17.0.

third_party/sqlite/src/ext/rbu/rbu1.test

 # 2014 August 30
 #
 # 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.
 #
 #***********************************************************************
 #
 
-if {![info exists testdir]} {
-  set testdir [file join [file dirname [info script]] .. .. test]
-}
-source $testdir/tester.tcl
+source [file join [file dirname [info script]] rbu_common.tcl]
 set ::testprefix rbu1
 
 db close
 sqlite3_shutdown
 sqlite3_config_uri 1
 
 # Create a simple RBU database. That expects to write to a table:
 #
 #   CREATE TABLE t1(a INTEGER PRIMARY KEY, b, c);
 #
@@ skipping 62 matching lines @@
   rbu5 eval {
     CREATE TABLE data_t1(a, b, c, d, rbu_control);
     INSERT INTO data_t1 VALUES(1, NULL, NULL, 5, '...x');  -- SET d = 5
     INSERT INTO data_t1 VALUES(2, NULL, 10, 5, '..xx');    -- SET c=10, d = 5
     INSERT INTO data_t1 VALUES(3, 11, NULL, NULL, '.x..'); -- SET b=11
   }
   rbu5 close
   return $filename
 }
 
-# Run the RBU in file $rbu on target database $target until completion.
-#
-proc run_rbu {target rbu} {
-  sqlite3rbu rbu $target $rbu
-  while 1 {
-    set rc [rbu step]
-    if {$rc!="SQLITE_OK"} break
-  }
-  rbu close
-}
-
-proc step_rbu {target rbu} {
-  while 1 {
-    sqlite3rbu rbu $target $rbu
-    set rc [rbu step]
-    rbu close
-    if {$rc != "SQLITE_OK"} break
-  }
-  set rc
-}
 
 # Same as [step_rbu], except using a URI to open the target db.
 #
 proc step_rbu_uri {target rbu} {
   while 1 {
     sqlite3rbu rbu file:$target?xyz=&abc=123 $rbu
     set rc [rbu step]
     rbu close
     if {$rc != "SQLITE_OK"} break
   }
@@ skipping 475 matching lines @@
 
        8 {
          CREATE TABLE t1(a, b PRIMARY KEY) WITHOUT ROWID;
          CREATE TABLE rbu.data_t1(a, b, rbu_control);
          INSERT INTO rbu.data_t1 VALUES(1, 2, 4);
        } {SQLITE_ERROR - invalid rbu_control value}
 
        9 {
          CREATE TABLE t1(a, b PRIMARY KEY) WITHOUT ROWID;
          CREATE TABLE rbu.data_t1(a, b, rbu_control);
-         INSERT INTO rbu.data_t1 VALUES(1, 2, 2);
+         INSERT INTO rbu.data_t1 VALUES(1, 2, 3);
        } {SQLITE_ERROR - invalid rbu_control value}
 
        10 {
          CREATE TABLE t2(a, b);
          CREATE TABLE rbu.data_t1(a, b, rbu_control);
          INSERT INTO rbu.data_t1 VALUES(1, 2, 2);
        } {SQLITE_ERROR - no such table: t1}
 
        11 {
          CREATE TABLE rbu.data_t2(a, b, rbu_control);
          INSERT INTO rbu.data_t2 VALUES(1, 2, 2);
        } {SQLITE_ERROR - no such table: t2}
 
     } {
       reset_db
       forcedelete rbu.db
       execsql { ATTACH 'rbu.db' AS rbu }
       execsql $schema
 
       do_test $tn3.7.$tn {
         list [catch { run_rbu test.db rbu.db } msg] $msg
       } [list 1 $error]
     }
   }
 
   # Test that an RBU database containing no input tables is handled
   # correctly.
   reset_db
   forcedelete rbu.db
-  do_test $tn3.8 {
+  do_test $tn3.8.1 {
     list [catch { run_rbu test.db rbu.db } msg] $msg
   } {0 SQLITE_DONE}
-  
+
+  # Test that an RBU database containing only empty data_xxx tables is
+  # also handled correctly.
+  reset_db
+  forcedelete rbu.db
+  do_execsql_test $tn3.8.2.1 {
+    CREATE TABLE t1(a PRIMARY KEY, b);
+    INSERT INTO t1 VALUES(1, 2);
+    ATTACH 'rbu.db' AS rbu;
+    CREATE TABLE data_t1(a, b, rbu_control);
+    DETACH rbu;
+  }
+  do_test $tn3.8.2.1 {
+    list [catch { run_rbu test.db rbu.db } msg] $msg
+  } {0 SQLITE_DONE}
+
   # Test that RBU can update indexes containing NULL values.
   #
   reset_db
   forcedelete rbu.db
   do_execsql_test $tn3.9.1 {
     CREATE TABLE t1(a PRIMARY KEY, b, c);
     CREATE INDEX i1 ON t1(b, c);
     INSERT INTO t1 VALUES(1, 1, NULL);
     INSERT INTO t1 VALUES(2, NULL, 2);
     INSERT INTO t1 VALUES(3, NULL, NULL);
@@ skipping 13 matching lines @@
   } {2 {} 2}
   do_execsql_test $tn3.9.4 { PRAGMA integrity_check } {ok}
 
   catch { db close }
   eval $destroy_vfs
 }
 
 
 finish_test