File: trigger7.test.lua

package info (click to toggle)
tarantool 2.6.0-1
  • links: PTS, VCS
  • area: main
  • in suites: bullseye
  • size: 85,364 kB
  • sloc: ansic: 513,760; cpp: 69,489; sh: 25,650; python: 19,190; perl: 14,973; makefile: 4,173; yacc: 1,329; sql: 1,074; pascal: 620; ruby: 190; awk: 18; lisp: 7
file content (143 lines) | stat: -rwxr-xr-x 4,672 bytes parent folder | download | duplicates (3)
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
#!/usr/bin/env tarantool
test = require("sqltester")
test:plan(5)

--!./tcltestrunner.lua
-- 2005 August 18
--
-- 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 implements tests to increase coverage of trigger.c.
--
-- $Id: trigger7.test,v 1.3 2008/08/11 18:44:58 drh Exp $
-- ["set","testdir",[["file","dirname",["argv0"]]]]
-- ["source",[["testdir"],"\/tester.tcl"]]


-- Error messages resulting from qualified trigger names.
--
local function arr_match(array, str)
    for _, v in ipairs(array) do
        if type(v) == 'string' and string.find(v, str) then
            return 1
        end
    end
    return 0
end

-- When the UPDATE OF syntax is used, no code is generated for triggers
-- that do not match the update columns.
--
test:do_test(
    "trigger7-2.1",
    function()
        test:execsql [[
            CREATE TABLE t1(x INT UNIQUE, y INT, z INT PRIMARY KEY AUTOINCREMENT);
            CREATE TRIGGER r1 AFTER UPDATE OF x ON t1 FOR EACH ROW BEGIN
              SELECT '___update_t1.x___';
            END;
            CREATE TRIGGER r2 AFTER UPDATE OF y ON t1 FOR EACH ROW BEGIN
              SELECT '___update_t1.y___';
            END;
        ]]
        txt = test:execsql "EXPLAIN UPDATE t1 SET x=5"
        return arr_match(txt, "___update_t1.x___")
        -- return X(63, "X!cmd", [=[["string","match","*___update_t1.x___*",["txt"]]]=])
    end,
        -- <trigger7-2.1>
        1
        -- </trigger7-2.1>
    )

test:do_test(
    "trigger7-2.2",
    function()
        txt = test:execsql "EXPLAIN UPDATE t1 SET x=5"
        return arr_match(txt, "___update_t1.y___")
        -- return X(67, "X!cmd", [=[["string","match","*___update_t1.y___*",["txt"]]]=])
    end,
        -- <trigger7-2.2>
        0
        -- </trigger7-2.2>
    )

test:do_test(
    "trigger7-2.3",
    function()
        txt = test:execsql "EXPLAIN UPDATE t1 SET y=5"
        return arr_match(txt, "___update_t1.x___")
        -- return X(71, "X!cmd", [=[["string","match","*___update_t1.x___*",["txt"]]]=])
    end,
        -- <trigger7-2.3>
        0
        -- </trigger7-2.3>
    )

test:do_test(
    "trigger7-2.4",
    function()
        txt = test:execsql "EXPLAIN UPDATE t1 SET y=5"
        return arr_match(txt, "___update_t1.y___")
        -- return X(75, "X!cmd", [=[["string","match","*___update_t1.y___*",["txt"]]]=])
    end,
        -- <trigger7-2.4>
        1
        -- </trigger7-2.4>
    )

-- do_test trigger7-2.5 {
--   set txt [db eval {EXPLAIN UPDATE t1 SET =10}]
--   string match *___update_t1.x___* $txt
-- } 0
-- do_test trigger7-2.6 {
--   set txt [db eval {EXPLAIN UPDATE t1 SET x=5}]
--   string match *___update_t1.x___* $txt
-- } 0


-- Test the ability to create many triggers on the same table, then
-- selectively drop those triggers.
--
test:do_execsql_test(
    "trigger7-3.1",
    [[
        CREATE TABLE t2(x INT PRIMARY KEY,y INT,z INT);
        CREATE TRIGGER t2r1 AFTER INSERT ON t2 FOR EACH ROW BEGIN SELECT 1; END;
        CREATE TRIGGER t2r2 BEFORE INSERT ON t2 FOR EACH ROW BEGIN SELECT 1; END;
        CREATE TRIGGER t2r3 AFTER UPDATE ON t2 FOR EACH ROW BEGIN SELECT 1; END;
        CREATE TRIGGER t2r4 BEFORE UPDATE ON t2 FOR EACH ROW BEGIN SELECT 1; END;
        CREATE TRIGGER t2r5 AFTER DELETE ON t2 FOR EACH ROW BEGIN SELECT 1; END;
        CREATE TRIGGER t2r6 BEFORE DELETE ON t2 FOR EACH ROW BEGIN SELECT 1; END;
        CREATE TRIGGER t2r7 AFTER INSERT ON t2 FOR EACH ROW BEGIN SELECT 1; END;
        CREATE TRIGGER t2r8 BEFORE INSERT ON t2 FOR EACH ROW BEGIN SELECT 1; END;
        CREATE TRIGGER t2r9 AFTER UPDATE ON t2 FOR EACH ROW BEGIN SELECT 1; END;
        CREATE TRIGGER t2r10 BEFORE UPDATE ON t2 FOR EACH ROW BEGIN SELECT 1; END;
        CREATE TRIGGER t2r11 AFTER DELETE ON t2 FOR EACH ROW BEGIN SELECT 1; END;
        CREATE TRIGGER t2r12 BEFORE DELETE ON t2 FOR EACH ROW BEGIN SELECT 1; END;
        DROP TRIGGER t2r6;
    ]], {
        -- <trigger7-3.1>
        
        -- </trigger7-3.1>
    })

-- # This test corrupts the database file so it must be the last test
-- # in the series.
-- #
-- do_test trigger7-99.1 {
--   execsql {
--     UPDATE sql_master SET sql='nonsense';
--   }
--   db close
--   catch { sql db test.db }
--   catchsql { DROP TRIGGER t2r5 }
-- } {1 {malformed database schema (t2r12)}}
test:finish_test()