third_party/sqlite/sqlite-src-3080704/test/corrupt8.test - Issue 2363173002: [sqlite] Remove obsolete reference version 3.8.7.4.

Side by Side Diff: third_party/sqlite/sqlite-src-3080704/test/corrupt8.test

Issue 2363173002: [sqlite] Remove obsolete reference version 3.8.7.4. (Closed)

Patch Set: Created 4 years, 2 months ago

Use n/p to move between diff chunks; N/P to move between comments. Draft comments are only viewable by you.

Jump to:

OLD	NEW
	(Empty)
1 # 2008 July 9

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. It specifically focuses

15 # on corrupt pointer map pages.

16 #

17 # $Id: corrupt8.test,v 1.2 2008/07/11 03:34:10 drh Exp $

18

19 set testdir [file dirname $argv0]

20 source $testdir/tester.tcl

21

22 # Do not use a codec for tests in this file, as the database file is

23 # manipulated directly using tcl scripts (using the [hexio_write] command).

24 #

25 do_not_use_codec

26

27 # These tests deal with corrupt database files

28 #

29 database_may_be_corrupt

30

31 # We must have the page_size pragma for these tests to work.

32 #

33 ifcapable !pager_pragmas\|\|!autovacuum {

34 finish_test

35 return

36 }

37

38 # Create a database to work with.

39 #

40 do_test corrupt8-1.1 {

41 execsql {

42 PRAGMA auto_vacuum=1;

43 PRAGMA page_size=1024;

44 CREATE TABLE t1(x);

45 INSERT INTO t1(x) VALUES(1);

46 INSERT INTO t1(x) VALUES(2);

47 INSERT INTO t1(x) SELECT x+2 FROM t1;

48 INSERT INTO t1(x) SELECT x+4 FROM t1;

49 INSERT INTO t1(x) SELECT x+8 FROM t1;

50 INSERT INTO t1(x) SELECT x+16 FROM t1;

51 INSERT INTO t1(x) SELECT x+32 FROM t1;

52 INSERT INTO t1(x) SELECT x+64 FROM t1;

53 INSERT INTO t1(x) SELECT x+128 FROM t1;

54 INSERT INTO t1(x) SELECT x+256 FROM t1;

55 CREATE TABLE t2(a,b);

56 INSERT INTO t2 SELECT x, x*x FROM t1;

57 }

58 expr {[file size test.db]>1024*12}

59 } {1}

60 integrity_check corrupt8-1.2

61

62 # Loop through each ptrmap entry. Corrupt the entry and make sure the

63 # corruption is detected by the integrity_check.

64 #

65 for {set i 1024} {$i<2048} {incr i 5} {

66 set oldval [hexio_read test.db $i 1]

67 if {$oldval==0} break

68 hexio_write test.db $i 00

69 do_test corrupt8-2.$i.0 {

70 db close

71 sqlite3 db test.db

72 set x [db eval {PRAGMA integrity_check}]

73 expr {$x!="ok"}

74 } {1}

75 for {set k 1} {$k<=5} {incr k} {

76 if {$k==$oldval} continue

77 hexio_write test.db $i 0$k

78 do_test corrupt8-2.$i.$k {

79 db close

80 sqlite3 db test.db

81 set x [db eval {PRAGMA integrity_check}]

82 expr {$x!="ok"}

83 } {1}

84 }

85 hexio_write test.db $i 06

86 do_test corrupt8-2.$i.6 {

87 db close

88 sqlite3 db test.db

89 set x [db eval {PRAGMA integrity_check}]

90 expr {$x!="ok"}

91 } {1}

92 hexio_write test.db $i $oldval

93 if {$oldval>2} {

94 set i2 [expr {$i+1+$i%4}]

95 set oldval [hexio_read test.db $i2 1]

96 hexio_write test.db $i2 [format %02x [expr {($oldval+1)&0xff}]]

97 do_test corrupt8-2.$i.7 {

98 db close

99 sqlite3 db test.db

100 set x [db eval {PRAGMA integrity_check}]

101 expr {$x!="ok"}

102 } {1}

103 hexio_write test.db $i2 $oldval

104 }

105 }

106

107

108 finish_test

OLD	NEW