1: # 2010 June 15
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: #
12:
13: set testdir [file dirname $argv0]
14: source $testdir/tester.tcl
15: source $testdir/lock_common.tcl
16: source $testdir/malloc_common.tcl
17: source $testdir/wal_common.tcl
18:
19:
20: foreach {tn sql res j} {
21: 1 "PRAGMA journal_mode = DELETE" delete 0
22: 2 "CREATE TABLE t1(a, b)" {} 0
23: 3 "PRAGMA locking_mode=EXCLUSIVE" {exclusive} 0
24: 4 "INSERT INTO t1 VALUES(1, 2)" {} 1
25: 5 "PRAGMA locking_mode=NORMAL" {normal} 1
26: 6 "SELECT * FROM t1" {1 2} 0
27: } {
28: do_execsql_test pager3-1.$tn.1 $sql $res
29: do_test pager3-1.$tn.2 { file exists test.db-journal } $j
30: }
31:
32:
33: finish_test
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>