118 lines
2.8 KiB
Plaintext
118 lines
2.8 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 file is modifications made to tables while SELECT queries are
|
|
# active on the tables. Using this capability in a program is tricky
|
|
# because results can be difficult to predict, but can be useful.
|
|
#
|
|
# $Id: lock4.test,v 1.1 2004/11/17 16:41:29 danielk1977 Exp $
|
|
#
|
|
|
|
set testdir [file dirname $argv0]
|
|
source $testdir/tester.tcl
|
|
|
|
do_test lock4-1.0 {
|
|
execsql {
|
|
CREATE TABLE t1(a, b);
|
|
INSERT INTO t1 VALUES(1, 2);
|
|
}
|
|
} {}
|
|
|
|
# Check that we can INSERT into a table while doing a SELECT on it.
|
|
do_test lock4-1.1 {
|
|
db eval {SELECT * FROM t1} {
|
|
if {$a<5} {
|
|
execsql "INSERT INTO t1 VALUES($a+1, ($a+1)*2)"
|
|
}
|
|
}
|
|
} {}
|
|
do_test lock4-1.2 {
|
|
execsql {
|
|
SELECT * FROM t1
|
|
}
|
|
} {1 2 2 4 3 6 4 8 5 10}
|
|
|
|
# Check that we can UPDATE a table while doing a SELECT on it.
|
|
do_test lock4-1.3 {
|
|
db eval {SELECT * FROM t1 WHERE (a%2)=0} {
|
|
execsql "UPDATE t1 SET b = b/2 WHERE a = $a"
|
|
}
|
|
} {}
|
|
do_test lock4-1.4 {
|
|
execsql {
|
|
SELECT * FROM t1
|
|
}
|
|
} {1 2 2 2 3 6 4 4 5 10}
|
|
|
|
# Check that we can DELETE from a table while doing a SELECT on it.
|
|
do_test lock4-1.5 {
|
|
db eval {SELECT * FROM t1 WHERE (a%2)=0} {
|
|
execsql "DELETE FROM t1 WHERE a = $a"
|
|
}
|
|
} {}
|
|
do_test lock4-1.6 {
|
|
execsql {
|
|
SELECT * FROM t1
|
|
}
|
|
} {1 2 3 6 5 10}
|
|
|
|
# Check what happens when a row is deleted while a cursor is still using
|
|
# the row (because of a SELECT that does a join).
|
|
do_test lock4-2.0 {
|
|
execsql {
|
|
CREATE TABLE t2(c);
|
|
INSERT INTO t2 VALUES('one');
|
|
INSERT INTO t2 VALUES('two');
|
|
}
|
|
} {}
|
|
do_test lock4-2.1 {
|
|
set res [list]
|
|
db eval {SELECT a, b, c FROM t1, t2} {
|
|
lappend res $a $b $c
|
|
if {0==[string compare $c one]} {
|
|
execsql "DELETE FROM t1 WHERE a = $a"
|
|
}
|
|
}
|
|
set res
|
|
} {1 2 one 1 2 two 3 6 one 3 6 two 5 10 one 5 10 two}
|
|
do_test lock4-2.2 {
|
|
execsql {
|
|
SELECT * FROM t1;
|
|
}
|
|
} {}
|
|
|
|
# do_test lock4-2.3 {
|
|
# execsql "
|
|
# INSERT INTO t1 VALUES('[string repeat 1 750]', '[string repeat 2 750]')
|
|
# "
|
|
# } {}
|
|
# do_test lock4-2.4 {
|
|
# set res [list]
|
|
# db eval {SELECT a, b, c FROM t1, t2} {
|
|
# lappend res $a $b $c
|
|
# if {0==[string compare $c one]} {
|
|
# execsql "DELETE FROM t1 WHERE a = '$a'"
|
|
# }
|
|
# }
|
|
# set res
|
|
# } [list \
|
|
# [string repeat 1 750] [string repeat 2 750] one \
|
|
# [string repeat 1 750] [string repeat 2 750] two
|
|
# ]
|
|
# do_test lock4-2.5 {
|
|
# execsql {
|
|
# SELECT * FROM t1;
|
|
# }
|
|
# } {}
|
|
|
|
finish_test
|
|
|