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