wasCSharpSQLite – Blame information for rev 1

Subversion Repositories:
Rev:
Rev Author Line No. Line
1 office 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