[sqlite] Remove obsolete reference version 3.8.7.4.

third_party/sqlite/sqlite-src-3080704/test/fkey7.test

-# 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