OLD | NEW |
| (Empty) |
1 # 2009 April 24 | |
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 # Ticket #3824 | |
13 # | |
14 # When you use an "IS NULL" constraint on a UNIQUE index, the result | |
15 # is not necessarily UNIQUE. Make sure the optimizer does not assume | |
16 # uniqueness. | |
17 # | |
18 # $Id: tkt3824.test,v 1.2 2009/04/24 20:32:31 drh Exp $ | |
19 | |
20 set testdir [file dirname $argv0] | |
21 source $testdir/tester.tcl | |
22 | |
23 proc execsql_status {sql {db db}} { | |
24 set result [uplevel $db eval [list $sql]] | |
25 if {[db status sort]} { | |
26 concat $result sort | |
27 } else { | |
28 concat $result nosort | |
29 } | |
30 } | |
31 | |
32 do_test tkt3824-1.1 { | |
33 db eval { | |
34 CREATE TABLE t1(a,b); | |
35 INSERT INTO t1 VALUES(1,NULL); | |
36 INSERT INTO t1 VALUES(9,NULL); | |
37 INSERT INTO t1 VALUES(5,NULL); | |
38 INSERT INTO t1 VALUES(123,NULL); | |
39 INSERT INTO t1 VALUES(-10,NULL); | |
40 CREATE UNIQUE INDEX t1b ON t1(b); | |
41 } | |
42 execsql_status { | |
43 SELECT a FROM t1 WHERE b IS NULL ORDER BY a; | |
44 } | |
45 } {-10 1 5 9 123 sort} | |
46 do_test tkt3824-1.2 { | |
47 execsql_status { | |
48 SELECT a FROM t1 WHERE b IS NULL ORDER BY b, a; | |
49 } | |
50 } {-10 1 5 9 123 sort} | |
51 | |
52 do_test tkt3824-2.1 { | |
53 db eval { | |
54 CREATE TABLE t2(a,b,c); | |
55 INSERT INTO t2 VALUES(1,1,NULL); | |
56 INSERT INTO t2 VALUES(9,2,NULL); | |
57 INSERT INTO t2 VALUES(5,2,NULL); | |
58 INSERT INTO t2 VALUES(123,3,NULL); | |
59 INSERT INTO t2 VALUES(-10,3,NULL); | |
60 CREATE UNIQUE INDEX t2bc ON t2(b,c); | |
61 } | |
62 execsql_status { | |
63 SELECT a FROM t2 WHERE b=2 AND c IS NULL ORDER BY a; | |
64 } | |
65 } {5 9 sort} | |
66 do_test tkt3824-2.2 { | |
67 execsql_status { | |
68 SELECT a FROM t2 WHERE b=2 AND c IS NULL ORDER BY b, a; | |
69 } | |
70 } {5 9 sort} | |
71 do_test tkt3824-2.3 { | |
72 lsort [execsql_status { | |
73 SELECT a FROM t2 WHERE b=2 AND c IS NULL ORDER BY b; | |
74 }] | |
75 } {5 9 nosort} | |
76 | |
77 do_test tkt3824-3.1 { | |
78 db eval { | |
79 CREATE TABLE t3(x,y); | |
80 INSERT INTO t3 SELECT a, b FROM t1; | |
81 INSERT INTO t3 VALUES(234,567); | |
82 CREATE UNIQUE INDEX t3y ON t3(y); | |
83 DELETE FROM t3 WHERE y IS NULL; | |
84 SELECT * FROM t3; | |
85 } | |
86 } {234 567} | |
87 | |
88 do_test tkt3824-4.1 { | |
89 db eval { | |
90 CREATE TABLE t4(x,y); | |
91 INSERT INTO t4 SELECT a, b FROM t1; | |
92 INSERT INTO t4 VALUES(234,567); | |
93 CREATE UNIQUE INDEX t4y ON t4(y); | |
94 UPDATE t4 SET rowid=rowid+100 WHERE y IS NULL; | |
95 SELECT rowid, x FROM t4 ORDER BY rowid; | |
96 } | |
97 } {6 234 101 1 102 9 103 5 104 123 105 -10} | |
98 | |
99 finish_test | |
OLD | NEW |