ext/rbu/rbuC.test

   1 # 2016 March 7
   2 #
   3 # The author disclaims copyright to this source code.  In place of
   4 # a legal notice, here is a blessing:
   5 #
   6 #    May you do good and not evil.
   7 #    May you find forgiveness for yourself and forgive others.
   8 #    May you share freely, never taking more than you give.
   9 #
  10 #***********************************************************************
  11 # Tests for RBU focused on the REPLACE operation (rbu_control column
  12 # contains integer value 2).
  13 #
  14
  15 source [file join [file dirname [info script]] rbu_common.tcl]
  16 set ::testprefix rbuC
  17
  18 #-------------------------------------------------------------------------
  19 # This test is actually of an UPDATE directive. Just to establish that
  20 # these work with UNIQUE indexes before preceding to REPLACE.
  21 #
  22 do_execsql_test 1.0 {
  23   CREATE TABLE t1(i INTEGER PRIMARY KEY, a, b, c UNIQUE);
  24   INSERT INTO t1 VALUES(1, 'a', 'b', 'c');
  25 }
  26
  27 forcedelete rbu.db
  28 do_execsql_test 1.1 {
  29   ATTACH 'rbu.db' AS rbu;
  30   CREATE TABLE rbu.data_t1(i, a, b, c, rbu_control);
  31   INSERT INTO data_t1 VALUES(1, 'a', 'b', 'c', '.xxx');
  32 }
  33
  34 do_test 1.2 {
  35   step_rbu test.db rbu.db
  36 } {SQLITE_DONE}
  37
  38 do_execsql_test 1.3 {
  39   SELECT * FROM t1
  40 } {
  41   1 a b c
  42 }
  43
  44 #-------------------------------------------------------------------------
  45 #
  46 foreach {tn schema} {
  47   1 {
  48     CREATE TABLE t1(i INTEGER PRIMARY KEY, a, b, c UNIQUE);
  49     CREATE INDEX t1a ON t1(a);
  50   }
  51   2 {
  52     CREATE TABLE t1(i PRIMARY KEY, a, b, c UNIQUE);
  53     CREATE INDEX t1a ON t1(a);
  54   }
  55   3 {
  56     CREATE TABLE t1(i PRIMARY KEY, a, b, c UNIQUE) WITHOUT ROWID;
  57     CREATE INDEX t1a ON t1(a);
  58   }
  59 } {
  60   reset_db
  61   forcedelete rbu.db
  62   execsql $schema
  63
  64   do_execsql_test 2.$tn.0 {
  65     INSERT INTO t1 VALUES(1, 'a', 'b', 'c');
  66     INSERT INTO t1 VALUES(2, 'b', 'c', 'd');
  67     INSERT INTO t1 VALUES(3, 'c', 'd', 'e');
  68   }
  69
  70   do_execsql_test 2.$tn.1 {
  71     ATTACH 'rbu.db' AS rbu;
  72     CREATE TABLE rbu.data_t1(i, a, b, c, rbu_control);
  73     INSERT INTO data_t1 VALUES(1, 1, 2, 3, 2);
  74     INSERT INTO data_t1 VALUES(3, 'c', 'd', 'e', 2);
  75     INSERT INTO data_t1 VALUES(4, 'd', 'e', 'f', 2);
  76   }
  77
  78   do_test 2.$tn.2 {
  79     step_rbu test.db rbu.db
  80   } {SQLITE_DONE}
  81
  82   do_execsql_test 2.$tn.3 {
  83     SELECT * FROM t1 ORDER BY i
  84   } {
  85     1 1 2 3
  86     2 b c d
  87     3 c d e
  88     4 d e f
  89   }
  90
  91   integrity_check 2.$tn.4
  92 }
  93
  94 foreach {tn schema} {
  95   1 {
  96     CREATE TABLE t1(a, b, c UNIQUE);
  97     CREATE INDEX t1a ON t1(a);
  98   }
  99
 100   2 {
 101     CREATE VIRTUAL TABLE t1 USING fts5(a, b, c);
 102   }
 103 } {
 104   if {$tn==2} { ifcapable !fts5 break }
 105   reset_db
 106   forcedelete rbu.db
 107   execsql $schema
 108
 109   do_execsql_test 3.$tn.0 {
 110     INSERT INTO t1 VALUES('a', 'b', 'c');
 111     INSERT INTO t1 VALUES('b', 'c', 'd');
 112     INSERT INTO t1 VALUES('c', 'd', 'e');
 113   }
 114
 115   do_execsql_test 3.$tn.1 {
 116     ATTACH 'rbu.db' AS rbu;
 117     CREATE TABLE rbu.data_t1(rbu_rowid, a, b, c, rbu_control);
 118     INSERT INTO data_t1 VALUES(1, 1, 2, 3, 2);
 119     INSERT INTO data_t1 VALUES(3, 'c', 'd', 'e', 2);
 120     INSERT INTO data_t1 VALUES(4, 'd', 'e', 'f', 2);
 121   }
 122
 123   do_test 3.$tn.2 {
 124     step_rbu test.db rbu.db
 125   } {SQLITE_DONE}
 126
 127   do_execsql_test 3.$tn.3 {
 128     SELECT rowid, * FROM t1 ORDER BY 1
 129   } {
 130     1 1 2 3
 131     2 b c d
 132     3 c d e
 133     4 d e f
 134   }
 135
 136   integrity_check 3.$tn.4
 137 }
 138
 139
 140
 141 finish_test
 142