diff options
Diffstat (limited to 'usr/src/lib/libsqlite/test/memdb.test')
| -rw-r--r-- | usr/src/lib/libsqlite/test/memdb.test | 399 |
1 files changed, 399 insertions, 0 deletions
diff --git a/usr/src/lib/libsqlite/test/memdb.test b/usr/src/lib/libsqlite/test/memdb.test new file mode 100644 index 0000000000..c70d60c4d3 --- /dev/null +++ b/usr/src/lib/libsqlite/test/memdb.test @@ -0,0 +1,399 @@ + +#pragma ident "%Z%%M% %I% %E% SMI" + +# 2001 September 15 +# +# The author disclaims copyright to this source code. In place of +# a legal notice, here is a blessing: +# +# May you do good and not evil. +# May you find forgiveness for yourself and forgive others. +# May you share freely, never taking more than you give. +# +#*********************************************************************** +# This file implements regression tests for SQLite library. The +# focus of this script is in-memory database backend. +# +# $Id: memdb.test,v 1.6 2003/08/05 13:13:39 drh Exp $ + + +set testdir [file dirname $argv0] +source $testdir/tester.tcl + +# In the following sequence of tests, compute the MD5 sum of the content +# of a table, make lots of modifications to that table, then do a rollback. +# Verify that after the rollback, the MD5 checksum is unchanged. +# +# These tests were browed from trans.tcl. +# +do_test memdb-1.1 { + db close + sqlite db :memory: + # sqlite db test.db + execsql { + BEGIN; + CREATE TABLE t3(x TEXT); + INSERT INTO t3 VALUES(randstr(10,400)); + INSERT INTO t3 VALUES(randstr(10,400)); + INSERT INTO t3 SELECT randstr(10,400) FROM t3; + INSERT INTO t3 SELECT randstr(10,400) FROM t3; + INSERT INTO t3 SELECT randstr(10,400) FROM t3; + INSERT INTO t3 SELECT randstr(10,400) FROM t3; + INSERT INTO t3 SELECT randstr(10,400) FROM t3; + INSERT INTO t3 SELECT randstr(10,400) FROM t3; + INSERT INTO t3 SELECT randstr(10,400) FROM t3; + INSERT INTO t3 SELECT randstr(10,400) FROM t3; + INSERT INTO t3 SELECT randstr(10,400) FROM t3; + COMMIT; + SELECT count(*) FROM t3; + } +} {1024} + +# The following procedure computes a "signature" for table "t3". If +# T3 changes in any way, the signature should change. +# +# This is used to test ROLLBACK. We gather a signature for t3, then +# make lots of changes to t3, then rollback and take another signature. +# The two signatures should be the same. +# +proc signature {{fn {}}} { + set rx [db eval {SELECT x FROM t3}] + # set r1 [md5 $rx\n] + if {$fn!=""} { + # set fd [open $fn w] + # puts $fd $rx + # close $fd + } + # set r [db eval {SELECT count(*), md5sum(x) FROM t3}] + # puts "SIG($fn)=$r1" + return [list [string length $rx] $rx] +} + +# Do rollbacks. Make sure the signature does not change. +# +set limit 10 +for {set i 2} {$i<=$limit} {incr i} { + set ::sig [signature one] + # puts "sig=$sig" + set cnt [lindex $::sig 0] + set ::journal_format [expr {($i%3)+1}] + if {$i%2==0} { + execsql {PRAGMA synchronous=FULL} + } else { + execsql {PRAGMA synchronous=NORMAL} + } + do_test memdb-1.$i.1-$cnt { + execsql { + BEGIN; + DELETE FROM t3 WHERE random()%10!=0; + INSERT INTO t3 SELECT randstr(10,10)||x FROM t3; + INSERT INTO t3 SELECT randstr(10,10)||x FROM t3; + ROLLBACK; + } + set sig2 [signature two] + } $sig + # puts "sig2=$sig2" + # if {$sig2!=$sig} exit + do_test memdb-1.$i.2-$cnt { + execsql { + BEGIN; + DELETE FROM t3 WHERE random()%10!=0; + INSERT INTO t3 SELECT randstr(10,10)||x FROM t3; + DELETE FROM t3 WHERE random()%10!=0; + INSERT INTO t3 SELECT randstr(10,10)||x FROM t3; + ROLLBACK; + } + signature + } $sig + if {$i<$limit} { + do_test memdb-1.$i.9-$cnt { + execsql { + INSERT INTO t3 SELECT randstr(10,400) FROM t3 WHERE random()%10==0; + } + } {} + } + set ::pager_old_format 0 +} + +do_test memdb-2.1 { + execsql { + PRAGMA integrity_check + } +} {ok} + +do_test memdb-3.1 { + execsql { + CREATE TABLE t4(a,b,c,d); + BEGIN; + INSERT INTO t4 VALUES(1,2,3,4); + SELECT * FROM t4; + } +} {1 2 3 4} +do_test memdb-3.2 { + execsql { + SELECT name FROM sqlite_master WHERE type='table'; + } +} {t3 t4} +do_test memdb-3.3 { + execsql { + DROP TABLE t4; + SELECT name FROM sqlite_master WHERE type='table'; + } +} {t3} +do_test memdb-3.4 { + execsql { + ROLLBACK; + SELECT name FROM sqlite_master WHERE type='table'; + } +} {t3 t4} + +# Create tables for the first group of tests. +# +do_test memdb-4.0 { + execsql { + CREATE TABLE t1(a, b, c, UNIQUE(a,b)); + CREATE TABLE t2(x); + SELECT c FROM t1 ORDER BY c; + } +} {} + +# Six columns of configuration data as follows: +# +# i The reference number of the test +# conf The conflict resolution algorithm on the BEGIN statement +# cmd An INSERT or REPLACE command to execute against table t1 +# t0 True if there is an error from $cmd +# t1 Content of "c" column of t1 assuming no error in $cmd +# t2 Content of "x" column of t2 +# +foreach {i conf cmd t0 t1 t2} { + 1 {} INSERT 1 {} 1 + 2 {} {INSERT OR IGNORE} 0 3 1 + 3 {} {INSERT OR REPLACE} 0 4 1 + 4 {} REPLACE 0 4 1 + 5 {} {INSERT OR FAIL} 1 {} 1 + 6 {} {INSERT OR ABORT} 1 {} 1 + 7 {} {INSERT OR ROLLBACK} 1 {} {} + 8 IGNORE INSERT 0 3 1 + 9 IGNORE {INSERT OR IGNORE} 0 3 1 + 10 IGNORE {INSERT OR REPLACE} 0 4 1 + 11 IGNORE REPLACE 0 4 1 + 12 IGNORE {INSERT OR FAIL} 1 {} 1 + 13 IGNORE {INSERT OR ABORT} 1 {} 1 + 14 IGNORE {INSERT OR ROLLBACK} 1 {} {} + 15 REPLACE INSERT 0 4 1 + 16 FAIL INSERT 1 {} 1 + 17 ABORT INSERT 1 {} 1 + 18 ROLLBACK INSERT 1 {} {} +} { + do_test memdb-4.$i { + if {$conf!=""} {set conf "ON CONFLICT $conf"} + set r0 [catch {execsql [subst { + DELETE FROM t1; + DELETE FROM t2; + INSERT INTO t1 VALUES(1,2,3); + BEGIN $conf; + INSERT INTO t2 VALUES(1); + $cmd INTO t1 VALUES(1,2,4); + }]} r1] + catch {execsql {COMMIT}} + if {$r0} {set r1 {}} {set r1 [execsql {SELECT c FROM t1}]} + set r2 [execsql {SELECT x FROM t2}] + list $r0 $r1 $r2 + } [list $t0 $t1 $t2] +} + +do_test memdb-5.0 { + execsql { + DROP TABLE t2; + DROP TABLE t3; + CREATE TABLE t2(a,b,c); + INSERT INTO t2 VALUES(1,2,1); + INSERT INTO t2 VALUES(2,3,2); + INSERT INTO t2 VALUES(3,4,1); + INSERT INTO t2 VALUES(4,5,4); + SELECT c FROM t2 ORDER BY b; + CREATE TABLE t3(x); + INSERT INTO t3 VALUES(1); + } +} {1 2 1 4} + +# Six columns of configuration data as follows: +# +# i The reference number of the test +# conf1 The conflict resolution algorithm on the UNIQUE constraint +# conf2 The conflict resolution algorithm on the BEGIN statement +# cmd An UPDATE command to execute against table t1 +# t0 True if there is an error from $cmd +# t1 Content of "b" column of t1 assuming no error in $cmd +# t2 Content of "x" column of t3 +# +foreach {i conf1 conf2 cmd t0 t1 t2} { + 1 {} {} UPDATE 1 {6 7 8 9} 1 + 2 REPLACE {} UPDATE 0 {7 6 9} 1 + 3 IGNORE {} UPDATE 0 {6 7 3 9} 1 + 4 FAIL {} UPDATE 1 {6 7 3 4} 1 + 5 ABORT {} UPDATE 1 {1 2 3 4} 1 + 6 ROLLBACK {} UPDATE 1 {1 2 3 4} 0 + 7 REPLACE {} {UPDATE OR IGNORE} 0 {6 7 3 9} 1 + 8 IGNORE {} {UPDATE OR REPLACE} 0 {7 6 9} 1 + 9 FAIL {} {UPDATE OR IGNORE} 0 {6 7 3 9} 1 + 10 ABORT {} {UPDATE OR REPLACE} 0 {7 6 9} 1 + 11 ROLLBACK {} {UPDATE OR IGNORE} 0 {6 7 3 9} 1 + 12 {} {} {UPDATE OR IGNORE} 0 {6 7 3 9} 1 + 13 {} {} {UPDATE OR REPLACE} 0 {7 6 9} 1 + 14 {} {} {UPDATE OR FAIL} 1 {6 7 3 4} 1 + 15 {} {} {UPDATE OR ABORT} 1 {1 2 3 4} 1 + 16 {} {} {UPDATE OR ROLLBACK} 1 {1 2 3 4} 0 + 17 {} IGNORE UPDATE 0 {6 7 3 9} 1 + 18 {} REPLACE UPDATE 0 {7 6 9} 1 + 19 {} FAIL UPDATE 1 {6 7 3 4} 1 + 20 {} ABORT UPDATE 1 {1 2 3 4} 1 + 21 {} ROLLBACK UPDATE 1 {1 2 3 4} 0 + 22 REPLACE IGNORE UPDATE 0 {6 7 3 9} 1 + 23 IGNORE REPLACE UPDATE 0 {7 6 9} 1 + 24 REPLACE FAIL UPDATE 1 {6 7 3 4} 1 + 25 IGNORE ABORT UPDATE 1 {1 2 3 4} 1 + 26 REPLACE ROLLBACK UPDATE 1 {1 2 3 4} 0 +} { + if {$t0} {set t1 {column a is not unique}} + do_test memdb-5.$i { + if {$conf1!=""} {set conf1 "ON CONFLICT $conf1"} + if {$conf2!=""} {set conf2 "ON CONFLICT $conf2"} + set r0 [catch {execsql [subst { + DROP TABLE t1; + CREATE TABLE t1(a,b,c, UNIQUE(a) $conf1); + INSERT INTO t1 SELECT * FROM t2; + UPDATE t3 SET x=0; + BEGIN $conf2; + $cmd t3 SET x=1; + $cmd t1 SET b=b*2; + $cmd t1 SET a=c+5; + }]} r1] + catch {execsql {COMMIT}} + if {!$r0} {set r1 [execsql {SELECT a FROM t1 ORDER BY b}]} + set r2 [execsql {SELECT x FROM t3}] + list $r0 $r1 $r2 + } [list $t0 $t1 $t2] +} + +do_test memdb-6.1 { + execsql { + SELECT * FROM t2; + } +} {1 2 1 2 3 2 3 4 1 4 5 4} +do_test memdb-6.2 { + execsql { + BEGIN; + DROP TABLE t2; + SELECT name FROM sqlite_master WHERE type='table' ORDER BY 1; + } +} {t1 t3 t4} +do_test memdb-6.3 { + execsql { + ROLLBACK; + SELECT name FROM sqlite_master WHERE type='table' ORDER BY 1; + } +} {t1 t2 t3 t4} +do_test memdb-6.4 { + execsql { + SELECT * FROM t2; + } +} {1 2 1 2 3 2 3 4 1 4 5 4} +do_test memdb-6.5 { + execsql { + SELECT a FROM t2 UNION SELECT b FROM t2 ORDER BY 1; + } +} {1 2 3 4 5} +do_test memdb-6.6 { + execsql { + CREATE INDEX i2 ON t2(c); + SELECT a FROM t2 ORDER BY c; + } +} {1 3 2 4} +do_test memdb-6.6 { + execsql { + SELECT a FROM t2 ORDER BY c DESC; + } +} {4 2 3 1} +do_test memdb-6.7 { + execsql { + BEGIN; + CREATE TABLE t5(x,y); + INSERT INTO t5 VALUES(1,2); + SELECT * FROM t5; + } +} {1 2} +do_test memdb-6.8 { + execsql { + SELECT name FROM sqlite_master WHERE type='table' ORDER BY 1; + } +} {t1 t2 t3 t4 t5} +do_test memdb-6.9 { + execsql { + ROLLBACK; + SELECT name FROM sqlite_master WHERE type='table' ORDER BY 1; + } +} {t1 t2 t3 t4} +do_test memdb-6.10 { + execsql { + CREATE TABLE t5(x PRIMARY KEY, y UNIQUE); + SELECT * FROM t5; + } +} {} +do_test memdb-6.11 { + execsql { + SELECT * FROM t5 ORDER BY y DESC; + } +} {} +do_test memdb-6.12 { + execsql { + INSERT INTO t5 VALUES(1,2); + INSERT INTO t5 VALUES(3,4); + REPLACE INTO t5 VALUES(1,4); + SELECT rowid,* FROM t5; + } +} {3 1 4} +do_test memdb-6.13 { + execsql { + DELETE FROM t5 WHERE x>5; + SELECT * FROM t5; + } +} {1 4} +do_test memdb-6.14 { + execsql { + DELETE FROM t5 WHERE y<3; + SELECT * FROM t5; + } +} {1 4} +do_test memdb-6.15 { + execsql { + DELETE FROM t5 WHERE x>0; + SELECT * FROM t5; + } +} {} + +do_test memdb-7.1 { + execsql { + CREATE TABLE t6(x); + INSERT INTO t6 VALUES(1); + INSERT INTO t6 SELECT x+1 FROM t6; + INSERT INTO t6 SELECT x+2 FROM t6; + INSERT INTO t6 SELECT x+4 FROM t6; + INSERT INTO t6 SELECT x+8 FROM t6; + INSERT INTO t6 SELECT x+16 FROM t6; + INSERT INTO t6 SELECT x+32 FROM t6; + INSERT INTO t6 SELECT x+64 FROM t6; + INSERT INTO t6 SELECT x+128 FROM t6; + SELECT count(*) FROM (SELECT DISTINCT x FROM t6); + } +} {256} +for {set i 1} {$i<=256} {incr i} { + do_test memdb-7.2.$i { + execsql "DELETE FROM t6 WHERE x=\ + (SELECT x FROM t6 ORDER BY random() LIMIT 1)" + execsql {SELECT count(*) FROM t6} + } [expr {256-$i}] +} + +finish_test |