Import SQLite 3.8.7.4.

third_party/sqlite/src/test/speed1p.test

 # 2008 March 21
 #
 # 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.
 #
 #*************************************************************************
 # This file implements regression tests for SQLite library.  The
 # focus of this script is measuring executing speed.  
 #
 # This is a copy of speed1.test modified to user prepared statements.
 #
 # $Id: speed1p.test,v 1.7 2009/04/09 01:23:49 drh Exp $
 #
 
 sqlite3_shutdown
 #sqlite3_config_scratch 29000 1
 set old_lookaside [sqlite3_config_lookaside 2048 300]
 #sqlite3_config_pagecache 1024 11000
 set testdir [file dirname $argv0]
 source $testdir/tester.tcl
 speed_trial_init speed1
 
+sqlite3_memdebug_vfs_oom_test 0
+
 # Set a uniform random seed
 expr srand(0)
 
 # The number_name procedure below converts its argment (an integer)
 # into a string which is the English-language name for that number.
 #
 # Example:
 #
 #     puts [number_name 123]   ->  "one hundred twenty three"
 #
@@ skipping 34 matching lines @@
     CREATE TABLE t1(a INTEGER, b INTEGER, c TEXT);
     CREATE TABLE t2(a INTEGER, b INTEGER, c TEXT);
     CREATE INDEX i2a ON t2(a);
     CREATE INDEX i2b ON t2(b);
   }
   execsql {
     SELECT name FROM sqlite_master ORDER BY 1;
   }
 } {i2a i2b t1 t2}
 
-
 # 50000 INSERTs on an unindexed table
 #
 set list {}
 for {set i 1} {$i<=50000} {incr i} {
   set r [expr {int(rand()*500000)}]
   set x [number_name $r]
   lappend list $i $r $x
 }
 set script {
   foreach {i r x} $::list {
@@ skipping 245 matching lines @@
   db one {SELECT count(*) FROM t1}
 } 10000
 speed_trial_summary speed1
 
 db close
 sqlite3_shutdown
 eval sqlite3_config_lookaside $old_lookaside
 sqlite3_initialize
 autoinstall_test_functions
 finish_test