1# 2020 April 29 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# 12 13set testdir [file dirname $argv0] 14source $testdir/tester.tcl 15set testprefix upfromfault 16 17foreach {tn sql} { 18 1 { 19 CREATE TABLE t1(x PRIMARY KEY, y, z UNIQUE); 20 CREATE INDEX t1y ON t1(y); 21 } 22 2 { 23 CREATE TABLE t1(x PRIMARY KEY, y, z UNIQUE) WITHOUT ROWID; 24 CREATE INDEX t1y ON t1(y); 25 } 26 3 { 27 CREATE TABLE t1(x, y, z UNIQUE, PRIMARY KEY(x,y)) WITHOUT ROWID; 28 } 29 4 { 30 CREATE VIRTUAL TABLE t1 USING fts5(x, y, z); 31 } 32 5 { 33 CREATE TABLE real(x, y, z); 34 CREATE VIEW t1 AS SELECT * FROM real; 35 CREATE TRIGGER t1_insert INSTEAD OF INSERT ON t1 BEGIN 36 INSERT INTO real VALUES(new.x, new.y, new.z); 37 END; 38 CREATE TRIGGER t1_update INSTEAD OF UPDATE ON t1 BEGIN 39 INSERT INTO log VALUES(old.z || '->' || new.z); 40 UPDATE real SET y=new.y, z=new.z WHERE x=old.x; 41 END; 42 } 43} { 44if {$tn<5} continue 45 reset_db 46 47 ifcapable !fts5 { if {$tn==4} continue } 48 49 execsql $sql 50 do_execsql_test 1.$tn.0 { 51 CREATE TABLE log(t TEXT); 52 53 INSERT INTO t1 VALUES(1, 'i', 'one'); 54 INSERT INTO t1 VALUES(2, 'ii', 'two'); 55 INSERT INTO t1 VALUES(3, 'iii', 'three'); 56 INSERT INTO t1 VALUES(4, 'iv', 'four'); 57 } 58 if {$tn!=4 && $tn!=5} { 59 do_execsql_test 1.$tn.0b { 60 CREATE TRIGGER tr1 BEFORE UPDATE ON t1 BEGIN 61 INSERT INTO log VALUES(old.z || '->' || new.z); 62 END; 63 CREATE TRIGGER tr2 AFTER UPDATE ON t1 BEGIN 64 INSERT INTO log VALUES(old.y || '->' || new.y); 65 END; 66 } 67 } 68 69 faultsim_save_and_close 70 71 do_faultsim_test 1.$tn -prep { 72 faultsim_restore_and_reopen 73 execsql { SELECT * FROM t1 } 74 } -body { 75 execsql { 76 WITH data(k, v) AS ( 77 VALUES(3, 'thirty'), (1, 'ten') 78 ) 79 UPDATE t1 SET z=v FROM data WHERE x=k; 80 } 81 } -test { 82 faultsim_test_result {0 {}} {1 {vtable constructor failed: t1}} 83 if {$testrc==0} { 84 set res [execsql { SELECT * FROM t1 }] 85 if {$res!="1 i ten 2 ii two 3 iii thirty 4 iv four"} { 86 error "unexpected result: $res" 87 } 88 } 89 } 90} 91 92reset_db 93do_execsql_test 2.0 { 94 CREATE TABLE t1(a, b, c); 95 CREATE TABLE t2(x, y, z); 96} 97faultsim_save_and_close 98do_faultsim_test 2.1 -prep { 99 faultsim_restore_and_reopen 100} -body { 101 execsql { 102 CREATE TRIGGER tr1 AFTER INSERT ON t1 BEGIN 103 UPDATE t2 SET x=a FROM t1 WHERE c=z; 104 END; 105 } 106} -test { 107 faultsim_test_result {0 {}} 108} 109 110faultsim_restore_and_reopen 111do_execsql_test 2.2 { 112 CREATE TRIGGER tr1 AFTER INSERT ON t1 BEGIN 113 UPDATE t1 SET a=x FROM t2 WHERE c=z; 114 END; 115 116 INSERT INTO t2 VALUES(1, 1, 1); 117 INSERT INTO t2 VALUES(2, 2, 2); 118 INSERT INTO t2 VALUES(3, 3, 3); 119} 120faultsim_save_and_close 121 122do_faultsim_test 2.3 -prep { 123 faultsim_restore_and_reopen 124} -body { 125 execsql { 126 INSERT INTO t1 VALUES(NULL, NULL, 1), (NULL, NULL, 3); 127 } 128} -test { 129 faultsim_test_result {0 {}} 130 if {$testrc==0} { 131 set res [execsql { SELECT * FROM t1 }] 132 if {$res!="1 {} 1 3 {} 3"} { 133 error "unexpected result: $res" 134 } 135 } 136} 137 138 139finish_test 140