| OLD | NEW |
| (Empty) |
| 1 # 2007 April 6 | |
| 2 # | |
| 3 # The author disclaims copyright to this source code. In place of | |
| 4 # a legal notice, here is a blessing: | |
| 5 # | |
| 6 # May you do good and not evil. | |
| 7 # May you find forgiveness for yourself and forgive others. | |
| 8 # May you share freely, never taking more than you give. | |
| 9 # | |
| 10 #*********************************************************************** | |
| 11 # This file implements regression tests for SQLite library. | |
| 12 # | |
| 13 # This file implements tests to make sure SQLite does not crash or | |
| 14 # segfault if it sees a corrupt database file. | |
| 15 # | |
| 16 # $Id: corrupt3.test,v 1.2 2007/04/06 21:42:22 drh Exp $ | |
| 17 | |
| 18 set testdir [file dirname $argv0] | |
| 19 source $testdir/tester.tcl | |
| 20 | |
| 21 # Do not use a codec for tests in this file, as the database file is | |
| 22 # manipulated directly using tcl scripts (using the [hexio_write] command). | |
| 23 # | |
| 24 do_not_use_codec | |
| 25 | |
| 26 # These tests deal with corrupt database files | |
| 27 # | |
| 28 database_may_be_corrupt | |
| 29 | |
| 30 # We must have the page_size pragma for these tests to work. | |
| 31 # | |
| 32 ifcapable !pager_pragmas||direct_read { | |
| 33 finish_test | |
| 34 return | |
| 35 } | |
| 36 | |
| 37 # Create a database with an overflow page. | |
| 38 # | |
| 39 do_test corrupt3-1.1 { | |
| 40 set bigstring [string repeat 0123456789 200] | |
| 41 execsql { | |
| 42 PRAGMA auto_vacuum=OFF; | |
| 43 PRAGMA page_size=1024; | |
| 44 CREATE TABLE t1(x); | |
| 45 INSERT INTO t1 VALUES($bigstring); | |
| 46 } | |
| 47 file size test.db | |
| 48 } [expr {1024*3}] | |
| 49 | |
| 50 # Verify that the file format is as we expect. The page size | |
| 51 # should be 1024 bytes. The only record should have a single | |
| 52 # overflow page. The overflow page is page 3. The pointer to | |
| 53 # the overflow page is on the last 4 bytes of page 2. | |
| 54 # | |
| 55 do_test corrupt3-1.2 { | |
| 56 hexio_get_int [hexio_read test.db 16 2] | |
| 57 } 1024 ;# The page size is 1024 | |
| 58 do_test corrupt3-1.3 { | |
| 59 hexio_get_int [hexio_read test.db 20 1] | |
| 60 } 0 ;# Unused bytes per page is 0 | |
| 61 do_test corrupt3-1.4 { | |
| 62 hexio_get_int [hexio_read test.db 2044 4] | |
| 63 } 3 ;# Overflow page is 3 | |
| 64 do_test corrupt3-1.5 { | |
| 65 hexio_get_int [hexio_read test.db 2048 4] | |
| 66 } 0 ;# First chained overflow is 0 | |
| 67 | |
| 68 integrity_check corrupt3-1.6 | |
| 69 | |
| 70 # Make the overflow chain loop back on itself. See if the | |
| 71 # corruption is detected. (Actually, the last pointer in | |
| 72 # an overflow chain is ignored, so this is not an error.) | |
| 73 # | |
| 74 do_test corrupt3-1.7 { | |
| 75 db close | |
| 76 hexio_write test.db 2048 [hexio_render_int32 3] | |
| 77 sqlite3 db test.db | |
| 78 catchsql { | |
| 79 SELECT x FROM t1 | |
| 80 } | |
| 81 } [list 0 $bigstring] | |
| 82 integrity_check corrupt3-1.8 | |
| 83 | |
| 84 # Change the pointer for the first page of the overflow | |
| 85 # change to be a non-existant page. | |
| 86 # | |
| 87 do_test corrupt3-1.9 { | |
| 88 db close | |
| 89 hexio_write test.db 2044 [hexio_render_int32 4] | |
| 90 sqlite3 db test.db | |
| 91 catchsql { | |
| 92 SELECT substr(x,1,10) FROM t1 | |
| 93 } | |
| 94 } [list 0 0123456789] | |
| 95 do_test corrupt3-1.10 { | |
| 96 catchsql { | |
| 97 PRAGMA integrity_check | |
| 98 } | |
| 99 } {0 {{*** in database main *** | |
| 100 On tree page 2 cell 0: invalid page number 4 | |
| 101 Page 3 is never used}}} | |
| 102 do_test corrupt3-1.11 { | |
| 103 db close | |
| 104 hexio_write test.db 2044 [hexio_render_int32 0] | |
| 105 sqlite3 db test.db | |
| 106 catchsql { | |
| 107 SELECT substr(x,1,10) FROM t1 | |
| 108 } | |
| 109 } [list 1 {database disk image is malformed}] | |
| 110 do_test corrupt3-1.12 { | |
| 111 catchsql { | |
| 112 PRAGMA integrity_check | |
| 113 } | |
| 114 } {0 {{*** in database main *** | |
| 115 On tree page 2 cell 0: 1 of 1 pages missing from overflow list starting at 0 | |
| 116 Page 3 is never used}}} | |
| 117 | |
| 118 finish_test | |
| OLD | NEW |