# 2010 February 18
#
# 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.
#
#***********************************************************************
#
# The tests in this file check that SQLite uses (or does not use) a
# statement journal for various SQL statements.
#
set testdir [file dirname $argv0]
source $testdir/tester.tcl
do_test stmt-1.1 {
execsql { CREATE TABLE t1(a integer primary key, b INTEGER NOT NULL) }
} {}
# The following tests verify the method used for the tests in this file -
# that if a statement journal is required by a statement it is opened and
# remains open until the current transaction is committed or rolled back.
#
# This only work if SQLITE_TEMP_STORE!=3
#
if {$::TEMP_STORE==3} {
finish_test
return
}
do_test stmt-1.2 {
set sqlite_open_file_count
} {1}
do_test stmt-1.3 {
execsql {
PRAGMA temp_store = file;
BEGIN;
INSERT INTO t1 VALUES(1, 1);
}
set sqlite_open_file_count
} {2}
do_test stmt-1.4 {
execsql {
INSERT INTO t1 SELECT a+1, b+1 FROM t1;
}
set sqlite_open_file_count
} {3}
do_test stmt-1.5 {
execsql COMMIT
set sqlite_open_file_count
} {1}
do_test stmt-1.6.1 {
execsql {
BEGIN;
INSERT INTO t1 SELECT a+2, b+2 FROM t1;
}
set sqlite_open_file_count
} {2}
do_test stmt-1.6.2 {
execsql { INSERT INTO t1 SELECT a+4, b+4 FROM t1 }
set sqlite_open_file_count
} {3}
do_test stmt-1.7 {
execsql COMMIT
set sqlite_open_file_count
} {1}
proc filecount {testname sql expected} {
uplevel [list do_test $testname [subst -nocommand {
execsql BEGIN
execsql { $sql }
set ret [set sqlite_open_file_count]
execsql ROLLBACK
set ret
}] $expected]
}
filecount stmt-2.1 { INSERT INTO t1 VALUES(9, 9) } 2
filecount stmt-2.2 { REPLACE INTO t1 VALUES(9, 9) } 2
filecount stmt-2.3 { INSERT INTO t1 SELECT 9, 9 } 2
filecount stmt-2.4 {
INSERT INTO t1 SELECT 9, 9;
INSERT INTO t1 SELECT 10, 10;
} 3
do_test stmt-2.5 {
execsql { CREATE INDEX i1 ON t1(b) }
} {}
filecount stmt-2.6 {
REPLACE INTO t1 VALUES(5, 5);
REPLACE INTO t1 VALUES(5, 5);
} 3
finish_test
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>