Chromium Code Reviews
chromiumcodereview-hr@appspot.gserviceaccount.com (chromiumcodereview-hr) | Please choose your nickname with Settings | Help | Chromium Project | Gerrit Changes | Sign out
(627)

Unified Diff: third_party/sqlite/sqlite-src-3080704/test/fkey7.test

Issue 2363173002: [sqlite] Remove obsolete reference version 3.8.7.4. (Closed)
Patch Set: Created 4 years, 3 months ago
Use n/p to move between diff chunks; N/P to move between comments. Draft comments are only viewable by you.
Jump to:
View side-by-side diff with in-line comments
Download patch
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
« no previous file with comments | « third_party/sqlite/sqlite-src-3080704/test/fkey6.test ('k') | third_party/sqlite/sqlite-src-3080704/test/fkey_malloc.test » ('j') | no next file with comments »

Powered by Google App Engine
This is Rietveld 408576698