Import SQLite 3.10.2.

third_party/sqlite/src/test/main.test

Index: third_party/sqlite/src/test/main.test
diff --git a/third_party/sqlite/src/test/main.test b/third_party/sqlite/src/test/main.test
index 5bbc52b84509b901f460459c6e63ff807b81e5f6..3f35afe20ce1661d318633a7cbeef821ad2a5491 100644
--- a/third_party/sqlite/src/test/main.test
+++ b/third_party/sqlite/src/test/main.test
@@ -514,5 +514,25 @@ if {$::tcl_platform(platform)=="unix"
     } {1 {no such vfs: async}}
   }
 }
+
+# Print the version number so that it can be picked up by releasetest.tcl.
+#
+puts [db one {SELECT 'VERSION: ' ||
+                  sqlite_version() || ' ' ||
+                  sqlite_source_id();}]
+
+# Do deliberate failures if the TEST_FAILURE environment variable is set.
+# This is done to verify that failure notifications are detected by the
+# releasetest.tcl script, or possibly by other scripts involved in automatic
+# testing.
+#
+if {[info exists ::env(TEST_FAILURE)]} {
+  set res 123
+  if {$::env(TEST_FAILURE)==0} {set res 234}
+  do_test main-99.1 {
+     bad_behavior $::env(TEST_FAILURE)
+     set x 123
+  } $res
+}
     
 finish_test