1# 2021 March 16 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. This 12# script focuses on testing internal function sqlite_rename_quotefix(). 13# 14 15 16set testdir [file dirname $argv0] 17source $testdir/tester.tcl 18set testprefix alterqf 19 20sqlite3_test_control SQLITE_TESTCTRL_INTERNAL_FUNCTIONS db 21 22do_execsql_test 1.0 { 23 CREATE TABLE t1(a, b, c); 24} 25 26foreach {tn before after} { 27 1 {CREATE VIEW v1 AS SELECT "a", "b", "notacolumn!", "c" FROM t1} 28 {CREATE VIEW v1 AS SELECT "a", "b", 'notacolumn!', "c" FROM t1} 29 30 2 {CREATE VIEW v1 AS SELECT "a", "b", "not'a'column!", "c" FROM t1} 31 {CREATE VIEW v1 AS SELECT "a", "b", 'not''a''column!', "c" FROM t1} 32 33 3 {CREATE VIEW v1 AS SELECT "a", "b", "not""a""column!", "c" FROM t1} 34 {CREATE VIEW v1 AS SELECT "a", "b", 'not"a"column!', "c" FROM t1} 35 36 4 {CREATE VIEW v1 AS SELECT "val", count("b") FROM t1 GROUP BY "abc"} 37 {CREATE VIEW v1 AS SELECT 'val', count("b") FROM t1 GROUP BY 'abc'} 38 39 5 {CREATE TABLE xyz(a CHECK (a!="str"), b AS (a||"str"))} 40 {CREATE TABLE xyz(a CHECK (a!='str'), b AS (a||'str'))} 41 42 6 {CREATE INDEX i1 ON t1(a || "str", "b", "val")} 43 {CREATE INDEX i1 ON t1(a || 'str', "b", 'val')} 44 45 7 {CREATE TRIGGER tr AFTER INSERT ON t1 BEGIN SELECT "abcd"; END} 46 {CREATE TRIGGER tr AFTER INSERT ON t1 BEGIN SELECT 'abcd'; END} 47 48 8 {CREATE VIEW v1 AS SELECT "string"'alias' FROM t1} 49 {CREATE VIEW v1 AS SELECT 'string' 'alias' FROM t1} 50 51 9 {CREATE INDEX i1 ON t1(a) WHERE "b"="bb"} 52 {CREATE INDEX i1 ON t1(a) WHERE "b"='bb'} 53 54 10 {CREATE TABLE t2(abc, xyz CHECK (xyz != "123"))} 55 {CREATE TABLE t2(abc, xyz CHECK (xyz != '123'))} 56 57 11 { 58 CREATE TRIGGER ott AFTER UPDATE ON t1 BEGIN 59 SELECT max("str", new."a") FROM t1 60 WHERE group_concat("b", ",") OVER (ORDER BY c||"str"); 61 UPDATE t1 SET c= b + "str"; 62 DELETE FROM t1 WHERE EXISTS ( 63 SELECT 1 FROM t1 AS o WHERE o."a" = "o.a" AND t1.b IN("t1.b") 64 ); 65 END; 66 } { 67 CREATE TRIGGER ott AFTER UPDATE ON t1 BEGIN 68 SELECT max('str', new."a") FROM t1 69 WHERE group_concat("b", ',') OVER (ORDER BY c||'str'); 70 UPDATE t1 SET c= b + 'str'; 71 DELETE FROM t1 WHERE EXISTS ( 72 SELECT 1 FROM t1 AS o WHERE o."a" = 'o.a' AND t1.b IN('t1.b') 73 ); 74 END; 75 } 76 77} { 78 do_execsql_test 1.$tn { 79 SELECT sqlite_rename_quotefix('main', $before) 80 } [list $after] 81} 82 83#------------------------------------------------------------------------- 84reset_db 85do_execsql_test 2.0 { 86 CREATE TABLE x1( 87 one, two, three, PRIMARY KEY(one), 88 CHECK (three!="xyz"), CHECK (two!="one") 89 ) WITHOUT ROWID; 90 CREATE INDEX x1i ON x1(one+"two"+"four") WHERE "five"; 91 CREATE TEMP TRIGGER AFTER INSERT ON x1 BEGIN 92 UPDATE x1 SET two=new.three || "new" WHERE one=new.one||""; 93 END; 94} 95 96do_execsql_test 2.1 { 97 ALTER TABLE x1 RENAME two TO 'four'; 98 SELECT sql FROM sqlite_schema; 99 SELECT sql FROM sqlite_temp_schema; 100} {{CREATE TABLE x1( 101 one, "four", three, PRIMARY KEY(one), 102 CHECK (three!='xyz'), CHECK ("four"!="one") 103 ) WITHOUT ROWID} 104 {CREATE INDEX x1i ON x1(one+"four"+'four') WHERE 'five'} 105 {CREATE TRIGGER AFTER INSERT ON x1 BEGIN 106 UPDATE x1 SET "four"=new.three || 'new' WHERE one=new.one||''; 107 END} 108} 109 110 111finish_test 112