[sql] Import SQLite 3.17.0.

third_party/sqlite/src/test/speed3.test

 # 2007 May 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.
 #
 #*************************************************************************
@@ skipping 87 matching lines @@
   db_enter db
   array set stats1 [btree_pager_stats [btree_from_db db]]
   array set stats2 [btree_pager_stats [btree_from_db db 2]]
   db_leave db
 # puts "1: [array get stats1]"
 # puts "2: [array get stats2]"
   puts "Incrvacuum: Read $stats1(read), wrote $stats1(write)"
   puts "Normal    : Read $stats2(read), wrote $stats2(write)"
 }
 
-proc reset_db {} {
+proc speed3_reset_db {} {
   db close
   sqlite3 db test.db
   db eval { 
     PRAGMA main.cache_size = 200000;
     PRAGMA main.auto_vacuum = 'incremental';
     ATTACH 'test2.db' AS 'aux'; 
     PRAGMA aux.auto_vacuum = 'none';
   }
 }
 
 forcedelete test2.db test2.db-journal
-reset_db
+speed3_reset_db
 
 # Set up a database in auto-vacuum mode and create a database schema.
 #
 do_test speed3-0.1 {
   execsql {
     CREATE TABLE main.t1(a INTEGER, b TEXT, c INTEGER);
   }
   execsql {
     SELECT name FROM sqlite_master ORDER BY 1;
   }
@@ skipping 16 matching lines @@
 do_test speed3-0.4 {
   execsql {
     PRAGMA main.auto_vacuum;
     PRAGMA aux.auto_vacuum;
   }
 } {2 0}
 
 # Delete all content in a table, one row at a time.
 #
 #io_log db
-reset_db
+speed3_reset_db
 speed_trial speed3-1.incrvacuum $::NROW row {DELETE FROM main.t1 WHERE 1}
 speed_trial speed3-1.normal     $::NROW row {DELETE FROM aux.t1 WHERE 1}
 io_log db
 
 # Select the "C" column (located at the far end of the overflow 
 # chain) from each table row.
 #
 #db eval {PRAGMA incremental_vacuum(500000)}
 populate_t1 db
-reset_db
+speed3_reset_db
 speed_trial speed3-2.incrvacuum $::NROW row {SELECT c FROM main.t1}
 speed_trial speed3-2.normal     $::NROW row {SELECT c FROM aux.t1}
 io_log db
 
 finish_test