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
150
151
152
|
#!/usr/bin/env tarantool
test = require("sqltester")
test:plan(8)
--!./tcltestrunner.lua
-- 2008 July 4
--
-- 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 sql library.
-- Specifically, it tests that bug #3201 has been fixed.
--
-- $Id: tkt3201.test,v 1.3 2008/07/12 14:52:21 drh Exp $
-- ["set","testdir",[["file","dirname",["argv0"]]]]
-- ["source",[["testdir"],"\/tester.tcl"]]
test:do_execsql_test(
"tkt3201-1",
[[
CREATE TABLE t1(a INTEGER PRIMARY KEY, b TEXT);
INSERT INTO t1 VALUES(1, 'one');
INSERT INTO t1 VALUES(2, 'two');
]], {
-- <tkt3201-1>
-- </tkt3201-1>
})
test:do_execsql_test(
"tkt3201-2",
[[
SELECT l.a, r.a FROM t1 AS l, t1 AS r WHERE l.a < r.a;
]], {
-- <tkt3201-2>
1, 2
-- </tkt3201-2>
})
test:do_test(
"tkt3201-3",
function()
test:execsql [[
CREATE TABLE t2(a INTEGER PRIMARY KEY, b TEXT);
INSERT INTO t2 VALUES(2, 'two');
]]
return test:execsql [[
SELECT l.a, r.a FROM t1 AS l, t2 AS r WHERE l.a < r.a;
]]
end, {
-- <tkt3201-3>
1, 2
-- </tkt3201-3>
})
test:do_test(
"tkt3201-4",
function()
test:execsql [[
DELETE FROM t1 WHERE a = 2;
]]
return test:execsql [[
SELECT l.a, r.a FROM t1 AS l, t2 AS r WHERE l.a < r.a;
]]
end, {
-- <tkt3201-4>
1, 2
-- </tkt3201-4>
})
test:do_test(
"tkt3201-5",
function()
test:execsql [[
DELETE FROM t1 WHERE a = 2;
]]
return test:execsql [[
SELECT t1.a, t1.b, t2.a, t2.b FROM t1, t2;
]]
end, {
-- <tkt3201-5>
1, "one", 2, "two"
-- </tkt3201-5>
})
test:do_test(
"tkt3201-6",
function()
test:execsql [[
CREATE TABLE t3(c INTEGER PRIMARY KEY, d TEXT);
INSERT INTO t3 VALUES(2, 'two');
]]
return test:execsql " SELECT a, b, c, d FROM t1, t3 "
end, {
-- <tkt3201-6>
1, "one", 2, "two"
-- </tkt3201-6>
})
test:do_execsql_test(
"tkt3201-7",
[[
SELECT a, b, c, d FROM t1, t3 WHERE a < c
]], {
-- <tkt3201-7>
1, "one", 2, "two"
-- </tkt3201-7>
})
-- Ticket [efc02f977919]
--
test:do_test(
"tkt3201-4.0",
function()
return test:execsql [[
CREATE TABLE t4(x INT primary key);
CREATE TABLE t4_log(x INT primary key);
CREATE TRIGGER r4_1 AFTER INSERT ON t4 FOR EACH ROW WHEN new.x=1
BEGIN
INSERT INTO t4_log(x) VALUES(new.x);
END;
CREATE TRIGGER r4_2 AFTER INSERT ON t4 FOR EACH ROW
WHEN new.x=2 BEGIN
INSERT INTO t4_log(x) VALUES(new.x);
END;
CREATE TRIGGER r4_3 AFTER INSERT ON t4 FOR EACH ROW WHEN new.x=3
BEGIN
INSERT INTO t4_log(x) VALUES(new.x);
END;
CREATE TRIGGER r4_4 AFTER INSERT ON t4 FOR EACH ROW WHEN new.x=4
BEGIN
INSERT INTO t4_log(x) VALUES(new.x);
END;
INSERT INTO t4 VALUES(1);
INSERT INTO t4 VALUES(2);
INSERT INTO t4 VALUES(3);
INSERT INTO t4 VALUES(4);
SELECT * FROM t4_log;
]]
end, {
-- <tkt3201-4.0>
1, 2, 3, 4
-- </tkt3201-4.0>
})
test:finish_test()
|
