blob: b639dd1463d0a2e2c417abcb82ae53cee978c1fb [file] [log] [blame]
drh1728bcb2014-11-10 16:49:56 +00001# 2014-11-10
2#
3# The author disclaims copyright to this source code. In place of
4# a legal notice, here is a blessing:
5#
6# May you do good and not evil.
7# May you find forgiveness for yourself and forgive others.
8# May you share freely, never taking more than you give.
9#
10#***********************************************************************
11# This file implements regression tests for SQLite library.
12# The focus of this script is testing the "eval.c" loadable extension.
13#
14
15set testdir [file dirname $argv0]
16source $testdir/tester.tcl
17
18load_static_extension db eval
19do_execsql_test misc8-1.0 {
20 CREATE TABLE t1(a,b,c);
21 INSERT INTO t1 VALUES(1,2,3),(4,5,6);
22 SELECT quote(eval('SELECT * FROM t1 ORDER BY a','-abc-'));
23} {'1-abc-2-abc-3-abc-4-abc-5-abc-6'}
24do_execsql_test misc8-1.1 {
25 SELECT quote(eval('SELECT * FROM t1 ORDER BY a'));
26} {{'1 2 3 4 5 6'}}
27do_catchsql_test misc8-1.2 {
28 SELECT quote(eval('SELECT d FROM t1 ORDER BY a'));
29} {1 {no such column: d}}
30do_execsql_test misc8-1.3 {
31 INSERT INTO t1 VALUES(7,null,9);
32 SELECT eval('SELECT * FROM t1 ORDER BY a',',');
33} {1,2,3,4,5,6,7,,9}
34do_catchsql_test misc8-1.4 {
35 BEGIN;
36 INSERT INTO t1 VALUES(10,11,12);
drh47b7fc72014-11-11 01:33:57 +000037 SELECT a, coalesce(b, eval('ROLLBACK; SELECT ''bam'';')), c
38 FROM t1 ORDER BY a;
39} {0 {1 2 3 4 5 6 7 bam 9}}
drhde58f4f2014-11-10 19:16:59 +000040do_catchsql_test misc8-1.5 {
41 INSERT INTO t1 VALUES(10,11,12);
42 SELECT a, coalesce(b, eval('SELECT ''bam''')), c
43 FROM t1
44 ORDER BY rowid;
45} {0 {1 2 3 4 5 6 7 bam 9 10 11 12}}
46do_catchsql_test misc8-1.6 {
47 SELECT a, coalesce(b, eval('DELETE FROM t1; SELECT ''bam''')), c
48 FROM t1
49 ORDER BY rowid;
50} {0 {1 2 3 4 5 6 7 bam {}}}
drh47b7fc72014-11-11 01:33:57 +000051do_catchsql_test misc8-1.7 {
52 INSERT INTO t1 VALUES(1,2,3),(4,5,6),(7,null,9);
53 BEGIN;
54 CREATE TABLE t2(x);
55 SELECT a, coalesce(b, eval('ROLLBACK; SELECT ''bam''')), c
56 FROM t1
57 ORDER BY rowid;
58} {1 {abort due to ROLLBACK}}
drh1728bcb2014-11-10 16:49:56 +000059
60
dan2b8669a2014-11-17 19:42:48 +000061reset_db
62
63proc dbeval {sql} { db eval $sql }
64db func eval dbeval
65
66do_execsql_test misc8-2.1 {
67 CREATE TABLE t1(a INTEGER PRIMARY KEY, b INTEGER) WITHOUT ROWID;
68 CREATE TABLE t2(c INTEGER PRIMARY KEY, d INTEGER, x BLOB);
69 INSERT INTO t1 VALUES(0,0);
70 INSERT INTO t1 VALUES(10,10);
71 INSERT INTO t2 VALUES(1,1,zeroblob(200));
72 INSERT INTO t2 VALUES(2,2,zeroblob(200));
73 INSERT INTO t2 VALUES(3,3,zeroblob(200));
74 INSERT INTO t2 VALUES(4,4,zeroblob(200));
75 INSERT INTO t2 VALUES(5,5,zeroblob(200));
76 INSERT INTO t2 VALUES(6,6,zeroblob(200));
77 INSERT INTO t2 VALUES(7,7,zeroblob(200));
78 INSERT INTO t2 VALUES(8,8,zeroblob(200));
79 INSERT INTO t2 VALUES(9,9,zeroblob(200));
80 INSERT INTO t2 VALUES(10,10,zeroblob(200));
81 SELECT a, c, eval(
82 printf('DELETE FROM t2 WHERE c=%d AND %d>5', a+c, a+c)
83 ) FROM t1, t2;
84} {
85 0 1 {} 10 1 {}
86 0 2 {} 10 2 {}
87 0 3 {} 10 3 {}
88 0 4 {} 10 4 {}
89 0 5 {} 10 5 {}
90 0 6 {} 10 {} {}
91 0 7 {} 10 {} {}
92 0 8 {} 10 {} {}
93 0 9 {} 10 {} {}
94 0 10 {} 10 {} {}
95}
96
drh26bcc7c2016-02-26 04:13:39 +000097# 2016-02-26: An assertion fault found by the libFuzzer project
98#
99do_execsql_test misc8-3.0 {
100 SELECT *
101 FROM
102 (
103 (SELECT 0 AS i) AS x1,
104 (SELECT 1) AS x2
105 ) AS x3,
106 (SELECT 6 AS j UNION ALL SELECT 7) AS x4
107 WHERE i<rowid
108 ORDER BY 1;
109} {0 1 6 0 1 7}
dan2b8669a2014-11-17 19:42:48 +0000110
drhda84dca2016-08-18 22:44:22 +0000111# The SQLITE_DBCONFIG_MAINDBNAME interface
112#
113db close
114forcedelete test.db test2.db
115sqlite3 db test.db
116do_execsql_test misc8-4.0 {
117 CREATE TABLE t1(a,b,c);
118 INSERT INTO t1 VALUES(1,2,3);
119 ATTACH 'test2.db' AS aux2;
120 CREATE TABLE aux2.t2(c,d,e);
121 INSERT INTO t2 VALUES(4,5,6);
122 SELECT * FROM t1, t2;
123} {1 2 3 4 5 6}
124do_execsql_test misc8-4.1 {
125 PRAGMA database_list;
126} {/0 main .* 2 aux2/}
127dbconfig_maindbname_icecube db
128do_execsql_test misc8-4.2 {
129 SELECT name FROM icecube.sqlite_master;
130} {t1}
131do_execsql_test misc8-4.3 {
132 PRAGMA database_list;
133} {/0 icecube .* 2 aux2/}
134
135
136
drh1728bcb2014-11-10 16:49:56 +0000137finish_test