Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
Comment: | Work around buggy TCL implementations in the exclusive2 test file. Ticket #2287 (CVS 3827) |
---|---|
Downloads: | Tarball | ZIP archive |
Timelines: | family | ancestors | descendants | both | trunk |
Files: | files | file ages | folders |
SHA1: |
5424fcc5f82e864e0a85a71e0ae39209 |
User & Date: | drh 2007-04-08 16:52:22.000 |
Context
2007-04-09
| ||
11:20 | Have the pager call xReiniter() instead of xDestructor() to restore btree level state after rolling back a page. (CVS 3828) (check-in: 4e8941333e user: danielk1977 tags: trunk) | |
2007-04-08
| ||
16:52 | Work around buggy TCL implementations in the exclusive2 test file. Ticket #2287 (CVS 3827) (check-in: 5424fcc5f8 user: drh tags: trunk) | |
2007-04-07
| ||
17:44 | Make sure autovacuum is turned off for malloc5.test. (CVS 3826) (check-in: 105a7efb09 user: drh tags: trunk) | |
Changes
Changes to test/exclusive2.test.
1 2 3 4 5 6 7 8 9 10 11 12 | # 2007 March 24 # # 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. # | | | | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 | # 2007 March 24 # # 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. # # $Id: exclusive2.test,v 1.3 2007/04/08 16:52:22 drh Exp $ set testdir [file dirname $argv0] source $testdir/tester.tcl ifcapable {!pager_pragmas} { finish_test return } proc pagerChangeCounter {filename {new ""}} { set fd [open $filename RDWR] fconfigure $fd -translation binary -encoding binary if {$new ne ""} { seek $fd 24 set a [expr {($new&0xFF000000)>>24}] set b [expr {($new&0x00FF0000)>>16}] set c [expr {($new&0x0000FF00)>>8}] set d [expr {($new&0x000000FF)}] |
︙ | ︙ | |||
151 152 153 154 155 156 157 | pagerChangeCounter test.db } {3} do_test exclusive2-2.3 { t1sig } $::sig do_test exclusive2-2.4 { | | | 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 | pagerChangeCounter test.db } {3} do_test exclusive2-2.3 { t1sig } $::sig do_test exclusive2-2.4 { set fd [open test.db RDWR] seek $fd 1024 puts -nonewline $fd [string repeat [binary format c 0] 10000] flush $fd t1sig } $::sig do_test exclusive2-2.5 { |
︙ | ︙ | |||
237 238 239 240 241 242 243 | execsql { INSERT INTO t1 VALUES(randstr(10, 400)); } pagerChangeCounter test.db } {5} finish_test | < | 237 238 239 240 241 242 243 | execsql { INSERT INTO t1 VALUES(randstr(10, 400)); } pagerChangeCounter test.db } {5} finish_test |