ext/rbu/rbu13.test

   1 # 2015 February 16
   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 #
  12 # Test an RBU update that features lots of different rbu_control strings
  13 # for UPDATE statements. This tests RBU's internal UPDATE statement cache.
  14 #
  15
  16 if {![info exists testdir]} {
  17   set testdir [file join [file dirname [info script]] .. .. test]
  18 }
  19 source $testdir/tester.tcl
  20 source $testdir/lock_common.tcl
  21 set ::testprefix rbu13
  22
  23 do_execsql_test 1.0 {
  24   CREATE TABLE t1(a PRIMARY KEY, b, c, d, e, f, g, h);
  25   WITH ii(i) AS (SELECT 0 UNION ALL SELECT i+1 FROM ii WHERE i<127)
  26   INSERT INTO t1 SELECT i, 0, 0, 0, 0, 0, 0, 0 FROM ii;
  27 }
  28
  29 forcedelete rbu.db
  30 do_execsql_test 1.1 {
  31   ATTACH 'rbu.db' AS rbu;
  32   CREATE TABLE rbu.data_t1(a, b, c, d, e, f, g, h, rbu_control);
  33 }
  34
  35 do_test 1.2 {
  36   for {set i 0} {$i<128} {incr i} {
  37     set control "."
  38     for {set bit 6} {$bit>=0} {incr bit -1} {
  39       if { $i & (1<<$bit) } {
  40         append control "x"
  41       } else {
  42         append control "."
  43       }
  44     }
  45     execsql { INSERT INTO data_t1 VALUES($i, 1, 1, 1, 1, 1, 1, 1, $control) }
  46   }
  47 } {}
  48
  49 do_test 1.3 {
  50   sqlite3rbu rbu test.db rbu.db
  51   while 1 {
  52     set rc [rbu step]
  53     if {$rc!="SQLITE_OK"} break
  54   }
  55   rbu close
  56 } {SQLITE_DONE}
  57
  58 do_execsql_test 1.4 {
  59   SELECT count(*) FROM t1 WHERE
  60   a == ( (b<<6) + (c<<5) + (d<<4) + (e<<3) + (f<<2) + (g<<1) + (h<<0) )
  61 } {128}
  62
  63
  64 finish_test
  65