Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
Comment: | Fix test script issues preventing walthread.test from running. |
---|---|
Downloads: | Tarball | ZIP archive |
Timelines: | family | ancestors | descendants | both | wal |
Files: | files | file ages | folders |
SHA1: |
d90b1dde0702ceb0eae2a3da36733a7e |
User & Date: | dan 2010-04-13 11:35:01.000 |
Context
2010-04-13
| ||
11:45 | Fix other problems in the WAL test scripts. (check-in: dcb31181db user: dan tags: wal) | |
11:35 | Fix test script issues preventing walthread.test from running. (check-in: d90b1dde07 user: dan tags: wal) | |
11:18 | Fix a pager bug introduced by the wal code. (check-in: 4a0b29dc5e user: dan tags: wal) | |
Changes
Changes to test/tester.tcl.
︙ | ︙ | |||
139 140 141 142 143 144 145 146 147 148 149 150 151 152 | } } proc reset_db {} { catch {db close} file delete -force test.db file delete -force test.db-journal sqlite3 db ./test.db set ::DB [sqlite3_connection_pointer db] if {[info exists ::SETUP_SQL]} { db eval $::SETUP_SQL } } reset_db | > | 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 | } } proc reset_db {} { catch {db close} file delete -force test.db file delete -force test.db-journal file delete -force test.db-wal sqlite3 db ./test.db set ::DB [sqlite3_connection_pointer db] if {[info exists ::SETUP_SQL]} { db eval $::SETUP_SQL } } reset_db |
︙ | ︙ |
Changes to test/thread_common.tcl.
︙ | ︙ | |||
76 77 78 79 80 81 82 | if {$res ne $result} { error "$name failed: expected \"$result\" got \"$res\"" } } } proc thread_spawn {varname args} { | | | 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 | if {$res ne $result} { error "$name failed: expected \"$result\" got \"$res\"" } } } proc thread_spawn {varname args} { sqlthread spawn $varname [join $args {;}] } # Return true if this build can run the multi-threaded tests. # proc run_thread_tests {{print_warning 0}} { ifcapable !mutex { set zProblem "SQLite build is not threadsafe" |
︙ | ︙ |
Changes to test/wal.test.
1 2 3 4 5 6 7 | set testdir [file dirname $argv0] source $testdir/tester.tcl proc range {args} { set ret [list] foreach {start end} $args { | > > > > > > > > > > > > > > | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 | # 2010 April 13 # # 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. The # focus of this file is testing the operation of the library in # "PRAGMA journal_mode=WAL" mode. # set testdir [file dirname $argv0] source $testdir/tester.tcl proc range {args} { set ret [list] foreach {start end} $args { |
︙ | ︙ |
Changes to test/walcrash.test.
1 2 3 4 5 6 7 8 9 10 | # 2010 February 8 # # 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. # #*********************************************************************** | | > > > | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 | # 2010 February 8 # # 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. The # focus of this file is testing the operation of the library when # recovering a database following a simulated system failure in # "PRAGMA journal_mode=WAL" mode. # # # These are 'warm-body' tests of database recovery used while developing # the WAL code. They serve to prove that a few really simple cases work: # # walcrash-1.*: Recover a database. |
︙ | ︙ |
Changes to test/walslow.test.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 | # 2010 March 17 # # 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. # #*********************************************************************** # set testdir [file dirname $argv0] source $testdir/tester.tcl proc reopen_db {} { catch { db close } | > > > > | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 | # 2010 March 17 # # 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. The # focus of this file is testing the operation of the library in # "PRAGMA journal_mode=WAL" mode. The tests in this file use # brute force methods, so may take a while to run. # set testdir [file dirname $argv0] source $testdir/tester.tcl proc reopen_db {} { catch { db close } |
︙ | ︙ |
Changes to test/walthread.test.
|
| | > > > | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 | # 2010 April 13 # # 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. The # focus of this file is testing the operation of the library in # "PRAGMA journal_mode=WAL" mode. # set testdir [file dirname $argv0] source $testdir/tester.tcl if {[run_thread_tests]==0} { finish_test ; return } |
︙ | ︙ | |||
136 137 138 139 140 141 142 143 144 145 146 147 148 149 | } set ::finished 0 after [expr $seconds*1000] {set ::finished 1} set ::DB [sqlthread open test.db] dosql $::DB { PRAGMA journal_mode = WAL } set rc [catch { if {$role eq "worker"} { worker $DB $N } if {$role eq "checkpointer"} { checkpointer $DB } } msg] sqlite3_close $::DB | > | 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 | } set ::finished 0 after [expr $seconds*1000] {set ::finished 1} set ::DB [sqlthread open test.db] dosql $::DB { PRAGMA journal_mode = WAL } set rc [catch { if {$role eq "worker"} { worker $DB $N } if {$role eq "checkpointer"} { checkpointer $DB } } msg] sqlite3_close $::DB |
︙ | ︙ |