wasCSharpSQLite – Blame information for rev 7
?pathlinks?
Rev | Author | Line No. | Line |
---|---|---|---|
1 | office | 1 | # 2004 November 5 |
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 | # This file implements tests for the REINDEX command. |
||
13 | # |
||
14 | # $Id: reindex.test,v 1.4 2008/07/12 14:52:20 drh Exp $ |
||
15 | |||
16 | set testdir [file dirname $argv0] |
||
17 | source $testdir/tester.tcl |
||
18 | |||
19 | # There is nothing to test if REINDEX is disable for this build. |
||
20 | # |
||
21 | ifcapable {!reindex} { |
||
22 | finish_test |
||
23 | return |
||
24 | } |
||
25 | |||
26 | # Basic sanity checks. |
||
27 | # |
||
28 | do_test reindex-1.1 { |
||
29 | execsql { |
||
30 | CREATE TABLE t1(a,b); |
||
31 | INSERT INTO t1 VALUES(1,2); |
||
32 | INSERT INTO t1 VALUES(3,4); |
||
33 | CREATE INDEX i1 ON t1(a); |
||
34 | REINDEX; |
||
35 | } |
||
36 | } {} |
||
37 | integrity_check reindex-1.2 |
||
38 | do_test reindex-1.3 { |
||
39 | execsql { |
||
40 | REINDEX t1; |
||
41 | } |
||
42 | } {} |
||
43 | integrity_check reindex-1.4 |
||
44 | do_test reindex-1.5 { |
||
45 | execsql { |
||
46 | REINDEX i1; |
||
47 | } |
||
48 | } {} |
||
49 | integrity_check reindex-1.6 |
||
50 | do_test reindex-1.7 { |
||
51 | execsql { |
||
52 | REINDEX main.t1; |
||
53 | } |
||
54 | } {} |
||
55 | do_test reindex-1.8 { |
||
56 | execsql { |
||
57 | REINDEX main.i1; |
||
58 | } |
||
59 | } {} |
||
60 | do_test reindex-1.9 { |
||
61 | catchsql { |
||
62 | REINDEX bogus |
||
63 | } |
||
64 | } {1 {unable to identify the object to be reindexed}} |
||
65 | |||
66 | # Set up a table for testing that includes several different collating |
||
67 | # sequences including some that we can modify. |
||
68 | # |
||
69 | do_test reindex-2.1 { |
||
70 | proc c1 {a b} { |
||
71 | return [expr {-[string compare $a $b]}] |
||
72 | } |
||
73 | proc c2 {a b} { |
||
74 | return [expr {-[string compare [string tolower $a] [string tolower $b]]}] |
||
75 | } |
||
76 | db collate c1 c1 |
||
77 | db collate c2 c2 |
||
78 | execsql { |
||
79 | CREATE TABLE t2( |
||
80 | a TEXT PRIMARY KEY COLLATE c1, |
||
81 | b TEXT UNIQUE COLLATE c2, |
||
82 | c TEXT COLLATE nocase, |
||
83 | d TEST COLLATE binary |
||
84 | ); |
||
85 | INSERT INTO t2 VALUES('abc','abc','abc','abc'); |
||
86 | INSERT INTO t2 VALUES('ABCD','ABCD','ABCD','ABCD'); |
||
87 | INSERT INTO t2 VALUES('bcd','bcd','bcd','bcd'); |
||
88 | INSERT INTO t2 VALUES('BCDE','BCDE','BCDE','BCDE'); |
||
89 | SELECT a FROM t2 ORDER BY a; |
||
90 | } |
||
91 | } {bcd abc BCDE ABCD} |
||
92 | do_test reindex-2.2 { |
||
93 | execsql { |
||
94 | SELECT b FROM t2 ORDER BY b; |
||
95 | } |
||
96 | } {BCDE bcd ABCD abc} |
||
97 | do_test reindex-2.3 { |
||
98 | execsql { |
||
99 | SELECT c FROM t2 ORDER BY c; |
||
100 | } |
||
101 | } {abc ABCD bcd BCDE} |
||
102 | do_test reindex-2.4 { |
||
103 | execsql { |
||
104 | SELECT d FROM t2 ORDER BY d; |
||
105 | } |
||
106 | } {ABCD BCDE abc bcd} |
||
107 | |||
108 | # Change a collating sequence function. Verify that REINDEX rebuilds |
||
109 | # the index. |
||
110 | # |
||
111 | do_test reindex-2.5 { |
||
112 | proc c1 {a b} { |
||
113 | return [string compare $a $b] |
||
114 | } |
||
115 | execsql { |
||
116 | SELECT a FROM t2 ORDER BY a; |
||
117 | } |
||
118 | } {bcd abc BCDE ABCD} |
||
119 | ifcapable {integrityck} { |
||
120 | do_test reindex-2.5.1 { |
||
121 | string equal ok [execsql {PRAGMA integrity_check}] |
||
122 | } {0} |
||
123 | } |
||
124 | do_test reindex-2.6 { |
||
125 | execsql { |
||
126 | REINDEX c2; |
||
127 | SELECT a FROM t2 ORDER BY a; |
||
128 | } |
||
129 | } {bcd abc BCDE ABCD} |
||
130 | do_test reindex-2.7 { |
||
131 | execsql { |
||
132 | REINDEX t1; |
||
133 | SELECT a FROM t2 ORDER BY a; |
||
134 | } |
||
135 | } {bcd abc BCDE ABCD} |
||
136 | do_test reindex-2.8 { |
||
137 | execsql { |
||
138 | REINDEX c1; |
||
139 | SELECT a FROM t2 ORDER BY a; |
||
140 | } |
||
141 | } {ABCD BCDE abc bcd} |
||
142 | integrity_check reindex-2.8.1 |
||
143 | |||
144 | # Try to REINDEX an index for which the collation sequence is not available. |
||
145 | # |
||
146 | do_test reindex-3.1 { |
||
147 | sqlite3 db2 test.db |
||
148 | catchsql { |
||
149 | REINDEX c1; |
||
150 | } db2 |
||
151 | } {1 {no such collation sequence: c1}} |
||
152 | do_test reindex-3.2 { |
||
153 | proc need_collate {collation} { |
||
154 | db2 collate c1 c1 |
||
155 | } |
||
156 | db2 collation_needed need_collate |
||
157 | catchsql { |
||
158 | REINDEX c1; |
||
159 | } db2 |
||
160 | } {0 {}} |
||
161 | do_test reindex-3.3 { |
||
162 | catchsql { |
||
163 | REINDEX; |
||
164 | } db2 |
||
165 | } {1 {no such collation sequence: c2}} |
||
166 | |||
167 | do_test reindex-3.99 { |
||
168 | db2 close |
||
169 | } {} |
||
170 | |||
171 | finish_test |