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), 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} 32do_test btree02-110 { 33 db eval BEGIN 34 set i 0 35 db eval {SELECT a, ax, b, cnt FROM t1 CROSS JOIN t3 WHERE b IS NOT NULL} { 36 db eval {INSERT INTO t2(x,y) VALUES($b,$cnt)} 37 # puts "a,b,cnt = ($a,$b,$cnt)" 38 incr i 39 if {$i%2==1} { 40 set bx [expr {$b+1000}] 41 # puts "INSERT ($a),$bx" 42 db eval {INSERT INTO t1(a,ax,b) VALUES(printf('(%s)',$a),random(),$bx)} 43 } else { 44 # puts "DELETE a=$a" 45 db eval {DELETE FROM t1 WHERE a=$a} 46 } 47 db eval {COMMIT; BEGIN} 48 } 49 db one {COMMIT; SELECT count(*) FROM t1;} 50} {20} 51 52finish_test 53