Same fix as r45172 for classes/iconimage:
[AROS-Contrib.git] / sqlite3 / test / insert.test
blob8b5052025f16f7cc1403c8da9c47c6ac8e1bcbfd
1 # 2001 September 15
3 # The author disclaims copyright to this source code.  In place of
4 # a legal notice, here is a blessing:
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.
10 #***********************************************************************
11 # This file implements regression tests for SQLite library.  The
12 # focus of this file is testing the INSERT statement.
14 # $Id: insert.test,v 1.26 2005/05/29 14:23:13 danielk1977 Exp $
16 set testdir [file dirname $argv0]
17 source $testdir/tester.tcl
19 # Try to insert into a non-existant table.
21 do_test insert-1.1 {
22   set v [catch {execsql {INSERT INTO test1 VALUES(1,2,3)}} msg]
23   lappend v $msg
24 } {1 {no such table: test1}}
26 # Try to insert into sqlite_master
28 do_test insert-1.2 {
29   set v [catch {execsql {INSERT INTO sqlite_master VALUES(1,2,3,4)}} msg]
30   lappend v $msg
31 } {1 {table sqlite_master may not be modified}}
33 # Try to insert the wrong number of entries.
35 do_test insert-1.3 {
36   execsql {CREATE TABLE test1(one int, two int, three int)}
37   set v [catch {execsql {INSERT INTO test1 VALUES(1,2)}} msg]
38   lappend v $msg
39 } {1 {table test1 has 3 columns but 2 values were supplied}}
40 do_test insert-1.3b {
41   set v [catch {execsql {INSERT INTO test1 VALUES(1,2,3,4)}} msg]
42   lappend v $msg
43 } {1 {table test1 has 3 columns but 4 values were supplied}}
44 do_test insert-1.3c {
45   set v [catch {execsql {INSERT INTO test1(one,two) VALUES(1,2,3,4)}} msg]
46   lappend v $msg
47 } {1 {4 values for 2 columns}}
48 do_test insert-1.3d {
49   set v [catch {execsql {INSERT INTO test1(one,two) VALUES(1)}} msg]
50   lappend v $msg
51 } {1 {1 values for 2 columns}}
53 # Try to insert into a non-existant column of a table.
55 do_test insert-1.4 {
56   set v [catch {execsql {INSERT INTO test1(one,four) VALUES(1,2)}} msg]
57   lappend v $msg
58 } {1 {table test1 has no column named four}}
60 # Make sure the inserts actually happen
62 do_test insert-1.5 {
63   execsql {INSERT INTO test1 VALUES(1,2,3)}
64   execsql {SELECT * FROM test1}
65 } {1 2 3}
66 do_test insert-1.5b {
67   execsql {INSERT INTO test1 VALUES(4,5,6)}
68   execsql {SELECT * FROM test1 ORDER BY one}
69 } {1 2 3 4 5 6}
70 do_test insert-1.5c {
71   execsql {INSERT INTO test1 VALUES(7,8,9)}
72   execsql {SELECT * FROM test1 ORDER BY one}
73 } {1 2 3 4 5 6 7 8 9}
75 do_test insert-1.6 {
76   execsql {DELETE FROM test1}
77   execsql {INSERT INTO test1(one,two) VALUES(1,2)}
78   execsql {SELECT * FROM test1 ORDER BY one}
79 } {1 2 {}}
80 do_test insert-1.6b {
81   execsql {INSERT INTO test1(two,three) VALUES(5,6)}
82   execsql {SELECT * FROM test1 ORDER BY one}
83 } {{} 5 6 1 2 {}}
84 do_test insert-1.6c {
85   execsql {INSERT INTO test1(three,one) VALUES(7,8)}
86   execsql {SELECT * FROM test1 ORDER BY one}
87 } {{} 5 6 1 2 {} 8 {} 7}
89 # A table to use for testing default values
91 do_test insert-2.1 {
92   execsql {
93     CREATE TABLE test2(
94       f1 int default -111, 
95       f2 real default +4.32,
96       f3 int default +222,
97       f4 int default 7.89
98     )
99   }
100   execsql {SELECT * from test2}
101 } {}
102 do_test insert-2.2 {
103   execsql {INSERT INTO test2(f1,f3) VALUES(+10,-10)}
104   execsql {SELECT * FROM test2}
105 } {10 4.32 -10 7.89}
106 do_test insert-2.3 {
107   execsql {INSERT INTO test2(f2,f4) VALUES(1.23,-3.45)}
108   execsql {SELECT * FROM test2 WHERE f1==-111}
109 } {-111 1.23 222 -3.45}
110 do_test insert-2.4 {
111   execsql {INSERT INTO test2(f1,f2,f4) VALUES(77,+1.23,3.45)}
112   execsql {SELECT * FROM test2 WHERE f1==77}
113 } {77 1.23 222 3.45}
114 do_test insert-2.10 {
115   execsql {
116     DROP TABLE test2;
117     CREATE TABLE test2(
118       f1 int default 111, 
119       f2 real default -4.32,
120       f3 text default hi,
121       f4 text default 'abc-123',
122       f5 varchar(10)
123     )
124   }
125   execsql {SELECT * from test2}
126 } {}
127 do_test insert-2.11 {
128   execsql {INSERT INTO test2(f2,f4) VALUES(-2.22,'hi!')}
129   execsql {SELECT * FROM test2}
130 } {111 -2.22 hi hi! {}}
131 do_test insert-2.12 {
132   execsql {INSERT INTO test2(f1,f5) VALUES(1,'xyzzy')}
133   execsql {SELECT * FROM test2 ORDER BY f1}
134 } {1 -4.32 hi abc-123 xyzzy 111 -2.22 hi hi! {}}
136 # Do additional inserts with default values, but this time
137 # on a table that has indices.  In particular we want to verify
138 # that the correct default values are inserted into the indices.
140 do_test insert-3.1 {
141   execsql {
142     DELETE FROM test2;
143     CREATE INDEX index9 ON test2(f1,f2);
144     CREATE INDEX indext ON test2(f4,f5);
145     SELECT * from test2;
146   }
147 } {}
149 # Update for sqlite3 v3:
150 # Change the 111 to '111' in the following two test cases, because
151 # the default value is being inserted as a string. TODO: It shouldn't be.
152 do_test insert-3.2 {
153   execsql {INSERT INTO test2(f2,f4) VALUES(-3.33,'hum')}
154   execsql {SELECT * FROM test2 WHERE f1='111' AND f2=-3.33}
155 } {111 -3.33 hi hum {}}
156 do_test insert-3.3 {
157   execsql {INSERT INTO test2(f1,f2,f5) VALUES(22,-4.44,'wham')}
158   execsql {SELECT * FROM test2 WHERE f1='111' AND f2=-3.33}
159 } {111 -3.33 hi hum {}}
160 do_test insert-3.4 {
161   execsql {SELECT * FROM test2 WHERE f1=22 AND f2=-4.44}
162 } {22 -4.44 hi abc-123 wham}
163 ifcapable {reindex} {
164   do_test insert-3.5 {
165     execsql REINDEX
166   } {}
168 integrity_check insert-3.5
170 # Test of expressions in the VALUES clause
172 do_test insert-4.1 {
173   execsql {
174     CREATE TABLE t3(a,b,c);
175     INSERT INTO t3 VALUES(1+2+3,4,5);
176     SELECT * FROM t3;
177   }
178 } {6 4 5}
179 do_test insert-4.2 {
180   ifcapable subquery {
181     execsql {INSERT INTO t3 VALUES((SELECT max(a) FROM t3)+1,5,6);}
182   } else {
183     set maxa [execsql {SELECT max(a) FROM t3}]
184     execsql "INSERT INTO t3 VALUES($maxa+1,5,6);"
185   }
186   execsql {
187     SELECT * FROM t3 ORDER BY a;
188   }
189 } {6 4 5 7 5 6}
190 ifcapable subquery {
191   do_test insert-4.3 {
192     catchsql {
193       INSERT INTO t3 VALUES((SELECT max(a) FROM t3)+1,t3.a,6);
194       SELECT * FROM t3 ORDER BY a;
195     }
196   } {1 {no such column: t3.a}}
198 do_test insert-4.4 {
199   ifcapable subquery {
200     execsql {INSERT INTO t3 VALUES((SELECT b FROM t3 WHERE a=0),6,7);}
201   } else {
202     set b [execsql {SELECT b FROM t3 WHERE a = 0}]
203     if {$b==""} {set b NULL}
204     execsql "INSERT INTO t3 VALUES($b,6,7);"
205   }
206   execsql {
207     SELECT * FROM t3 ORDER BY a;
208   }
209 } {{} 6 7 6 4 5 7 5 6}
210 do_test insert-4.5 {
211   execsql {
212     SELECT b,c FROM t3 WHERE a IS NULL;
213   }
214 } {6 7}
215 do_test insert-4.6 {
216   catchsql {
217     INSERT INTO t3 VALUES(notafunc(2,3),2,3);
218   }
219 } {1 {no such function: notafunc}}
220 do_test insert-4.7 {
221   execsql {
222     INSERT INTO t3 VALUES(min(1,2,3),max(1,2,3),99);
223     SELECT * FROM t3 WHERE c=99;
224   }
225 } {1 3 99}
227 # Test the ability to insert from a temporary table into itself.
228 # Ticket #275.
230 ifcapable tempdb {
231   do_test insert-5.1 {
232     execsql {
233       CREATE TEMP TABLE t4(x);
234       INSERT INTO t4 VALUES(1);
235       SELECT * FROM t4;
236     }
237   } {1}
238   do_test insert-5.2 {
239     execsql {
240       INSERT INTO t4 SELECT x+1 FROM t4;
241       SELECT * FROM t4;
242     }
243   } {1 2}
244   ifcapable {explain} {
245     do_test insert-5.3 {
246       # verify that a temporary table is used to copy t4 to t4
247       set x [execsql {
248         EXPLAIN INSERT INTO t4 SELECT x+2 FROM t4;
249       }]
250       expr {[lsearch $x OpenTemp]>0}
251     } {1}
252   }
253   
254   do_test insert-5.4 {
255     # Verify that table "test1" begins on page 3.  This should be the same
256     # page number used by "t4" above.
257     #
258     # Update for v3 - the first table now begins on page 2 of each file, not 3.
259     execsql {
260       SELECT rootpage FROM sqlite_master WHERE name='test1';
261     }
262   } [expr $AUTOVACUUM?3:2]
263   do_test insert-5.5 {
264     # Verify that "t4" begins on page 3.
265     #
266     # Update for v3 - the first table now begins on page 2 of each file, not 3.
267     execsql {
268       SELECT rootpage FROM sqlite_temp_master WHERE name='t4';
269     }
270   } {2}
271   do_test insert-5.6 {
272     # This should not use an intermediate temporary table.
273     execsql {
274       INSERT INTO t4 SELECT one FROM test1 WHERE three=7;
275       SELECT * FROM t4
276     }
277   } {1 2 8}
278   ifcapable {explain} {
279     do_test insert-5.7 {
280       # verify that no temporary table is used to copy test1 to t4
281       set x [execsql {
282         EXPLAIN INSERT INTO t4 SELECT one FROM test1;
283       }]
284       expr {[lsearch $x OpenTemp]>0}
285     } {0}
286   }
289 # Ticket #334:  REPLACE statement corrupting indices.
291 do_test insert-6.1 {
292   execsql {
293     CREATE TABLE t1(a INTEGER PRIMARY KEY, b UNIQUE);
294     INSERT INTO t1 VALUES(1,2);
295     INSERT INTO t1 VALUES(2,3);
296     SELECT b FROM t1 WHERE b=2;
297   }
298 } {2}
299 do_test insert-6.2 {
300   execsql {
301     REPLACE INTO t1 VALUES(1,4);
302     SELECT b FROM t1 WHERE b=2;
303   }
304 } {}
305 do_test insert-6.3 {
306   execsql {
307     UPDATE OR REPLACE t1 SET a=2 WHERE b=4;
308     SELECT * FROM t1 WHERE b=4;
309   }
310 } {2 4}
311 do_test insert-6.4 {
312   execsql {
313     SELECT * FROM t1 WHERE b=3;
314   }
315 } {}
316 ifcapable {reindex} {
317   do_test insert-6.7 {
318     execsql REINDEX
319   } {}
322 # Test that the special optimization for queries of the form 
323 # "SELECT max(x) FROM tbl" where there is an index on tbl(x) works with 
324 # INSERT statments.
325 do_test insert-7.1 {
326   execsql {
327     DROP TABLE t1;
328     CREATE TABLE t1(a);
329     INSERT INTO t1 VALUES(1);
330     INSERT INTO t1 VALUES(2);
331     CREATE INDEX i1 ON t1(a);
332   }
333 } {}
334 do_test insert-7.2 {
335   execsql {
336     INSERT INTO t1 SELECT max(a) FROM t1;
337   }
338 } {}
339 do_test insert-7.3 {
340   execsql {
341     SELECT a FROM t1;
342   }
343 } {1 2 2}
345 # Ticket #1140:  Check for an infinite loop in the algorithm that tests
346 # to see if the right-hand side of an INSERT...SELECT references the left-hand
347 # side.
349 ifcapable subquery {
350   do_test insert-8.1 {
351     execsql {
352       INSERT INTO t3 SELECT * FROM (SELECT * FROM t3 UNION ALL SELECT 1,2,3)
353     }
354   } {}
358 integrity_check insert-99.0
360 finish_test