1# 2015-03-25 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# This file implements regression tests for SQLite library. 12# 13# The focus of this script is making multiple calls to saveCursorPosition() 14# and restoreCursorPosition() when cursors have eState==CURSOR_SKIPNEXT 15# 16 17set testdir [file dirname $argv0] 18source $testdir/tester.tcl 19 20load_static_extension db eval 21do_execsql_test btree02-100 { 22 CREATE TABLE t1(a TEXT, ax INTEGER, b INT, PRIMARY KEY(a,ax)) WITHOUT ROWID; 23 WITH RECURSIVE c(i) AS (VALUES(1) UNION ALL SELECT i+1 FROM c WHERE i<10) 24 INSERT INTO t1(a,ax,b) SELECT printf('%02x',i+160), random(), i FROM c; 25 CREATE INDEX t1a ON t1(a); 26 CREATE TABLE t2(x,y); 27 CREATE TABLE t3(cnt); 28 WITH RECURSIVE c(i) AS (VALUES(1) UNION ALL SELECT i+1 FROM c WHERE i<4) 29 INSERT INTO t3(cnt) SELECT i FROM c; 30 SELECT count(*) FROM t1; 31} {10} 32 33proc showt1 {} { 34 puts -nonewline "t1: " 35 puts [db eval {SELECT printf('(%s,%s)',quote(a),quote(b)) FROM t1}] 36} 37 38do_test btree02-110 { 39 db eval BEGIN 40 set i 0 41 # showt1 42 db eval {SELECT a, ax, b, cnt FROM t1 CROSS JOIN t3 WHERE b IS NOT NULL} { 43 if {$a==""} continue 44 db eval {INSERT INTO t2(x,y) VALUES($b,$cnt)} 45 # puts "a,b,cnt = ($a,$b,$cnt)" 46 incr i 47 if {$i%2==1} { 48 set bx [expr {$b+1000}] 49 # puts "INSERT ($a),$bx" 50 db eval {INSERT INTO t1(a,ax,b) VALUES(printf('(%s)',$a),random(),$bx)} 51 # showt1 52 } else { 53 # puts "DELETE a=$a" 54 db eval {DELETE FROM t1 WHERE a=$a} 55 # showt1 56 } 57 db eval {COMMIT; BEGIN} 58 } 59 db one {COMMIT; SELECT count(*) FROM t1;} 60} {10} 61 62finish_test 63