Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
Comment: | Change the way test script incrvacuum3.test copies database files in order to avoid trying to read the (locked) 512 byte 'pending-byte' region. |
---|---|
Downloads: | Tarball | ZIP archive |
Timelines: | family | ancestors | descendants | both | trunk |
Files: | files | file ages | folders |
SHA1: |
fa1842e462049b1366909fe36d6d81b6 |
User & Date: | dan 2013-02-26 06:14:27.544 |
Context
2013-02-26
| ||
12:57 | When comparing names during name resolution, make sure the names match exactly and that one name isn't merely a prefix of the other. Fix for ticket [7a31705a7e6c95d51]. (check-in: c2d5a23b1a user: drh tags: trunk) | |
06:14 | Change the way test script incrvacuum3.test copies database files in order to avoid trying to read the (locked) 512 byte 'pending-byte' region. (check-in: fa1842e462 user: dan tags: trunk) | |
05:42 | Remove extra use of the sqlite3_value_int64() function. (check-in: 6d7973524a user: mistachkin tags: trunk) | |
Changes
Changes to test/incrvacuum3.test.
︙ | ︙ | |||
30 31 32 33 34 35 36 | ifcapable {!autovacuum || !pragma} { finish_test return } proc check_on_disk {} { | | < > > > > > > > > > > > > > > > > > | 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 | ifcapable {!autovacuum || !pragma} { finish_test return } proc check_on_disk {} { # Copy the wal and journal files for database "test.db" to "test2.db". forcedelete test2.db test2.db-journal test2.db-wal if {[file exists test.db-journal]} { forcecopy test.db-journal test2.db-journal } if {[file exists test.db-wal]} { forcecopy test.db-wal test2.db-wal } # Now copy the database file itself. Do this using open/read/puts # instead of the [file copy] command in order to avoid attempting # to read the 512 bytes begining at offset $sqlite_pending_byte. # set sz [file size test.db] set fd [open test.db] set fd2 [open test2.db w] fconfigure $fd -encoding binary -translation binary fconfigure $fd2 -encoding binary -translation binary if {$sz>$::sqlite_pending_byte} { puts -nonewline $fd2 [read $fd $::sqlite_pending_byte] seek $fd [expr $::sqlite_pending_byte+512] seek $fd2 [expr $::sqlite_pending_byte+512] } puts -nonewline $fd2 [read $fd] close $fd2 # Open "test2.db" and check it is Ok. sqlite3 dbcheck test2.db set ret [dbcheck eval { PRAGMA integrity_check }] dbcheck close set ret } |
︙ | ︙ |