Import SQLite 3.10.2.

third_party/sqlite/src/test/fkey5.test

 # 2012 December 17
 #
 # 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 tests the PRAGMA foreign_key_check command.
 #
-# EVIDENCE-OF: R-05426-18119 PRAGMA foreign_key_check; PRAGMA
-# foreign_key_check(table-name);
+# EVIDENCE-OF: R-15402-03103 PRAGMA schema.foreign_key_check; PRAGMA
+# schema.foreign_key_check(table-name);
+#
+# EVIDENCE-OF: R-23918-17301 The foreign_key_check pragma checks the
+# database, or the table called "table-name", for foreign key
+# constraints that are violated and returns one row of output for each
+# violation.
 
 set testdir [file dirname $argv0]
 source $testdir/tester.tcl
 set testprefix fkey5
 
 ifcapable {!foreignkey} {
   finish_test
   return
 }
 
@@ skipping 40 matching lines @@
 
     PRAGMA foreign_key_check;
   }
 } {}    
 do_test fkey5-1.2 {
   db eval {
     INSERT INTO c1 VALUES(90),(87),(88);
     PRAGMA foreign_key_check;
   }
 } {c1 87 p1 0 c1 90 p1 0}
+do_test fkey5-1.2b {
+  db eval {
+    PRAGMA main.foreign_key_check;
+  }
+} {c1 87 p1 0 c1 90 p1 0}
+do_test fkey5-1.2c {
+  db eval {
+    PRAGMA temp.foreign_key_check;
+  }
+} {}
 do_test fkey5-1.3 {
   db eval {
     PRAGMA foreign_key_check(c1);
   }
 } {c1 87 p1 0 c1 90 p1 0}
 do_test fkey5-1.4 {
   db eval {
     PRAGMA foreign_key_check(c2);
   }
 } {}
+do_test fkey5-1.5 {
+  db eval {
+    PRAGMA main.foreign_key_check(c2);
+  }
+} {}
+do_test fkey5-1.6 {
+  catchsql {
+    PRAGMA temp.foreign_key_check(c2);
+  }
+} {1 {no such table: temp.c2}}
 
 # EVIDENCE-OF: R-45728-08709 There are four columns in each result row.
 #
 # EVIDENCE-OF: R-55672-01620 The first column is the name of the table
 # that contains the REFERENCES clause.
 #
 # EVIDENCE-OF: R-25219-25618 The second column is the rowid of the row
 # that contains the invalid REFERENCES clause.
 #
 # EVIDENCE-OF: R-40482-20265 The third column is the name of the table
@@ skipping 148 matching lines @@
     PRAGMA foreign_key_check;
   }
 } {c12 1 p4 0 c12 3 p4 0 c12 6 p4 0}
 do_test fkey5-6.5 {
   db eval {
     PRAGMA foreign_key_check(c12);
   }
 } {c12 1 p4 0 c12 3 p4 0 c12 6 p4 0}
 
 do_test fkey5-7.1 {
+  set res {}
   db eval {
     INSERT OR IGNORE INTO c13 SELECT * FROM c12;
     INSERT OR IGNORE INTO C14 SELECT * FROM c12;
     DELETE FROM c12;
     PRAGMA foreign_key_check;
+  } {
+    lappend res [list $table $rowid $fkid $parent]
   }
-} {c14 1 p4 0 c14 3 p4 0 c14 6 p4 0 c13 1 p3 0 c13 2 p3 0 c13 3 p3 0 c13 4 p3 0 c13 5 p3 0 c13 6 p3 0}
+  lsort $res
+} {{c13 1 0 p3} {c13 2 0 p3} {c13 3 0 p3} {c13 4 0 p3} {c13 5 0 p3} {c13 6 0 p3} {c14 1 0 p4} {c14 3 0 p4} {c14 6 0 p4}}
 do_test fkey5-7.2 {
   db eval {
     PRAGMA foreign_key_check(c14);
   }
 } {c14 1 p4 0 c14 3 p4 0 c14 6 p4 0}
 do_test fkey5-7.3 {
   db eval {
     PRAGMA foreign_key_check(c13);
   }
 } {c13 1 p3 0 c13 2 p3 0 c13 3 p3 0 c13 4 p3 0 c13 5 p3 0 c13 6 p3 0}
@@ skipping 82 matching lines @@
   INSERT INTO k2 VALUES('one', NULL);
   PRAGMA foreign_key_check(k2);
 } {}
 do_execsql_test 9.4 {
   INSERT INTO k2 VALUES('six', 'seven');
   PRAGMA foreign_key_check(k2);
 } {k2 3 s1 0}
 
 
 finish_test