Import SQLite 3.8.7.4.

third_party/sqlite/src/test/fuzz3.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 checking the libraries response to subtly corrupting
 # the database file by changing the values of pseudo-randomly selected
 # bytes.
 #
 # $Id: fuzz3.test,v 1.3 2009/01/05 17:19:03 drh Exp $
 
 set testdir [file dirname $argv0]
 source $testdir/tester.tcl
 
+# These tests deal with corrupt database files
+#
+database_may_be_corrupt
 
 expr srand(123)
 
 proc rstring {n} {
   set str s
   while {[string length $str] < $n} {
     append str [expr rand()]
   }
   return [string range $str 0 $n]
 }
@@ skipping 129 matching lines @@
   # checksum is now returned.
   #
   purge_pcache
   modify_database $iOld
   do_test fuzz3-$ii.$iNew.[incr iTest] {
     db_checksum
   } $::cksum
 }
 
 finish_test