diff options
| author | bernard <[email protected]> | 2017-11-02 13:50:42 +0800 |
|---|---|---|
| committer | bernard <[email protected]> | 2017-11-02 13:50:42 +0800 |
| commit | b2057f506a09e2adef81fc77efd697d16ae14bec (patch) | |
| tree | 3affefabfe376a0ec1b3ac4a5eef957c1dd58dc8 /components/external/SQLite-3.8.1/test/fkey_malloc.test | |
| parent | 23582c8129228b4961ad35319cfd2d270039345f (diff) | |
[External] Remove external from RT-Thread
Diffstat (limited to 'components/external/SQLite-3.8.1/test/fkey_malloc.test')
| -rw-r--r-- | components/external/SQLite-3.8.1/test/fkey_malloc.test | 131 |
1 files changed, 0 insertions, 131 deletions
diff --git a/components/external/SQLite-3.8.1/test/fkey_malloc.test b/components/external/SQLite-3.8.1/test/fkey_malloc.test deleted file mode 100644 index b4b5b4eed7..0000000000 --- a/components/external/SQLite-3.8.1/test/fkey_malloc.test +++ /dev/null @@ -1,131 +0,0 @@ -# 2009 September 22 -# -# 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. -# -#*********************************************************************** -# -# - -set testdir [file dirname $argv0] -source $testdir/tester.tcl - -ifcapable !foreignkey||!trigger { - finish_test - return -} -source $testdir/malloc_common.tcl - -do_malloc_test fkey_malloc-1 -sqlprep { - PRAGMA foreign_keys = 1; - CREATE TABLE t1(a PRIMARY KEY, b UNIQUE); - CREATE TABLE t2(x REFERENCES t1 ON UPDATE CASCADE ON DELETE CASCADE); -} -sqlbody { - INSERT INTO t1 VALUES('aaa', 1); - INSERT INTO t2 VALUES('aaa'); - UPDATE t1 SET a = 'bbb'; - DELETE FROM t1; - PRAGMA foreign_key_check; -} - -do_malloc_test fkey_malloc-2 -sqlprep { - PRAGMA foreign_keys = 1; - CREATE TABLE t1(a, b, UNIQUE(a, b)); -} -sqlbody { - CREATE TABLE t2(x, y, - FOREIGN KEY(x, y) REFERENCES t1(a, b) DEFERRABLE INITIALLY DEFERRED - ); - BEGIN; - INSERT INTO t2 VALUES('a', 'b'); - INSERT INTO t1 VALUES('a', 'b'); - UPDATE t1 SET a = 'c'; - DELETE FROM t2; - INSERT INTO t2 VALUES('d', 'b'); - UPDATE t2 SET x = 'c'; - COMMIT; -} - -do_malloc_test fkey_malloc-3 -sqlprep { - PRAGMA foreign_keys = 1; - CREATE TABLE t1(x INTEGER PRIMARY KEY); - CREATE TABLE t2(y DEFAULT 14 REFERENCES t1(x) ON UPDATE SET DEFAULT); - CREATE TABLE t3(y REFERENCES t1 ON UPDATE SET NULL); - INSERT INTO t1 VALUES(13); - INSERT INTO t2 VALUES(13); - INSERT INTO t3 VALUES(13); -} -sqlbody { - UPDATE t1 SET x = 14; -} - -proc catch_fk_error {zSql} { - set rc [catch {db eval $zSql} msg] - if {$rc==0} { - return $msg - } - if {[string match {*foreign key*} $msg]} { - return "" - } - if {$msg eq "out of memory" || $msg eq "constraint failed"} { - error 1 - } - error $msg -} - -do_malloc_test fkey_malloc-4 -sqlprep { - PRAGMA foreign_keys = 1; - CREATE TABLE t1(x INTEGER PRIMARY KEY, y UNIQUE); - CREATE TABLE t2(z REFERENCES t1(x), a REFERENCES t1(y)); - CREATE TABLE t3(x); - CREATE TABLE t4(z REFERENCES t3); - CREATE TABLE t5(x, y); - CREATE TABLE t6(z REFERENCES t5(x)); - CREATE INDEX i51 ON t5(x); - CREATE INDEX i52 ON t5(y, x); - INSERT INTO t1 VALUES(1, 2); -} -tclbody { - catch_fk_error {INSERT INTO t2 VALUES(1, 3)} - catch_fk_error {INSERT INTO t4 VALUES(2)} - catch_fk_error {INSERT INTO t6 VALUES(2)} -} - -do_malloc_test fkey_malloc-5 -sqlprep { - PRAGMA foreign_keys = 1; - CREATE TABLE t1(x, y, PRIMARY KEY(x, y)); - CREATE TABLE t2(a, b, FOREIGN KEY(a, b) REFERENCES t1 ON UPDATE CASCADE); - INSERT INTO t1 VALUES(1, 2); - INSERT INTO t2 VALUES(1, 2); -} -sqlbody { - UPDATE t1 SET x = 5; -} - -do_malloc_test fkey_malloc-6 -sqlprep { - PRAGMA foreign_keys = 1; - CREATE TABLE t1( - x PRIMARY KEY, - y REFERENCES t1 ON DELETE RESTRICT ON UPDATE SET DEFAULT - ); - INSERT INTO t1 VALUES('abc', 'abc'); - INSERT INTO t1 VALUES('def', 'def'); -} -sqlbody { - INSERT INTO t1 VALUES('ghi', 'ghi'); - DELETE FROM t1 WHERE rowid>1; - UPDATE t1 SET x='jkl', y='jkl'; -} - -do_malloc_test fkey_malloc-7 -sqlprep { - PRAGMA foreign_keys = 1; - CREATE TABLE x(a, b, PRIMARY KEY(a, b)); - CREATE TABLE y(c, d, - FOREIGN KEY(d, c) REFERENCES x DEFERRABLE INITIALLY DEFERRED - ); - CREATE TABLE z(e, f, FOREIGN KEY(e, f) REFERENCES x); -} -sqlbody { - DROP TABLE y; - DROP TABLE x; -} - -finish_test |
