OLD | NEW |
(Empty) | |
| 1 # 2008 September 16 |
| 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 # |
| 13 # $Id: selectC.test,v 1.5 2009/05/17 15:26:21 drh Exp $ |
| 14 |
| 15 set testdir [file dirname $argv0] |
| 16 source $testdir/tester.tcl |
| 17 set testprefix selectC |
| 18 |
| 19 # Ticket # |
| 20 do_test selectC-1.1 { |
| 21 execsql { |
| 22 CREATE TABLE t1(a, b, c); |
| 23 INSERT INTO t1 VALUES(1,'aaa','bbb'); |
| 24 INSERT INTO t1 SELECT * FROM t1; |
| 25 INSERT INTO t1 VALUES(2,'ccc','ddd'); |
| 26 |
| 27 SELECT DISTINCT a AS x, b||c AS y |
| 28 FROM t1 |
| 29 WHERE y IN ('aaabbb','xxx'); |
| 30 } |
| 31 } {1 aaabbb} |
| 32 do_test selectC-1.2 { |
| 33 execsql { |
| 34 SELECT DISTINCT a AS x, b||c AS y |
| 35 FROM t1 |
| 36 WHERE b||c IN ('aaabbb','xxx'); |
| 37 } |
| 38 } {1 aaabbb} |
| 39 do_test selectC-1.3 { |
| 40 execsql { |
| 41 SELECT DISTINCT a AS x, b||c AS y |
| 42 FROM t1 |
| 43 WHERE y='aaabbb' |
| 44 } |
| 45 } {1 aaabbb} |
| 46 do_test selectC-1.4 { |
| 47 execsql { |
| 48 SELECT DISTINCT a AS x, b||c AS y |
| 49 FROM t1 |
| 50 WHERE b||c='aaabbb' |
| 51 } |
| 52 } {1 aaabbb} |
| 53 do_test selectC-1.5 { |
| 54 execsql { |
| 55 SELECT DISTINCT a AS x, b||c AS y |
| 56 FROM t1 |
| 57 WHERE x=2 |
| 58 } |
| 59 } {2 cccddd} |
| 60 do_test selectC-1.6 { |
| 61 execsql { |
| 62 SELECT DISTINCT a AS x, b||c AS y |
| 63 FROM t1 |
| 64 WHERE a=2 |
| 65 } |
| 66 } {2 cccddd} |
| 67 do_test selectC-1.7 { |
| 68 execsql { |
| 69 SELECT DISTINCT a AS x, b||c AS y |
| 70 FROM t1 |
| 71 WHERE +y='aaabbb' |
| 72 } |
| 73 } {1 aaabbb} |
| 74 do_test selectC-1.8 { |
| 75 execsql { |
| 76 SELECT a AS x, b||c AS y |
| 77 FROM t1 |
| 78 GROUP BY x, y |
| 79 HAVING y='aaabbb' |
| 80 } |
| 81 } {1 aaabbb} |
| 82 do_test selectC-1.9 { |
| 83 execsql { |
| 84 SELECT a AS x, b||c AS y |
| 85 FROM t1 |
| 86 GROUP BY x, y |
| 87 HAVING b||c='aaabbb' |
| 88 } |
| 89 } {1 aaabbb} |
| 90 do_test selectC-1.10 { |
| 91 execsql { |
| 92 SELECT a AS x, b||c AS y |
| 93 FROM t1 |
| 94 WHERE y='aaabbb' |
| 95 GROUP BY x, y |
| 96 } |
| 97 } {1 aaabbb} |
| 98 do_test selectC-1.11 { |
| 99 execsql { |
| 100 SELECT a AS x, b||c AS y |
| 101 FROM t1 |
| 102 WHERE b||c='aaabbb' |
| 103 GROUP BY x, y |
| 104 } |
| 105 } {1 aaabbb} |
| 106 proc longname_toupper x {return [string toupper $x]} |
| 107 db function uppercaseconversionfunctionwithaverylongname longname_toupper |
| 108 do_test selectC-1.12.1 { |
| 109 execsql { |
| 110 SELECT DISTINCT upper(b) AS x |
| 111 FROM t1 |
| 112 ORDER BY x |
| 113 } |
| 114 } {AAA CCC} |
| 115 do_test selectC-1.12.2 { |
| 116 execsql { |
| 117 SELECT DISTINCT uppercaseconversionfunctionwithaverylongname(b) AS x |
| 118 FROM t1 |
| 119 ORDER BY x |
| 120 } |
| 121 } {AAA CCC} |
| 122 do_test selectC-1.13.1 { |
| 123 execsql { |
| 124 SELECT upper(b) AS x |
| 125 FROM t1 |
| 126 GROUP BY x |
| 127 ORDER BY x |
| 128 } |
| 129 } {AAA CCC} |
| 130 do_test selectC-1.13.2 { |
| 131 execsql { |
| 132 SELECT uppercaseconversionfunctionwithaverylongname(b) AS x |
| 133 FROM t1 |
| 134 GROUP BY x |
| 135 ORDER BY x |
| 136 } |
| 137 } {AAA CCC} |
| 138 do_test selectC-1.14.1 { |
| 139 execsql { |
| 140 SELECT upper(b) AS x |
| 141 FROM t1 |
| 142 ORDER BY x DESC |
| 143 } |
| 144 } {CCC AAA AAA} |
| 145 do_test selectC-1.14.2 { |
| 146 execsql { |
| 147 SELECT uppercaseconversionfunctionwithaverylongname(b) AS x |
| 148 FROM t1 |
| 149 ORDER BY x DESC |
| 150 } |
| 151 } {CCC AAA AAA} |
| 152 |
| 153 # The following query used to leak memory. Verify that has been fixed. |
| 154 # |
| 155 ifcapable trigger&&compound { |
| 156 do_test selectC-2.1 { |
| 157 catchsql { |
| 158 CREATE TABLE t21a(a,b); |
| 159 INSERT INTO t21a VALUES(1,2); |
| 160 CREATE TABLE t21b(n); |
| 161 CREATE TRIGGER r21 AFTER INSERT ON t21b BEGIN |
| 162 SELECT a FROM t21a WHERE a>new.x UNION ALL |
| 163 SELECT b FROM t21a WHERE b>new.x ORDER BY 1 LIMIT 2; |
| 164 END; |
| 165 INSERT INTO t21b VALUES(6); |
| 166 } |
| 167 } {1 {no such column: new.x}} |
| 168 } |
| 169 |
| 170 # Check that ticket [883034dcb5] is fixed. |
| 171 # |
| 172 do_test selectC-3.1 { |
| 173 execsql { |
| 174 CREATE TABLE person ( |
| 175 org_id TEXT NOT NULL, |
| 176 nickname TEXT NOT NULL, |
| 177 license TEXT, |
| 178 CONSTRAINT person_pk PRIMARY KEY (org_id, nickname), |
| 179 CONSTRAINT person_license_uk UNIQUE (license) |
| 180 ); |
| 181 INSERT INTO person VALUES('meyers', 'jack', '2GAT123'); |
| 182 INSERT INTO person VALUES('meyers', 'hill', 'V345FMP'); |
| 183 INSERT INTO person VALUES('meyers', 'jim', '2GAT138'); |
| 184 INSERT INTO person VALUES('smith', 'maggy', ''); |
| 185 INSERT INTO person VALUES('smith', 'jose', 'JJZ109'); |
| 186 INSERT INTO person VALUES('smith', 'jack', 'THX138'); |
| 187 INSERT INTO person VALUES('lakeside', 'dave', '953OKG'); |
| 188 INSERT INTO person VALUES('lakeside', 'amy', NULL); |
| 189 INSERT INTO person VALUES('lake-apts', 'tom', NULL); |
| 190 INSERT INTO person VALUES('acorn', 'hideo', 'CQB421'); |
| 191 |
| 192 SELECT |
| 193 org_id, |
| 194 count((NOT (org_id IS NULL)) AND (NOT (nickname IS NULL))) |
| 195 FROM person |
| 196 WHERE (CASE WHEN license != '' THEN 1 ELSE 0 END) |
| 197 GROUP BY 1; |
| 198 } |
| 199 } {acorn 1 lakeside 1 meyers 3 smith 2} |
| 200 do_test selectC-3.2 { |
| 201 execsql { |
| 202 CREATE TABLE t2(a PRIMARY KEY, b); |
| 203 INSERT INTO t2 VALUES('abc', 'xxx'); |
| 204 INSERT INTO t2 VALUES('def', 'yyy'); |
| 205 SELECT a, max(b || a) FROM t2 WHERE (b||b||b)!='value' GROUP BY a; |
| 206 } |
| 207 } {abc xxxabc def yyydef} |
| 208 do_test selectC-3.3 { |
| 209 execsql { |
| 210 SELECT b, max(a || b) FROM t2 WHERE (b||b||b)!='value' GROUP BY a; |
| 211 } |
| 212 } {xxx abcxxx yyy defyyy} |
| 213 |
| 214 |
| 215 proc udf {} { incr ::udf } |
| 216 set ::udf 0 |
| 217 db function udf udf |
| 218 |
| 219 do_execsql_test selectC-4.1 { |
| 220 create table t_distinct_bug (a, b, c); |
| 221 insert into t_distinct_bug values ('1', '1', 'a'); |
| 222 insert into t_distinct_bug values ('1', '2', 'b'); |
| 223 insert into t_distinct_bug values ('1', '3', 'c'); |
| 224 insert into t_distinct_bug values ('1', '1', 'd'); |
| 225 insert into t_distinct_bug values ('1', '2', 'e'); |
| 226 insert into t_distinct_bug values ('1', '3', 'f'); |
| 227 } {} |
| 228 |
| 229 do_execsql_test selectC-4.2 { |
| 230 select a from (select distinct a, b from t_distinct_bug) |
| 231 } {1 1 1} |
| 232 |
| 233 do_execsql_test selectC-4.3 { |
| 234 select a, udf() from (select distinct a, b from t_distinct_bug) |
| 235 } {1 1 1 2 1 3} |
| 236 |
| 237 #------------------------------------------------------------------------- |
| 238 # Test that the problem in ticket #190c2507 has been fixed. |
| 239 # |
| 240 do_execsql_test 5.0 { |
| 241 CREATE TABLE x1(a); |
| 242 CREATE TABLE x2(b); |
| 243 CREATE TABLE x3(c); |
| 244 CREATE VIEW vvv AS SELECT b FROM x2 ORDER BY 1; |
| 245 |
| 246 INSERT INTO x1 VALUES('a'), ('b'); |
| 247 INSERT INTO x2 VALUES(22), (23), (25), (24), (21); |
| 248 INSERT INTO x3 VALUES(302), (303), (301); |
| 249 } |
| 250 |
| 251 do_execsql_test 5.1 { |
| 252 CREATE TABLE x4 AS SELECT b FROM vvv UNION ALL SELECT c from x3; |
| 253 SELECT * FROM x4; |
| 254 } {21 22 23 24 25 302 303 301} |
| 255 |
| 256 do_execsql_test 5.2 { |
| 257 SELECT * FROM x1, x4 |
| 258 } { |
| 259 a 21 a 22 a 23 a 24 a 25 a 302 a 303 a 301 |
| 260 b 21 b 22 b 23 b 24 b 25 b 302 b 303 b 301 |
| 261 } |
| 262 |
| 263 do_execsql_test 5.3 { |
| 264 SELECT * FROM x1, (SELECT b FROM vvv UNION ALL SELECT c from x3); |
| 265 } { |
| 266 a 21 a 22 a 23 a 24 a 25 a 302 a 303 a 301 |
| 267 b 21 b 22 b 23 b 24 b 25 b 302 b 303 b 301 |
| 268 } |
| 269 |
| 270 finish_test |
OLD | NEW |