Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Newer
Older
100644 120 lines (112 sloc) 3.319 kb
617ed01e »
2008-07-30 commit of sqlite 3.6.0
1 # 2003 September 6
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. The
12 # focus of this script is a test to replicate the bug reported by
13 # ticket #842.
14 #
15 # Ticket #842 was a database corruption problem caused by a DELETE that
16 # removed an index entry by not the main table entry. To recreate the
17 # problem do this:
18 #
19 # (1) Create a table with an index. Insert some data into that table.
20 # (2) Start a query on the table but do not complete the query.
21 # (3) Try to delete a single entry from the table.
22 #
23 # Step 3 will fail because there is still a read cursor on the table.
24 # But the database is corrupted by the DELETE. It turns out that the
25 # index entry was deleted first, before the table entry. And the index
26 # delete worked. Thus an entry was deleted from the index but not from
27 # the table.
28 #
29 # The solution to the problem was to detect that the table is locked
30 # before the index entry is deleted.
31 #
32 # $Id: delete2.test,v 1.8 2008/07/08 15:59:52 danielk1977 Exp $
33 #
34
35 set testdir [file dirname $argv0]
36 source $testdir/tester.tcl
37
38 # Create a table that has an index.
39 #
40 do_test delete2-1.1 {
41 set DB [sqlite3_connection_pointer db]
42 execsql {
43 CREATE TABLE q(s string, id string, constraint pk_q primary key(id));
44 BEGIN;
45 INSERT INTO q(s,id) VALUES('hello','id.1');
46 INSERT INTO q(s,id) VALUES('goodbye','id.2');
47 INSERT INTO q(s,id) VALUES('again','id.3');
48 END;
49 SELECT * FROM q;
50 }
51 } {hello id.1 goodbye id.2 again id.3}
52 do_test delete2-1.2 {
53 execsql {
54 SELECT * FROM q WHERE id='id.1';
55 }
56 } {hello id.1}
57 integrity_check delete2-1.3
58
59 # Start a query on the table. The query should not use the index.
60 # Do not complete the query, thus leaving the table locked.
61 #
62 do_test delete2-1.4 {
63 set STMT [sqlite3_prepare $DB {SELECT * FROM q} -1 TAIL]
64 sqlite3_step $STMT
65 } SQLITE_ROW
66 integrity_check delete2-1.5
67
68 # Try to delete a row from the table while a read is in process.
69 # As of 2006-08-16, this is allowed. (It used to fail with SQLITE_LOCKED.)
70 #
71 do_test delete2-1.6 {
72 catchsql {
73 DELETE FROM q WHERE rowid=1
74 }
75 } {0 {}}
76 integrity_check delete2-1.7
77 do_test delete2-1.8 {
78 execsql {
79 SELECT * FROM q;
80 }
81 } {goodbye id.2 again id.3}
82
83 # Finalize the query, thus clearing the lock on the table. Then
84 # retry the delete. The delete should work this time.
85 #
86 do_test delete2-1.9 {
87 sqlite3_finalize $STMT
88 catchsql {
89 DELETE FROM q WHERE rowid=1
90 }
91 } {0 {}}
92 integrity_check delete2-1.10
93 do_test delete2-1.11 {
94 execsql {
95 SELECT * FROM q;
96 }
97 } {goodbye id.2 again id.3}
98
99 do_test delete2-2.1 {
100 execsql {
101 CREATE TABLE t1(a, b);
102 CREATE TABLE t2(c, d);
103 INSERT INTO t1 VALUES(1, 2);
104 INSERT INTO t2 VALUES(3, 4);
105 INSERT INTO t2 VALUES(5, 6);
106 }
107 } {}
108 do_test delete2-2.2 {
109 set res [list]
110 db eval {
111 SELECT CASE WHEN c = 5 THEN b ELSE NULL END AS b, c, d FROM t1, t2
112 } {
113 db eval {DELETE FROM t1}
114 lappend res $b $c $d
115 }
116 set res
117 } {{} 3 4 {} 5 6}
118
119 finish_test
Something went wrong with that request. Please try again.