1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
|
#!/usr/bin/env tarantool
test = require("sqltester")
test:plan(7)
--!./tcltestrunner.lua
-- 2013-05-07
--
-- The author disclaims copyright to this source code. In place of
-- a legal notice, here is a blessing:
--
-- May you do good and not evil.
-- May you find forgiveness for yourself and forgive others.
-- May you share freely, never taking more than you give.
--
-------------------------------------------------------------------------
-- This file implements regression tests for compound SELECT statements
-- that have ORDER BY clauses with collating sequences that differ
-- from the collating sequence used for comparison in the compound.
--
-- Ticket 6709574d2a8d8b9be3a9cb1afbf4ff2de48ea4e7:
-- drh added on 2013-05-06 15:21:16:
--
-- In the code shown below (which is intended to be run from the
-- sql.exe command-line tool) the three SELECT statements should all
-- generate the same answer. But the third one does not. It is as if the
-- COLLATE clause on the ORDER BY somehow got pulled into the EXCEPT
-- operator. Note that the ".print" commands are instructions to the
-- sql.exe shell program to output delimiter lines so that you can more
-- easily tell where the output of one query ends and the next query
-- begins.
--
-- CREATE TABLE t1(a TEXT);
-- INSERT INTO t1 VALUES('abc'),('def');
-- CREATE TABLE t2(a TEXT);
-- INSERT INTO t2 VALUES('DEF');
--
-- SELECT a FROM t1 EXCEPT SELECT a FROM t2 ORDER BY a;
-- .print -----
-- SELECT a FROM (SELECT a FROM t1 EXCEPT SELECT a FROM t2)
-- ORDER BY a COLLATE nocase;
-- .print -----
-- SELECT a FROM t1 EXCEPT SELECT a FROM t2 ORDER BY a COLLATE nocase;
--
-- Bisecting shows that this problem was introduced in sql version 3.6.0
-- by check-in [8bbfa97837a74ef] on 2008-06-15.
--
-- ["set","testdir",[["file","dirname",["argv0"]]]]
-- ["source",[["testdir"],"\/tester.tcl"]]
test:do_test(
"selectE-1.0",
function()
return test:execsql [[
CREATE TABLE t1(a TEXT primary key);
INSERT INTO t1 VALUES('abc'),('def'),('ghi');
CREATE TABLE t2(a TEXT primary key);
INSERT INTO t2 VALUES('DEF'),('abc');
CREATE TABLE t3(a TEXT primary key);
INSERT INTO t3 VALUES('def'),('jkl');
SELECT a FROM t1 EXCEPT SELECT a FROM t2
ORDER BY a COLLATE "unicode_ci";
]]
end, {
-- <selectE-1.0>
"def", "ghi"
-- </selectE-1.0>
})
test:do_test(
"selectE-1.1",
function()
return test:execsql [[
SELECT a FROM t2 EXCEPT SELECT a FROM t3
ORDER BY a COLLATE "unicode_ci";
]]
end, {
-- <selectE-1.1>
"abc", "DEF"
-- </selectE-1.1>
})
test:do_test(
"selectE-1.2",
function()
return test:execsql [[
SELECT a FROM t2 EXCEPT SELECT a FROM t3
ORDER BY a COLLATE "binary";
]]
end, {
-- <selectE-1.2>
"DEF", "abc"
-- </selectE-1.2>
})
test:do_test(
"selectE-1.3",
function()
return test:execsql [[
SELECT a FROM t2 EXCEPT SELECT a FROM t3
ORDER BY a;
]]
end, {
-- <selectE-1.3>
"DEF", "abc"
-- </selectE-1.3>
})
test:do_test(
"selectE-2.1",
function()
return test:execsql [[
DELETE FROM t2;
DELETE FROM t3;
INSERT INTO t2 VALUES('ABC'),('def'),('GHI'),('jkl');
INSERT INTO t3 SELECT lower(a) FROM t2;
SELECT a COLLATE "unicode_ci" FROM t2 EXCEPT SELECT a FROM t3
ORDER BY 1
]]
end, {
-- <selectE-2.1>
-- </selectE-2.1>
})
test:do_test(
"selectE-2.2",
function()
return test:execsql [[
SELECT a COLLATE "unicode_ci" FROM t2 EXCEPT SELECT a FROM t3
ORDER BY 1 COLLATE "binary"
]]
end, {
-- <selectE-2.2>
-- </selectE-2.2>
})
test:do_catchsql_test(
"selectE-3.1",
[[
SELECT 1 EXCEPT SELECT 2 ORDER BY 1 COLLATE "unicode_ci" EXCEPT SELECT 3;
]], {
-- <selectE-3.1>
1, "ORDER BY clause should come after EXCEPT not before"
-- </selectE-3.1>
})
test:finish_test()
|
