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
|
#!/usr/bin/env tarantool
test = require("sqltester")
test:plan(2)
--!./tcltestrunner.lua
-- 2008 December 8
--
-- 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.
--
-- This file is a verification that the bugs identified in ticket
-- #3527 have been fixed.
--
-- $Id: tkt3527.test,v 1.1 2008/12/08 13:42:36 drh Exp $
-- ["set","testdir",[["file","dirname",["argv0"]]]]
-- ["source",[["testdir"],"\/tester.tcl"]]
-- MUST_WORK_TEST
test:do_test(
"tkt3527-1.1",
function()
return test:execsql [[
CREATE TABLE Element (
Code INTEGER PRIMARY KEY,
Name VARCHAR(60)
);
CREATE TABLE ElemOr (
CodeOr INTEGER NOT NULL,
Code INTEGER NOT NULL,
PRIMARY KEY(CodeOr,Code)
);
CREATE TABLE ElemAnd (
CodeAnd INTEGER,
Code INTEGER,
Attr1 TEXT,
Attr2 TEXT,
Attr3 TEXT,
PRIMARY KEY(CodeAnd,Code)
);
INSERT INTO Element VALUES(1,'Elem1');
INSERT INTO Element VALUES(2,'Elem2');
INSERT INTO Element VALUES(3,'Elem3');
INSERT INTO Element VALUES(4,'Elem4');
INSERT INTO Element VALUES(5,'Elem5');
INSERT INTO ElemOr Values(3,4);
INSERT INTO ElemOr Values(3,5);
INSERT INTO ElemAnd VALUES(1,3,'a','b','c');
INSERT INTO ElemAnd VALUES(1,2,'x','y','z');
CREATE VIEW ElemView1 AS
SELECT
CAST(Element.Code AS VARCHAR(50)) AS ElemId,
Element.Code AS ElemCode,
Element.Name AS ElemName,
ElemAnd.Code AS InnerCode,
ElemAnd.Attr1 AS Attr1,
ElemAnd.Attr2 AS Attr2,
ElemAnd.Attr3 AS Attr3,
0 AS Level,
0 AS IsOrElem
FROM Element JOIN ElemAnd ON ElemAnd.CodeAnd=Element.Code
WHERE ElemAnd.CodeAnd NOT IN (SELECT CodeOr FROM ElemOr)
UNION ALL
SELECT
CAST(ElemOr.CodeOr AS VARCHAR(50)) AS ElemId,
Element.Code AS ElemCode,
Element.Name AS ElemName,
ElemOr.Code AS InnerCode,
NULL AS Attr1,
NULL AS Attr2,
NULL AS Attr3,
0 AS Level,
1 AS IsOrElem
FROM ElemOr JOIN Element ON Element.Code=ElemOr.CodeOr
ORDER BY ElemId, InnerCode;
CREATE VIEW ElemView2 AS
SELECT
ElemId,
ElemCode,
ElemName,
InnerCode,
Attr1,
Attr2,
Attr3,
Level,
IsOrElem
FROM ElemView1
UNION ALL
SELECT
Element.ElemId || '.' || InnerElem.ElemId AS ElemId,
InnerElem.ElemCode,
InnerElem.ElemName,
InnerElem.InnerCode,
InnerElem.Attr1,
InnerElem.Attr2,
InnerElem.Attr3,
InnerElem.Level+1,
InnerElem.IsOrElem
FROM ElemView1 AS Element
JOIN ElemView1 AS InnerElem
ON Element.Level=0 AND Element.InnerCode=InnerElem.ElemCode
ORDER BY ElemId, InnerCode;
SELECT * FROM ElemView1;
]]
end, {
-- <tkt3527-1.1>
"1",1,"Elem1",2,"x","y","z",0,0,"1",1,"Elem1",3,"a","b","c",0,0,"3",3,"Elem3",4,"","","",0,1,"3",3,"Elem3",5,"","","",0,1
-- </tkt3527-1.1>
})
test:do_test(
"tkt3527-1.2",
function()
return test:execsql [[
SELECT * FROM ElemView2;
]]
end, {
-- <tkt3527-1.2>
"1",1,"Elem1",2,"x","y","z",0,0,"1",1,"Elem1",3,"a","b","c",0,0,"1.3",3,"Elem3",4,"","","",1,1,"1.3",3,"Elem3",5,"","","",1,1,"3",3,"Elem3",4,"","","",0,1,"3",3,"Elem3",5,"","","",0,1
-- </tkt3527-1.2>
})
test:finish_test()
|
