Index: third_party/sqlite/sqlite-src-3080704/test/fkey7.test |
diff --git a/third_party/sqlite/sqlite-src-3080704/test/fkey7.test b/third_party/sqlite/sqlite-src-3080704/test/fkey7.test |
deleted file mode 100644 |
index c2682edbe5fbf3a286693b380046f6592f77e472..0000000000000000000000000000000000000000 |
--- a/third_party/sqlite/sqlite-src-3080704/test/fkey7.test |
+++ /dev/null |
@@ -1,54 +0,0 @@ |
-# 2001 September 15 |
-# |
-# 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 regression tests for SQLite library. |
-# |
-# This file implements tests for foreign keys. |
-# |
- |
-set testdir [file dirname $argv0] |
-source $testdir/tester.tcl |
-set testprefix fkey7 |
- |
-ifcapable {!foreignkey} { |
- finish_test |
- return |
-} |
- |
-do_execsql_test 1.1 { |
- PRAGMA foreign_keys = 1; |
- |
- CREATE TABLE s1(a PRIMARY KEY, b); |
- CREATE TABLE par(a, b REFERENCES s1, c UNIQUE, PRIMARY KEY(a)); |
- |
- CREATE TABLE c1(a, b REFERENCES par); |
- CREATE TABLE c2(a, b REFERENCES par); |
- CREATE TABLE c3(a, b REFERENCES par(c)); |
-} |
- |
-proc auth {op tbl args} { |
- if {$op == "SQLITE_READ"} { set ::tbls($tbl) 1 } |
- return "SQLITE_OK" |
-} |
-db auth auth |
-db cache size 0 |
-proc do_tblsread_test {tn sql tbllist} { |
- array unset ::tbls |
- uplevel [list execsql $sql] |
- uplevel [list do_test $tn {lsort [array names ::tbls]} $tbllist] |
-} |
- |
-do_tblsread_test 1.2 { UPDATE par SET b=? WHERE a=? } {par s1} |
-do_tblsread_test 1.3 { UPDATE par SET a=? WHERE b=? } {c1 c2 par} |
-do_tblsread_test 1.4 { UPDATE par SET c=? WHERE b=? } {c3 par} |
-do_tblsread_test 1.5 { UPDATE par SET a=?,b=?,c=? WHERE b=? } {c1 c2 c3 par s1} |
- |
- |
-finish_test |