1: # 2011 January 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: # This file implements regression tests for SQLite library.
12: #
13: # This file implements tests to verify that ticket [5d863f876e] has been
14: # fixed.
15: #
16:
17: set testdir [file dirname $argv0]
18: source $testdir/tester.tcl
19: source $testdir/lock_common.tcl
20:
21: do_multiclient_test tn {
22: do_test $tn.1 {
23: sql1 {
24: CREATE TABLE t1(a, b);
25: CREATE INDEX i1 ON t1(a, b);
26: INSERT INTO t1 VALUES(1, 2);
27: INSERT INTO t1 VALUES(3, 4);
28: PRAGMA journal_mode = WAL;
29: VACUUM;
30: PRAGMA journal_mode = DELETE;
31: }
32: } {wal delete}
33:
34: do_test $tn.2 {
35: sql2 { SELECT * FROM t1 }
36: } {1 2 3 4}
37:
38: do_test $tn.3 {
39: sql1 {
40: INSERT INTO t1 VALUES(5, 6);
41: PRAGMA journal_mode = WAL;
42: VACUUM;
43: PRAGMA journal_mode = DELETE;
44: }
45: } {wal delete}
46:
47: do_test $tn.2 {
48: sql2 { PRAGMA integrity_check }
49: } {ok}
50: }
51:
52:
53: finish_test
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>