Import SQLite 3.8.7.4.

third_party/sqlite/src/test/fkey_malloc.test

 # 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.
 #
 #***********************************************************************
@@ skipping 11 matching lines @@
 
 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;
@@ skipping 19 matching lines @@
 }
 
 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"} {
+  if {$msg eq "out of memory" 
+   || $msg eq "FOREIGN KEY constraint failed"
+   || $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);
@@ skipping 39 matching lines @@
   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
-
-