Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
Comment: | Run some malloc() tests with exclusive-access mode. (CVS 3720) |
---|---|
Downloads: | Tarball | ZIP archive |
Timelines: | family | ancestors | descendants | both | trunk |
Files: | files | file ages | folders |
SHA1: |
9ebba469023723652c4dbba3d9982a64 |
User & Date: | danielk1977 2007-03-26 16:13:59.000 |
Context
2007-03-26
| ||
16:30 | Set the same random seed for the speed tests. (CVS 3721) (check-in: 8fe3170549 user: drh tags: trunk) | |
16:13 | Run some malloc() tests with exclusive-access mode. (CVS 3720) (check-in: 9ebba46902 user: danielk1977 tags: trunk) | |
15:46 | Discard the pager-cache when the page-size is changed. (CVS 3719) (check-in: e4209f7193 user: danielk1977 tags: trunk) | |
Changes
Added test/exclusive3.test.
> > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > | 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 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 | # 2001 September 15 # # 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 runs the tests in the file ioerr.test with auto-vacuum enabled # databases. # # $Id: exclusive3.test,v 1.1 2007/03/26 16:13:59 danielk1977 Exp $ set testdir [file dirname $argv0] source $testdir/tester.tcl ifcapable {!pager_pragmas} { finish_test return } rename finish_test really_finish_test2 proc finish_test {} {} set ISQUICK 1 rename sqlite3 real_sqlite3 proc sqlite3 {args} { set r [eval "real_sqlite3 $args"] if { [llength $args] == 2 } { [lindex $args 0] eval {pragma locking_mode = exclusive} } set r } rename do_test really_do_test proc do_test {args} { set sc [concat really_do_test "exclusive-[lindex $args 0]" \ [lrange $args 1 end]] eval $sc } #source $testdir/rollback.test #source $testdir/select1.test #source $testdir/select2.test source $testdir/malloc.test #source $testdir/ioerr.test rename sqlite3 "" rename real_sqlite3 sqlite3 rename finish_test "" rename really_finish_test2 finish_test rename do_test "" rename really_do_test do_test finish_test |