| OLD | NEW |
| (Empty) |
| 1 # | |
| 2 # 2007 June 20 | |
| 3 # | |
| 4 # The author disclaims copyright to this source code. In place of | |
| 5 # a legal notice, here is a blessing: | |
| 6 # | |
| 7 # May you do good and not evil. | |
| 8 # May you find forgiveness for yourself and forgive others. | |
| 9 # May you share freely, never taking more than you give. | |
| 10 # | |
| 11 #*********************************************************************** | |
| 12 # This file implements regression tests for SQLite library. The | |
| 13 # focus of this script is making sure collations pass through the | |
| 14 # unary + operator. | |
| 15 # | |
| 16 # 2015-02-09: Added tests to make sure COLLATE passes through function | |
| 17 # calls. Ticket [ca0d20b6cdddec5e81b8d66f89c46a5583b5f6f6]. | |
| 18 # | |
| 19 | |
| 20 set testdir [file dirname $argv0] | |
| 21 source $testdir/tester.tcl | |
| 22 | |
| 23 do_test collate8-1.1 { | |
| 24 execsql { | |
| 25 CREATE TABLE t1(a TEXT COLLATE nocase); | |
| 26 INSERT INTO t1 VALUES('aaa'); | |
| 27 INSERT INTO t1 VALUES('BBB'); | |
| 28 INSERT INTO t1 VALUES('ccc'); | |
| 29 INSERT INTO t1 VALUES('DDD'); | |
| 30 SELECT a FROM t1 ORDER BY a; | |
| 31 } | |
| 32 } {aaa BBB ccc DDD} | |
| 33 do_test collate8-1.2 { | |
| 34 execsql { | |
| 35 SELECT rowid FROM t1 WHERE a<'ccc' ORDER BY 1 | |
| 36 } | |
| 37 } {1 2} | |
| 38 do_test collate8-1.3 { | |
| 39 execsql { | |
| 40 SELECT rowid FROM t1 WHERE a<'ccc' COLLATE binary ORDER BY 1 | |
| 41 } | |
| 42 } {1 2 4} | |
| 43 do_test collate8-1.4 { | |
| 44 execsql { | |
| 45 SELECT rowid FROM t1 WHERE +a<'ccc' ORDER BY 1 | |
| 46 } | |
| 47 } {1 2} | |
| 48 do_test collate8-1.5 { | |
| 49 execsql { | |
| 50 SELECT a FROM t1 ORDER BY +a | |
| 51 } | |
| 52 } {aaa BBB ccc DDD} | |
| 53 do_test collate8-1.11 { | |
| 54 execsql { | |
| 55 SELECT a AS x FROM t1 ORDER BY "x"; | |
| 56 } | |
| 57 } {aaa BBB ccc DDD} | |
| 58 do_test collate8-1.12 { | |
| 59 execsql { | |
| 60 SELECT a AS x FROM t1 WHERE x<'ccc' ORDER BY 1 | |
| 61 } | |
| 62 } {aaa BBB} | |
| 63 do_test collate8-1.13 { | |
| 64 execsql { | |
| 65 SELECT a AS x FROM t1 WHERE x<'ccc' COLLATE binary ORDER BY [x] | |
| 66 } | |
| 67 } {aaa BBB DDD} | |
| 68 do_test collate8-1.14 { | |
| 69 execsql { | |
| 70 SELECT a AS x FROM t1 WHERE +x<'ccc' ORDER BY 1 | |
| 71 } | |
| 72 } {aaa BBB} | |
| 73 do_test collate8-1.15 { | |
| 74 execsql { | |
| 75 SELECT a AS x FROM t1 ORDER BY +x | |
| 76 } | |
| 77 } {aaa BBB ccc DDD} | |
| 78 | |
| 79 | |
| 80 # When a result-set column is aliased into a WHERE clause, make sure the | |
| 81 # collating sequence logic works correctly. | |
| 82 # | |
| 83 do_test collate8-2.1 { | |
| 84 execsql { | |
| 85 CREATE TABLE t2(a); | |
| 86 INSERT INTO t2 VALUES('abc'); | |
| 87 INSERT INTO t2 VALUES('ABC'); | |
| 88 SELECT a AS x FROM t2 WHERE x='abc'; | |
| 89 } | |
| 90 } {abc} | |
| 91 do_test collate8-2.2 { | |
| 92 execsql { | |
| 93 SELECT a AS x FROM t2 WHERE x='abc' COLLATE nocase; | |
| 94 } | |
| 95 } {abc ABC} | |
| 96 do_test collate8-2.3 { | |
| 97 execsql { | |
| 98 SELECT a AS x FROM t2 WHERE (x COLLATE nocase)='abc'; | |
| 99 } | |
| 100 } {abc ABC} | |
| 101 do_test collate8-2.4 { | |
| 102 execsql { | |
| 103 SELECT a COLLATE nocase AS x FROM t2 WHERE x='abc'; | |
| 104 } | |
| 105 } {abc ABC} | |
| 106 do_test collate8-2.5 { | |
| 107 execsql { | |
| 108 SELECT a COLLATE nocase AS x FROM t2 WHERE (x COLLATE binary)='abc'; | |
| 109 } | |
| 110 } {abc} | |
| 111 do_test collate8-2.6 { | |
| 112 execsql { | |
| 113 SELECT a COLLATE nocase AS x FROM t2 WHERE x='abc' COLLATE binary; | |
| 114 } | |
| 115 } {abc ABC} | |
| 116 do_test collate8-2.7 { | |
| 117 execsql { | |
| 118 SELECT * FROM t2 WHERE (a COLLATE nocase)='abc' COLLATE binary; | |
| 119 } | |
| 120 } {abc ABC} | |
| 121 do_test collate8-2.8 { | |
| 122 execsql { | |
| 123 SELECT a COLLATE nocase AS x FROM t2 WHERE 'abc'=x COLLATE binary; | |
| 124 } | |
| 125 } {abc} | |
| 126 | |
| 127 # Make sure the COLLATE operator perculates up through function calls | |
| 128 # and other Expr structures that use the Expr.x.pList field. | |
| 129 # | |
| 130 do_execsql_test collate8-3.1 { | |
| 131 SELECT 'abc'==('ABC'||'') COLLATE nocase; | |
| 132 SELECT 'abc'==('ABC'||'' COLLATE nocase); | |
| 133 SELECT 'abc'==('ABC'||('' COLLATE nocase)); | |
| 134 SELECT 'abc'==('ABC'||upper('' COLLATE nocase)); | |
| 135 } {1 1 1 1} | |
| 136 do_execsql_test collate8-3.2 { | |
| 137 SELECT 'abc'==('ABC'||max('' COLLATE nocase,'' COLLATE binary)); | |
| 138 } {1} | |
| 139 | |
| 140 # The COLLATE binary is on the left and so takes precedence | |
| 141 do_execsql_test collate8-3.3 { | |
| 142 SELECT 'abc'==('ABC'||max('' COLLATE binary,'' COLLATE nocase)); | |
| 143 } {0} | |
| 144 | |
| 145 do_execsql_test collate8-3.4 { | |
| 146 SELECT 'abc'==('ABC'||CASE WHEN 1-1=2 THEN '' COLLATE nocase | |
| 147 ELSE '' COLLATE binary END); | |
| 148 SELECT 'abc'==('ABC'||CASE WHEN 1+1=2 THEN '' COLLATE nocase | |
| 149 ELSE '' COLLATE binary END); | |
| 150 } {1 1} | |
| 151 do_execsql_test collate8-3.5 { | |
| 152 SELECT 'abc'==('ABC'||CASE WHEN 1=2 THEN '' COLLATE binary | |
| 153 ELSE '' COLLATE nocase END); | |
| 154 } {0} | |
| 155 | |
| 156 | |
| 157 finish_test | |
| OLD | NEW |