1# 2022 October 14
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#
12
13source [file join [file dirname [info script]] recover_common.tcl]
14
15db close
16sqlite3_test_control_pending_byte 0x1000000
17
18set testprefix recoverpgsz
19
20foreach {pgsz bOverflow} {
21  512 0 1024 0 2048 0 4096 0 8192 0 16384 0 32768 0 65536 0
22  512 1 1024 1 2048 1 4096 1 8192 1 16384 1 32768 1 65536 1
23} {
24  reset_db
25  execsql "PRAGMA page_size = $pgsz"
26  execsql "PRAGMA auto_vacuum = 0"
27  do_execsql_test 1.$pgsz.$bOverflow.1 {
28    CREATE TABLE t1(a, b, c);
29    CREATE INDEX i1 ON t1(b, a, c);
30    INSERT INTO t1(a, b) VALUES(1, 2), (3, 4), (5, 6);
31    DELETE FROM t1 WHERE a=3;
32  }
33  if {$bOverflow} {
34    do_execsql_test 1.$pgsz.$bOverflow.1a {
35      UPDATE t1 SET c = randomblob(100000);
36    }
37  }
38  db close
39
40
41  set fd [open test.db]
42  fconfigure $fd -encoding binary -translation binary
43  seek $fd $pgsz
44  set pg1 [read $fd $pgsz]
45  set pg2 [read $fd $pgsz]
46  close $fd
47
48  set fd2 [open test.db2 w]
49  fconfigure $fd2 -encoding binary -translation binary
50  seek $fd2 $pgsz
51  puts -nonewline $fd2 $pg1
52  close $fd2
53
54  sqlite3 db2 test.db2
55  do_test 1.$pgsz.$bOverflow.2 {
56    set R [sqlite3_recover_init db2 main test.db3]
57    $R run
58    $R finish
59  } {}
60
61  sqlite3 db3 test.db3
62  do_test 1.$pgsz.$bOverflow.3 {
63    db3 eval { SELECT * FROM sqlite_schema }
64    db3 eval { PRAGMA page_size }
65  } $pgsz
66
67  db2 close
68  db3 close
69
70  forcedelete test.db3
71  forcedelete test.db2
72
73  set fd2 [open test.db2 w]
74  fconfigure $fd2 -encoding binary -translation binary
75  seek $fd2 $pgsz
76  puts -nonewline $fd2 $pg2
77  close $fd2
78
79  sqlite3 db2 test.db2
80  do_test 1.$pgsz.$bOverflow.4 {
81    set R [sqlite3_recover_init db2 main test.db3]
82    $R run
83    $R finish
84  } {}
85
86  sqlite3 db3 test.db3
87  do_test 1.$pgsz.$bOverflow.5 {
88    db3 eval { SELECT * FROM sqlite_schema }
89    db3 eval { PRAGMA page_size }
90  } $pgsz
91
92  db2 close
93  db3 close
94}
95
96
97finish_test
98
99
100
101