wasCSharpSQLite – Blame information for rev 7
?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 |