433 lines
11 KiB
Plaintext
433 lines
11 KiB
Plaintext
# 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.19 2009/05/18 16:04:38 danielk1977 Exp $
|
|
|
|
|
|
set testdir [file dirname $argv0]
|
|
source $testdir/tester.tcl
|
|
|
|
ifcapable memorydb {
|
|
|
|
# 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
|
|
sqlite3 db :memory:
|
|
# sqlite3 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]
|
|
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
|
|
}
|
|
|
|
integrity_check memdb-2.1
|
|
|
|
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 {} {}
|
|
} {
|
|
|
|
# All tests after test 1 depend on conflict resolution. So end the
|
|
# loop if that is not available in this build.
|
|
ifcapable !conflict {if {$i>1} break}
|
|
|
|
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
|
|
} {
|
|
# All tests after test 1 depend on conflict resolution. So end the
|
|
# loop if that is not available in this build.
|
|
ifcapable !conflict {
|
|
if {$i>1} break
|
|
}
|
|
|
|
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 "
|
|
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}
|
|
ifcapable compound {
|
|
do_test memdb-6.5 {
|
|
execsql {
|
|
SELECT a FROM t2 UNION SELECT b FROM t2 ORDER BY 1;
|
|
}
|
|
} {1 2 3 4 5}
|
|
} ;# ifcapable compound
|
|
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;
|
|
}
|
|
} {}
|
|
|
|
ifcapable conflict {
|
|
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;
|
|
}
|
|
} {}
|
|
|
|
ifcapable subquery&&vtab {
|
|
do_test memdb-7.1 {
|
|
load_static_extension db wholenumber
|
|
execsql {
|
|
CREATE TABLE t6(x);
|
|
CREATE VIRTUAL TABLE nums USING wholenumber;
|
|
INSERT INTO t6 SELECT value FROM nums WHERE value BETWEEN 1 AND 256;
|
|
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}]
|
|
}
|
|
}
|
|
|
|
# Ticket #1524
|
|
#
|
|
do_test memdb-8.1 {
|
|
db close
|
|
sqlite3 db {:memory:}
|
|
execsql {
|
|
PRAGMA auto_vacuum=TRUE;
|
|
CREATE TABLE t1(a);
|
|
INSERT INTO t1 VALUES(randstr(5000,6000));
|
|
INSERT INTO t1 VALUES(randstr(5000,6000));
|
|
INSERT INTO t1 VALUES(randstr(5000,6000));
|
|
INSERT INTO t1 VALUES(randstr(5000,6000));
|
|
INSERT INTO t1 VALUES(randstr(5000,6000));
|
|
SELECT count(*) FROM t1;
|
|
}
|
|
} 5
|
|
do_test memdb-8.2 {
|
|
execsql {
|
|
DELETE FROM t1;
|
|
SELECT count(*) FROM t1;
|
|
}
|
|
} 0
|
|
|
|
# Test that auto-vacuum works with in-memory databases.
|
|
#
|
|
ifcapable autovacuum {
|
|
do_test memdb-9.1 {
|
|
db close
|
|
sqlite3 db test.db
|
|
db cache size 0
|
|
execsql {
|
|
PRAGMA auto_vacuum = full;
|
|
CREATE TABLE t1(a);
|
|
INSERT INTO t1 VALUES(randstr(1000,1000));
|
|
INSERT INTO t1 VALUES(randstr(1000,1000));
|
|
INSERT INTO t1 VALUES(randstr(1000,1000));
|
|
}
|
|
set memused [lindex [sqlite3_status SQLITE_STATUS_MEMORY_USED 0] 1]
|
|
set pgovfl [lindex [sqlite3_status SQLITE_STATUS_PAGECACHE_OVERFLOW 0] 1]
|
|
execsql { DELETE FROM t1 }
|
|
set memused2 [lindex [sqlite3_status SQLITE_STATUS_MEMORY_USED 0] 1]
|
|
expr {($memused2 + 2048 < $memused) || $pgovfl==0}
|
|
} {1}
|
|
}
|
|
|
|
} ;# ifcapable memorydb
|
|
|
|
finish_test
|