xref: /sqlite-3.40.0/ext/rbu/rbu13.test (revision 6ab91a7a) 
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
16if {![info exists testdir]} {
17  set testdir [file join [file dirname [info script]] .. .. test]
18}
19source $testdir/tester.tcl
20source $testdir/lock_common.tcl
21set ::testprefix rbu13
22
23do_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
29forcedelete rbu.db
30do_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
35do_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
49do_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
58do_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
64finish_test
65