| # 2018-04-17 |
| # |
| # 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. |
| # |
| #*********************************************************************** |
| # |
| # Test cases for UPSERT |
| |
| set testdir [file dirname $argv0] |
| source $testdir/tester.tcl |
| set testprefix upsert4 |
| |
| foreach {tn sql} { |
| 1 { CREATE TABLE t1(a INTEGER PRIMARY KEY, b, c UNIQUE) } |
| 2 { CREATE TABLE t1(a INT PRIMARY KEY, b, c UNIQUE) } |
| 3 { CREATE TABLE t1(a INT PRIMARY KEY, b, c UNIQUE) WITHOUT ROWID} |
| } { |
| reset_db |
| execsql $sql |
| |
| do_execsql_test 1.$tn.0 { |
| INSERT INTO t1 VALUES(1, NULL, 'one'); |
| INSERT INTO t1 VALUES(2, NULL, 'two'); |
| INSERT INTO t1 VALUES(3, NULL, 'three'); |
| } |
| |
| do_execsql_test 1.$tn.1 { |
| INSERT INTO t1 VALUES(1, NULL, 'xyz') ON CONFLICT DO NOTHING; |
| SELECT * FROM t1; |
| } { |
| 1 {} one 2 {} two 3 {} three |
| } |
| |
| do_execsql_test 1.$tn.2 { |
| INSERT INTO t1 VALUES(4, NULL, 'two') ON CONFLICT DO NOTHING; |
| SELECT * FROM t1; |
| } { |
| 1 {} one 2 {} two 3 {} three |
| } |
| |
| do_execsql_test 1.$tn.3 { |
| INSERT INTO t1 VALUES(4, NULL, 'two') ON CONFLICT (c) DO UPDATE SET b = 1; |
| SELECT * FROM t1; |
| } { |
| 1 {} one 2 1 two 3 {} three |
| } |
| |
| do_execsql_test 1.$tn.4 { |
| INSERT INTO t1 VALUES(2, NULL, 'zero') ON CONFLICT (a) DO UPDATE SET b=2; |
| SELECT * FROM t1; |
| } {1 {} one 2 2 two 3 {} three} |
| |
| do_catchsql_test 1.$tn.5 { |
| INSERT INTO t1 VALUES(2, NULL, 'zero') ON CONFLICT (a) |
| DO UPDATE SET c = 'one'; |
| } {1 {UNIQUE constraint failed: t1.c}} |
| |
| do_execsql_test 1.$tn.6 { |
| SELECT * FROM t1; |
| } {1 {} one 2 2 two 3 {} three} |
| |
| do_execsql_test 1.$tn.7 { |
| INSERT INTO t1 VALUES(2, NULL, 'zero') ON CONFLICT (a) |
| DO UPDATE SET (b, c) = (SELECT 'x', 'y'); |
| SELECT * FROM t1; |
| } {1 {} one 2 x y 3 {} three} |
| |
| do_execsql_test 1.$tn.8 { |
| INSERT INTO t1 VALUES(1, NULL, NULL) ON CONFLICT (a) |
| DO UPDATE SET (c, a) = ('four', 4); |
| SELECT * FROM t1 ORDER BY 1; |
| } {2 x y 3 {} three 4 {} four} |
| } |
| |
| #------------------------------------------------------------------------- |
| # Test target analysis. |
| # |
| set rtbl(0) {0 {}} |
| set rtbl(1) {/1 .*failed.*/} |
| set rtbl(2) {1 {ON CONFLICT clause does not match any PRIMARY KEY or UNIQUE constraint}} |
| |
| foreach {tn sql} { |
| 1 { |
| CREATE TABLE xyz(a INTEGER PRIMARY KEY, b, c, d); |
| CREATE UNIQUE INDEX xyz1 ON xyz(d, c, b COLLATE nocase); |
| } |
| |
| 2 { |
| CREATE TABLE xyz(a INT PRIMARY KEY, b, c, d); |
| CREATE UNIQUE INDEX xyz1 ON xyz(d, c, b COLLATE nocase); |
| } |
| |
| 3 { |
| CREATE TABLE xyz(a INT PRIMARY KEY, b, c, d) WITHOUT ROWID; |
| CREATE UNIQUE INDEX xyz1 ON xyz(d, c, b COLLATE nocase); |
| } |
| } { |
| reset_db |
| execsql $sql |
| do_execsql_test 2.$tn.1 { |
| INSERT INTO xyz VALUES(10, 1, 1, 'one'); |
| } |
| |
| |
| foreach {tn2 oc res} { |
| 1 "ON CONFLICT (b COLLATE nocase, c, d) DO NOTHING" 0 |
| 2 "ON CONFLICT (b, c, d) DO NOTHING" 0 |
| 3 "ON CONFLICT (b, c COLLATE nocase, d) DO NOTHING" 2 |
| 4 "ON CONFLICT (a) DO NOTHING" 1 |
| 5 "ON CONFLICT DO NOTHING" 0 |
| 6 "ON CONFLICT (b, c, d) WHERE a!=0 DO NOTHING" 0 |
| 7 "ON CONFLICT (d, c, c) WHERE a!=0 DO NOTHING" 2 |
| 8 "ON CONFLICT (b COLLATE nocase, c COLLATE nocase, d) DO NOTHING" 2 |
| 9 "ON CONFLICT (b, c, d) WHERE b==45 DO NOTHING" 0 |
| } { |
| |
| do_catchsql_test 2.$tn.2.$tn2 " |
| INSERT INTO xyz VALUES(11, 1, 1, 'one') $oc |
| " $rtbl($res) |
| } |
| |
| do_execsql_test 2.$tn.3 { |
| SELECT * FROM xyz; |
| } {10 1 1 one} |
| } |
| |
| foreach {tn sql} { |
| 1 { |
| CREATE TABLE abc(a INTEGER PRIMARY KEY, x, y); |
| CREATE UNIQUE INDEX abc1 ON abc(('x' || x) COLLATE nocase); |
| } |
| 2 { |
| CREATE TABLE abc(a INT PRIMARY KEY, x, y); |
| CREATE UNIQUE INDEX abc1 ON abc(('x' || x) COLLATE nocase); |
| } |
| 3 { |
| CREATE TABLE abc(a INT PRIMARY KEY, x, y) WITHOUT ROWID; |
| CREATE UNIQUE INDEX abc1 ON abc(('x' || x) COLLATE nocase); |
| } |
| } { |
| reset_db |
| execsql $sql |
| do_execsql_test 3.$tn.1 { |
| INSERT INTO abc VALUES(1, 'one', 'two'); |
| } |
| |
| foreach {tn2 oc res} { |
| 1 "ON CONFLICT DO NOTHING" 0 |
| 2 "ON CONFLICT ('x' || x) DO NOTHING" 0 |
| 3 "ON CONFLICT (('x' || x) COLLATE nocase) DO NOTHING" 0 |
| 4 "ON CONFLICT (('x' || x) COLLATE binary) DO NOTHING" 2 |
| 5 "ON CONFLICT (x || 'x') DO NOTHING" 2 |
| 6 "ON CONFLICT ((('x' || x))) DO NOTHING" 0 |
| } { |
| do_catchsql_test 3.$tn.2.$tn2 " |
| INSERT INTO abc VALUES(2, 'one', NULL) $oc; |
| " $rtbl($res) |
| } |
| |
| do_execsql_test 3.$tn.3 { |
| SELECT * FROM abc |
| } {1 one two} |
| } |
| |
| foreach {tn sql} { |
| 1 { |
| CREATE TABLE abc(a INTEGER PRIMARY KEY, x, y); |
| CREATE UNIQUE INDEX abc1 ON abc(x) WHERE y>0; |
| CREATE UNIQUE INDEX abc2 ON abc(y) WHERE x='xyz' COLLATE nocase; |
| } |
| } { |
| reset_db |
| execsql $sql |
| do_execsql_test 4.$tn.1 { |
| INSERT INTO abc VALUES(1, 'one', 1); |
| INSERT INTO abc VALUES(2, 'two', 2); |
| INSERT INTO abc VALUES(3, 'xyz', 3); |
| INSERT INTO abc VALUES(4, 'XYZ', 4); |
| } |
| |
| foreach {tn2 oc res} { |
| 1 "ON CONFLICT DO NOTHING" 0 |
| 2 "ON CONFLICT(x) WHERE y>0 DO NOTHING" 0 |
| 3 "ON CONFLICT(x) DO NOTHING" 2 |
| 4 "ON CONFLICT(x) WHERE y>=0 DO NOTHING" 2 |
| 5 "ON CONFLICT(y) WHERE x='xyz' COLLATE nocase DO NOTHING" 1 |
| } { |
| do_catchsql_test 4.$tn.2.$tn2 " |
| INSERT INTO abc VALUES(5, 'one', 10) $oc |
| " $rtbl($res) |
| } |
| |
| do_execsql_test 4.$tn.3 { |
| SELECT * FROM abc |
| } {1 one 1 2 two 2 3 xyz 3 4 XYZ 4} |
| |
| foreach {tn2 oc res} { |
| 1 "ON CONFLICT DO NOTHING" 0 |
| 2 "ON CONFLICT(y) WHERE x='xyz' COLLATE nocase DO NOTHING" 0 |
| 3 "ON CONFLICT(y) WHERE x='xyz' COLLATE binary DO NOTHING" 2 |
| 4 "ON CONFLICT(x) WHERE y>0 DO NOTHING" 1 |
| } { |
| do_catchsql_test 4.$tn.2.$tn2 " |
| INSERT INTO abc VALUES(5, 'xYz', 3) $oc |
| " $rtbl($res) |
| } |
| } |
| |
| do_catchsql_test 5.0 { |
| CREATE TABLE w1(a INT PRIMARY KEY, x, y); |
| CREATE UNIQUE INDEX w1expr ON w1(('x' || x)); |
| INSERT INTO w1 VALUES(2, 'one', NULL) |
| ON CONFLICT (('x' || x) COLLATE nocase) DO NOTHING; |
| } {1 {ON CONFLICT clause does not match any PRIMARY KEY or UNIQUE constraint}} |
| |
| #------------------------------------------------------------------------- |
| # Test that ON CONFLICT constraint processing occurs before any REPLACE |
| # constraint processing. |
| # |
| foreach {tn sql} { |
| 1 { |
| CREATE TABLE t1(a INTEGER PRIMARY KEY, b UNIQUE, c); |
| } |
| 2 { |
| CREATE TABLE t1(a INT PRIMARY KEY, b UNIQUE, c); |
| } |
| 3 { |
| CREATE TABLE t1(a INT PRIMARY KEY, b UNIQUE, c) WITHOUT ROWID; |
| } |
| } { |
| reset_db |
| execsql $sql |
| do_execsql_test 6.1.$tn { |
| INSERT INTO t1 VALUES(1, 1, 'one'); |
| INSERT INTO t1 VALUES(2, 2, 'two'); |
| INSERT OR REPLACE INTO t1 VALUES(1, 2, 'two') ON CONFLICT(b) DO NOTHING; |
| PRAGMA integrity_check; |
| } {ok} |
| } |
| |
| foreach {tn sql} { |
| 1 { |
| CREATE TABLE t1(a INTEGER PRIMARY KEY, b UNIQUE, c UNIQUE); |
| } |
| } { |
| reset_db |
| execsql $sql |
| |
| do_execsql_test 6.2.$tn.1 { |
| INSERT INTO t1 VALUES(1, 1, 1); |
| INSERT INTO t1 VALUES(2, 2, 2); |
| } |
| |
| do_execsql_test 6.2.$tn.2 { |
| INSERT OR REPLACE INTO t1 VALUES(3, 1, 1) ON CONFLICT(b) DO NOTHING; |
| SELECT * FROM t1; |
| PRAGMA integrity_check; |
| } {1 1 1 2 2 2 ok} |
| |
| do_execsql_test 6.2.$tn.3 { |
| INSERT OR REPLACE INTO t1 VALUES(3, 2, 2) ON CONFLICT(c) DO NOTHING; |
| SELECT * FROM t1; |
| PRAGMA integrity_check; |
| } {1 1 1 2 2 2 ok} |
| |
| do_execsql_test 6.2.$tn.2 { |
| INSERT OR REPLACE INTO t1 VALUES(3, 1, 1) ON CONFLICT(b) |
| DO UPDATE SET b=b||'x'; |
| SELECT * FROM t1; |
| PRAGMA integrity_check; |
| } {1 1x 1 2 2 2 ok} |
| |
| do_execsql_test 6.2.$tn.2 { |
| INSERT OR REPLACE INTO t1 VALUES(3, 2, 2) ON CONFLICT(c) |
| DO UPDATE SET c=c||'x'; |
| SELECT * FROM t1; |
| PRAGMA integrity_check; |
| } {1 1x 1 2 2 2x ok} |
| } |
| |
| #------------------------------------------------------------------------- |
| # Test references to "excluded". And using an alias in an INSERT |
| # statement. |
| # |
| foreach {tn sql} { |
| 1 { |
| CREATE TABLE t1(w, x, y, z, PRIMARY KEY(x, y)); |
| CREATE UNIQUE INDEX zz ON t1(z); |
| } |
| 2 { |
| CREATE TABLE t1(w, x, y, z, PRIMARY KEY(x, y)) WITHOUT ROWID; |
| CREATE UNIQUE INDEX zz ON t1(z); |
| } |
| } { |
| reset_db |
| execsql $sql |
| do_execsql_test 7.$tn.0 { |
| INSERT INTO t1 VALUES('a', 1, 1, 1); |
| INSERT INTO t1 VALUES('b', 2, 2, 2); |
| } |
| |
| do_execsql_test 7.$tn.1 { |
| INSERT INTO t1 VALUES('c', 3, 3, 1) ON CONFLICT(z) |
| DO UPDATE SET w = excluded.w; |
| SELECT * FROM t1; |
| } {c 1 1 1 b 2 2 2} |
| |
| do_execsql_test 7.$tn.2 { |
| INSERT INTO t1 VALUES('c', 2, 2, 3) ON CONFLICT(y, x) |
| DO UPDATE SET w = w||w; |
| SELECT * FROM t1; |
| } {c 1 1 1 bb 2 2 2} |
| |
| do_execsql_test 7.$tn.3 { |
| INSERT INTO t1 VALUES('c', 2, 2, 3) ON CONFLICT(y, x) |
| DO UPDATE SET w = w||t1.w; |
| SELECT * FROM t1; |
| } {c 1 1 1 bbbb 2 2 2} |
| |
| do_execsql_test 7.$tn.4 { |
| INSERT INTO t1 AS tbl VALUES('c', 2, 2, 3) ON CONFLICT(y, x) |
| DO UPDATE SET w = w||tbl.w; |
| SELECT * FROM t1; |
| } {c 1 1 1 bbbbbbbb 2 2 2} |
| } |
| |
| foreach {tn sql} { |
| 1 { |
| CREATE TABLE excluded(w, x INTEGER, 'a b', z, PRIMARY KEY(x, 'a b')); |
| CREATE UNIQUE INDEX zz ON excluded(z); |
| CREATE INDEX zz2 ON excluded(z); |
| } |
| 2 { |
| CREATE TABLE excluded(w, x, 'a b', z, PRIMARY KEY(x, 'a b')) WITHOUT ROWID; |
| CREATE UNIQUE INDEX zz ON excluded(z); |
| CREATE INDEX zz2 ON excluded(z); |
| } |
| } { |
| reset_db |
| execsql $sql |
| do_execsql_test 8.$tn.0 { |
| INSERT INTO excluded VALUES('a', 1, 1, 1); |
| INSERT INTO excluded VALUES('b', 2, 2, 2); |
| } |
| |
| # Note: An error in Postgres: "table reference "excluded" is ambiguous". |
| # |
| do_execsql_test 8.$tn.1 { |
| INSERT INTO excluded VALUES('hello', 1, 1, NULL) ON CONFLICT(x, "a b") |
| DO UPDATE SET w=excluded.w; |
| SELECT * FROM excluded; |
| } {a 1 1 1 b 2 2 2} |
| |
| do_execsql_test 8.$tn.2 { |
| INSERT INTO excluded AS x1 VALUES('hello', 1, 1, NULL) ON CONFLICT(x, [a b]) |
| DO UPDATE SET w=excluded.w; |
| SELECT * FROM excluded; |
| } {hello 1 1 1 b 2 2 2} |
| |
| do_execsql_test 8.$tn.3 { |
| INSERT INTO excluded AS x1 VALUES('hello', 1, 1, NULL) ON CONFLICT(x, [a b]) |
| DO UPDATE SET w=w||w WHERE excluded.w!='hello'; |
| SELECT * FROM excluded; |
| } {hello 1 1 1 b 2 2 2} |
| |
| do_execsql_test 8.$tn.4 { |
| INSERT INTO excluded AS x1 VALUES('hello', 1, 1, NULL) ON CONFLICT(x, [a b]) |
| DO UPDATE SET w=w||w WHERE excluded.x=1; |
| SELECT * FROM excluded; |
| } {hellohello 1 1 1 b 2 2 2} |
| |
| do_catchsql_test 8.$tn.5 { |
| INSERT INTO excluded AS x1 VALUES('hello', 1, 1, NULL) |
| ON CONFLICT(x, [a b]) WHERE y=1 |
| DO UPDATE SET w=w||w WHERE excluded.x=1; |
| } {1 {no such column: y}} |
| } |
| |
| #-------------------------------------------------------------------------- |
| # |
| do_execsql_test 9.0 { |
| CREATE TABLE v(x INTEGER); |
| CREATE TABLE hist(x INTEGER PRIMARY KEY, cnt INTEGER); |
| CREATE TRIGGER vt AFTER INSERT ON v BEGIN |
| INSERT INTO hist VALUES(new.x, 1) ON CONFLICT(x) DO |
| UPDATE SET cnt=cnt+1; |
| END; |
| } |
| |
| do_execsql_test 9.1 { |
| INSERT INTO v VALUES(1), (4), (1), (5), (5), (8), (9), (1); |
| SELECT * FROM hist; |
| } { |
| 1 3 |
| 4 1 |
| 5 2 |
| 8 1 |
| 9 1 |
| } |
| |
| |
| finish_test |