| # 2016 February 19 |
| # |
| # 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. |
| # |
| #*********************************************************************** |
| # |
| # This file implements tests for the REGEXP operator in ext/misc/regexp.c. |
| # It focuses on the use of the sqlite3_set_auxdata()/get_auxdata() APIs. |
| # |
| |
| set testdir [file dirname $argv0] |
| source $testdir/tester.tcl |
| set testprefix regexp2 |
| |
| load_static_extension db regexp |
| |
| #------------------------------------------------------------------------- |
| # Test that triggers do not become confused and use aux-data created by |
| # a different trigger for a different REGEXP invocation. |
| # |
| do_execsql_test 1.0 { |
| CREATE TABLE t1(a, b, c); |
| CREATE TABLE x1(x, y, z); |
| CREATE TABLE x2(x, y, z); |
| |
| CREATE TRIGGER tr1 AFTER INSERT ON t1 BEGIN |
| INSERT INTO x1 VALUES( |
| new.a REGEXP 'abc', |
| new.b REGEXP 'abc', |
| new.c REGEXP 'abc' |
| ); |
| END; |
| |
| CREATE TRIGGER tr2 AFTER INSERT ON t1 BEGIN |
| INSERT INTO x2 VALUES( |
| new.a REGEXP 'def', |
| new.b REGEXP 'def', |
| new.c REGEXP 'def' |
| ); |
| END; |
| |
| INSERT INTO t1 VALUES('abc', 'def', 'abc'); |
| SELECT * FROM t1; |
| } {abc def abc} |
| |
| do_execsql_test 1.1 { SELECT * FROM x1 } {1 0 1} |
| do_execsql_test 1.2 { SELECT * FROM x2 } {0 1 0} |
| |
| #------------------------------------------------------------------------- |
| # Test that if an exception is thrown several triggers deep, all aux-data |
| # objects are cleaned up correctly. |
| # |
| proc sql_error {} { |
| error "SQL error!" |
| } |
| db func error sql_error |
| do_execsql_test 2.0 { |
| CREATE TABLE t2(a, b); |
| CREATE TABLE t3(c, d); |
| CREATE TABLE t4(e, f); |
| |
| CREATE TRIGGER t2_tr1 AFTER UPDATE ON t2 BEGIN |
| UPDATE t3 SET d = new.b WHERE c = old.a; |
| END; |
| |
| CREATE TRIGGER t3_tr1 AFTER UPDATE ON t3 BEGIN |
| UPDATE t4 SET f = new.d WHERE e = old.c AND new.d REGEXP 'a.*'; |
| END; |
| |
| CREATE TRIGGER t4_tr1 AFTER UPDATE ON t4 BEGIN |
| SELECT CASE WHEN new.f REGEXP '.*y.*' THEN error() ELSE 1 END; |
| END; |
| |
| INSERT INTO t2 VALUES(1, 'a_x_1'); |
| INSERT INTO t2 VALUES(2, 'a_y_1'); |
| |
| INSERT INTO t3 VALUES(1, 'b1'); |
| INSERT INTO t3 VALUES(2, 'b2'); |
| |
| INSERT INTO t4 VALUES(1, 'b1'); |
| INSERT INTO t4 VALUES(2, 'b2'); |
| } {} |
| |
| do_catchsql_test 2.1 { |
| UPDATE t2 SET a=a+1 WHERE b REGEXP 'a.*' AND b REGEXP '.*1'; |
| } {1 {SQL error!}} |
| |
| # Test that the triggers used in the test above work as expected. |
| # |
| do_execsql_test 2.2 { |
| UPDATE t2 SET b = 'a_abc_1'; |
| } {} |
| do_execsql_test 2.3 { |
| SELECT * FROM t2; |
| SELECT * FROM t3; |
| SELECT * FROM t4; |
| } {1 a_abc_1 2 a_abc_1 1 a_abc_1 2 a_abc_1 1 a_abc_1 2 a_abc_1} |
| |
| #------------------------------------------------------------------------- |
| # Test that trigger parameters (i.e. new.* and old.*) refs are not |
| # considered to be constant across separate invocations of the trigger. |
| # |
| do_execsql_test 3.0 { |
| CREATE TABLE t5(a); |
| CREATE TABLE t6(x); |
| |
| CREATE TRIGGER t5tr AFTER DELETE ON t5 BEGIN |
| DELETE FROM t6 WHERE t6.x REGEXP old.a; |
| END; |
| |
| INSERT INTO t5 VALUES ('^a.*'), ('^b.*'), ('^c.*'); |
| INSERT INTO t6 VALUES ('eab'), ('abc'), ('bcd'), ('cde'), ('dea'); |
| |
| DELETE FROM t5; |
| SELECT * FROM t6; |
| } {eab dea} |
| |
| |
| finish_test |