Import SQLite 3.7.6.3.

third_party/sqlite/src/test/fuzz.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 implements regression tests for SQLite library.  The
 # focus of this file is generating semi-random strings of SQL
 # (a.k.a. "fuzz") and sending it into the parser to try to 
 # generate errors.
 #
 # The tests in this file are really about testing fuzzily generated
 # SQL parse-trees. The majority of the fuzzily generated SQL is 
 # valid as far as the parser is concerned. 
 #
 # The most complicated trees are for SELECT statements.
 #
 # $Id: fuzz.test,v 1.19 2009/04/28 11:10:39 danielk1977 Exp $
 
 set testdir [file dirname $argv0]
 source $testdir/tester.tcl
 
 set ::REPEATS 5000
 
 # If running quick.test, don't do so many iterations.
-if {[info exists ::ISQUICK]} {
-  if {$::ISQUICK} { set ::REPEATS 20 }
+if {[info exists ::G(isquick)]} {
+  if {$::G(isquick)} { set ::REPEATS 20 }
 }
 
 source $testdir/fuzz_common.tcl
 expr srand(0)
 
 #----------------------------------------------------------------
 # These tests caused errors that were first caught by the tests
 # in this file. They are still here.
 do_test fuzz-1.1 {
   execsql {
@@ skipping 328 matching lines @@
 integrity_check fuzz-7.5.integrity
 
 #----------------------------------------------------------------
 # Many CREATE and DROP TABLE statements:
 #
 set E [list table duplicate {no such col} {ambiguous column name} {use DROP}]
 do_fuzzy_test fuzz-8.1 -template {[CreateOrDropTableOrView]} -errorlist $E
 
 close $::log
 finish_test