Import SQLite 3.7.6.3.

third_party/sqlite/src/test/corruptC.test

 # 2004 August 30
 #
 # 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.
 #
 # This file implements tests to make sure SQLite does not crash or
 # segfault if it sees a corrupt database file.  It creates a base
 # data base file, then tests that single byte corruptions in 
 # increasingly larger quantities are handled gracefully.
 #
 # $Id: corruptC.test,v 1.14 2009/07/11 06:55:34 danielk1977 Exp $
 
 catch {file delete -force test.db test.db-journal test.bu}
 
 set testdir [file dirname $argv0]
 source $testdir/tester.tcl
 
+# Do not use a codec for tests in this file, as the database file is
+# manipulated directly using tcl scripts (using the [hexio_write] command).
+#
+do_not_use_codec
+
 # Construct a compact, dense database for testing.
 #
 do_test corruptC-1.1 {
   execsql {
     PRAGMA auto_vacuum = 0;
     PRAGMA legacy_file_format=1;
     BEGIN;
     CREATE TABLE t1(x,y);
     INSERT INTO t1 VALUES(1,1);
     INSERT OR IGNORE INTO t1 SELECT x*2,y FROM t1;
@@ skipping 25 matching lines @@
 }
 
 # Setup for the tests.  Make a backup copy of the good database in test.bu.
 #
 db close
 copy_file test.db test.bu
 sqlite3 db test.db
 set fsize [file size test.db]
 
 # Set a quasi-random random seed. 
-if {[info exists SOAKTEST]} {
+if {[info exists ::G(issoak)]} {
   # If we are doing SOAK tests, we want a different
   # random seed for each run.  Ideally we would like 
   # to use [clock clicks] or something like that here.
   set qseed [file mtime test.db]
 } else {
   # If we are not doing soak tests,
   # make it repeatable.
   set qseed 0
 }
 expr srand($qseed)
@@ skipping 188 matching lines @@
   sqlite3 db test.db
   set blob [string repeat abcdefghij 10000]
   execsql { INSERT INTO t1 VALUES (1, $blob) }
 
   sqlite3 db test.db
   set filesize [file size test.db]
   hexio_write test.db [expr $filesize-2048] 00000001
   catchsql {DELETE FROM t1 WHERE rowid = (SELECT max(rowid) FROM t1)}
 } {1 {database disk image is malformed}}
 
+# At one point this particular corrupt database was causing a buffer
+# overread. Which caused a crash in a run of all.test once.
+#
+do_test corruptC-2.15 {
+  db close
+  copy_file test.bu test.db
+  hexio_write test.db 986 b9
+  sqlite3 db test.db
+  catchsql {SELECT count(*) FROM sqlite_master;}
+} {1 {malformed database schema (t1i1) - no such table: main.t1}}
+
 #
 # Now test for a series of quasi-random seeds.
 # We loop over the entire file size and touch
 # each byte at least once.
 for {set tn 0} {$tn<$fsize} {incr tn 1} {
 
   # setup for test
   db close
   copy_file test.bu test.db
   sqlite3 db test.db
@@ skipping 99 matching lines @@
         set stats(ref)
       } {0}
     }
   }
   # end for i
 
 }
 # end for tn
 
 finish_test