[sql] Import SQLite 3.17.0.

third_party/sqlite/src/test/filectrl.test

Index: third_party/sqlite/src/test/filectrl.test
diff --git a/third_party/sqlite/src/test/filectrl.test b/third_party/sqlite/src/test/filectrl.test
index 28fecee92fc805727534880bc8bbf54b277ece3c..460b71e257ebfe1550197061576c95a8cc32862a 100644
--- a/third_party/sqlite/src/test/filectrl.test
+++ b/third_party/sqlite/src/test/filectrl.test
@@ -43,4 +43,30 @@ do_test filectrl-1.6 {
 } {/etilqs_/}
 db close
 forcedelete .test_control_lockproxy.db-conch test.proxy
+forcedelete test.db test2.db
+
+if {$tcl_platform(platform)=="windows"} {
+  do_test filectrl-2.1 {
+    sqlite3 db test2.db
+    set size [file size test2.db]
+    set handle [file_control_win32_get_handle db]
+    db close
+    forcedelete test2.db
+    list $size $handle [expr {$handle != 0}]
+  } {/^0 \{0 [0-9A-Fa-f]+\} 1$/}
+
+  do_test filectrl-2.2 {
+    sqlite3 db test2.db
+    execsql {
+      CREATE TABLE t1(x);
+      INSERT INTO t1 (x) VALUES(RANDOMBLOB(1048576));
+    }
+    set size [file size test2.db]
+    set handle [file_control_win32_get_handle db]
+    db close
+    forcedelete test2.db
+    list $size $handle [expr {$handle != 0}]
+  } {/^1\d+ \{0 [0-9A-Fa-f]+\} 1$/}
+}
+
 finish_test