Import SQLite 3.10.2.

third_party/sqlite/src/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.
 #
 #***********************************************************************
@@ skipping 32 matching lines @@
   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}
 
+ifcapable incrblob {
+  do_execsql_test 2.0 {
+    CREATE TABLE pX(x PRIMARY KEY);
+    CREATE TABLE cX(a INTEGER PRIMARY KEY, b REFERENCES pX);
+  }
+  
+  do_catchsql_test 2.1 {
+    INSERT INTO cX VALUES(11, zeroblob(40));
+  } {1 {FOREIGN KEY constraint failed}}
+  
+  do_test 2.2 {
+    set stmt [sqlite3_prepare_v2 db "INSERT INTO cX VALUES(11, ?)" -1]
+    sqlite3_bind_zeroblob $stmt 1 45
+    sqlite3_step $stmt
+    sqlite3_finalize $stmt
+  } {SQLITE_CONSTRAINT}
+}
 
 finish_test