wasCSharpSQLite – Blame information for rev
?pathlinks?
| Rev | Author | Line No. | Line |
|---|---|---|---|
| 1 | office | 1 | # 2007 May 24 |
| 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 | # This file is the driver for the "soak" tests. It is a peer of the |
||
| 12 | # quick.test and all.test scripts. |
||
| 13 | # |
||
| 14 | # $Id: soak.test,v 1.4 2008/11/13 18:29:51 shane Exp $ |
||
| 15 | |||
| 16 | set testdir [file dirname $argv0] |
||
| 17 | source $testdir/tester.tcl |
||
| 18 | rename finish_test really_finish_test |
||
| 19 | proc finish_test {} {} |
||
| 20 | |||
| 21 | # By default, guarantee that the tests will run for at least 1 hour. |
||
| 22 | # |
||
| 23 | set TIMEOUT 3600 |
||
| 24 | |||
| 25 | # Process command-line arguments. |
||
| 26 | # |
||
| 27 | if {[llength $argv]>0} { |
||
| 28 | foreach {name value} $argv { |
||
| 29 | switch -- $name { |
||
| 30 | -timeout { |
||
| 31 | set TIMEOUT $value |
||
| 32 | } |
||
| 33 | default { |
||
| 34 | puts stderr "Unknown option: $name" |
||
| 35 | exit |
||
| 36 | } |
||
| 37 | } |
||
| 38 | } |
||
| 39 | } |
||
| 40 | set argv [list] |
||
| 41 | |||
| 42 | # Test plan: |
||
| 43 | # |
||
| 44 | # The general principle is to run those SQLite tests that use |
||
| 45 | # pseudo-random data in some way over and over again for a very |
||
| 46 | # long time. The number of tests run depends on the value of |
||
| 47 | # global variable $TIMEOUT - tests are run for at least $TIMEOUT |
||
| 48 | # seconds. |
||
| 49 | # |
||
| 50 | # fuzz.test (pseudo-random SQL statements) |
||
| 51 | # trans.test (pseudo-random changes to a database followed by rollbacks) |
||
| 52 | # fuzz_malloc.test |
||
| 53 | # corruptC.test (pseudo-random corruption to a database) |
||
| 54 | # |
||
| 55 | # Many database changes maintaining some kind of invariant. |
||
| 56 | # Storing checksums etc. |
||
| 57 | # |
||
| 58 | |||
| 59 | # List of test files that are run by this file. |
||
| 60 | # |
||
| 61 | set SOAKTESTS { |
||
| 62 | fuzz.test |
||
| 63 | fuzz_malloc.test |
||
| 64 | trans.test |
||
| 65 | corruptC.test |
||
| 66 | } |
||
| 67 | |||
| 68 | set G(isquick) 1 |
||
| 69 | |||
| 70 | set soak_starttime [clock seconds] |
||
| 71 | set soak_finishtime [expr {$soak_starttime + $TIMEOUT}] |
||
| 72 | |||
| 73 | # Loop until the timeout is reached or an error occurs. |
||
| 74 | # |
||
| 75 | for {set iRun 0} {[clock seconds] < $soak_finishtime} {incr iRun} { |
||
| 76 | |||
| 77 | set iIdx [expr {$iRun % [llength $SOAKTESTS]}] |
||
| 78 | source [file join $testdir [lindex $SOAKTESTS $iIdx]] |
||
| 79 | catch {db close} |
||
| 80 | |||
| 81 | if {$sqlite_open_file_count>0} { |
||
| 82 | puts "$tail did not close all files: $sqlite_open_file_count" |
||
| 83 | fail_test $tail |
||
| 84 | set sqlite_open_file_count 0 |
||
| 85 | } |
||
| 86 | |||
| 87 | if {[set_test_counter errors]>0} break |
||
| 88 | } |
||
| 89 | |||
| 90 | really_finish_test |