Import SQLite 3.7.6.3.

third_party/sqlite/src/test/fuzz_malloc.test

 #
 # 2007 May 10
 #
 # 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 tests malloc failures in concert with fuzzy SQL generation.
 #
 # $Id: fuzz_malloc.test,v 1.10 2008/08/20 16:35:10 drh Exp $
 
 set testdir [file dirname $argv0]
 source $testdir/tester.tcl
 
 ifcapable !memdebug {
   finish_test
   return
 }
 
 source $testdir/malloc_common.tcl
 source $testdir/fuzz_common.tcl
 
-if {[info exists ISQUICK]} {
+if {[info exists G(isquick)]} {
   set ::REPEATS 20
-} elseif {[info exists SOAKTEST]} {
+} elseif {[info exists G(issoak)]} {
   set ::REPEATS 100
 } else {
   set ::REPEATS 40
 }
 
 #
 # Usage: do_fuzzy_malloc_test <testname> ?<options>?
 # 
 #     -template
 #     -sqlprep
@@ skipping 44 matching lines @@
   COMMIT;
 }
 set ::TableList  [list abc def ghi]
 set ::ColumnList [list a b c]
 
 do_fuzzy_malloc_test fuzzy_malloc-3 \
   -template {[Select]}              \
   -sqlprep $::SQLPREP
 
 finish_test