danielk1977 | 1077e3f | 2008-06-21 18:07:37 +0000 | [diff] [blame] | 1 | # 2008 June 21 |
| 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 | # |
danielk1977 | 1077e3f | 2008-06-21 18:07:37 +0000 | [diff] [blame] | 12 | |
| 13 | set testdir [file dirname $argv0] |
| 14 | source $testdir/tester.tcl |
dan | 13a3cb8 | 2010-06-11 19:04:21 +0000 | [diff] [blame] | 15 | db close |
danielk1977 | 1077e3f | 2008-06-21 18:07:37 +0000 | [diff] [blame] | 16 | |
dan | 0626dfc | 2010-06-15 06:56:37 +0000 | [diff] [blame] | 17 | #------------------------------------------------------------------------- |
| 18 | # test_suite NAME OPTIONS |
danielk1977 | 1077e3f | 2008-06-21 18:07:37 +0000 | [diff] [blame] | 19 | # |
| 20 | # where available options are: |
| 21 | # |
dan | 430e74c | 2010-06-07 17:47:26 +0000 | [diff] [blame] | 22 | # -description TITLE (default "") |
danielk1977 | 1077e3f | 2008-06-21 18:07:37 +0000 | [diff] [blame] | 23 | # -initialize SCRIPT (default "") |
| 24 | # -shutdown SCRIPT (default "") |
danielk1977 | 1077e3f | 2008-06-21 18:07:37 +0000 | [diff] [blame] | 25 | # -presql SQL (default "") |
dan | 0626dfc | 2010-06-15 06:56:37 +0000 | [diff] [blame] | 26 | # -files LIST-OF-FILES (default $::ALLTESTS) |
dan | 2fce9ab | 2010-06-15 18:00:06 +0000 | [diff] [blame] | 27 | # -prefix NAME (default "$::NAME.") |
dan | 1ce1b4a | 2010-12-07 14:32:28 +0000 | [diff] [blame] | 28 | # -dbconfig SCRIPT (default "") |
dan | 0626dfc | 2010-06-15 06:56:37 +0000 | [diff] [blame] | 29 | # |
| 30 | proc test_suite {name args} { |
dan | 430e74c | 2010-06-07 17:47:26 +0000 | [diff] [blame] | 31 | |
dan | 0626dfc | 2010-06-15 06:56:37 +0000 | [diff] [blame] | 32 | set default(-shutdown) "" |
| 33 | set default(-initialize) "" |
| 34 | set default(-presql) "" |
dan | 430e74c | 2010-06-07 17:47:26 +0000 | [diff] [blame] | 35 | set default(-description) "no description supplied (fixme)" |
dan | 2fce9ab | 2010-06-15 18:00:06 +0000 | [diff] [blame] | 36 | set default(-files) "" |
| 37 | set default(-prefix) "${name}." |
dan | 1ce1b4a | 2010-12-07 14:32:28 +0000 | [diff] [blame] | 38 | set default(-dbconfig) "" |
dan | 430e74c | 2010-06-07 17:47:26 +0000 | [diff] [blame] | 39 | |
| 40 | array set options [array get default] |
dan | 0626dfc | 2010-06-15 06:56:37 +0000 | [diff] [blame] | 41 | if {[llength $args]%2} { |
| 42 | error "uneven number of options/switches passed to test_suite" |
dan | 430e74c | 2010-06-07 17:47:26 +0000 | [diff] [blame] | 43 | } |
dan | 0626dfc | 2010-06-15 06:56:37 +0000 | [diff] [blame] | 44 | foreach {k v} $args { |
| 45 | set o [array names options ${k}*] |
| 46 | if {[llength $o]>1} { error "ambiguous option: $k" } |
| 47 | if {[llength $o]==0} { error "unknown option: $k" } |
| 48 | set options([lindex $o 0]) $v |
drh | 0a846f9 | 2008-08-25 17:23:29 +0000 | [diff] [blame] | 49 | } |
danielk1977 | 1077e3f | 2008-06-21 18:07:37 +0000 | [diff] [blame] | 50 | |
dan | 0626dfc | 2010-06-15 06:56:37 +0000 | [diff] [blame] | 51 | set ::testspec($name) [array get options] |
| 52 | lappend ::testsuitelist $name |
| 53 | } |
dan | 430e74c | 2010-06-07 17:47:26 +0000 | [diff] [blame] | 54 | |
dan | 0626dfc | 2010-06-15 06:56:37 +0000 | [diff] [blame] | 55 | #------------------------------------------------------------------------- |
| 56 | # test_set ARGS... |
| 57 | # |
| 58 | proc test_set {args} { |
| 59 | set isExclude 0 |
| 60 | foreach a $args { |
| 61 | if {[string match -* $a]} { |
| 62 | switch -- $a { |
| 63 | -include { set isExclude 0 } |
| 64 | -exclude { set isExclude 1 } |
| 65 | default { |
| 66 | error "Unknown switch: $a" |
| 67 | } |
danielk1977 | c1def3e | 2008-08-30 13:25:10 +0000 | [diff] [blame] | 68 | } |
dan | 0626dfc | 2010-06-15 06:56:37 +0000 | [diff] [blame] | 69 | } elseif {$isExclude == 0} { |
| 70 | foreach f $a { set t($f) 1 } |
drh | 0a846f9 | 2008-08-25 17:23:29 +0000 | [diff] [blame] | 71 | } else { |
dan | 0626dfc | 2010-06-15 06:56:37 +0000 | [diff] [blame] | 72 | foreach f $a { array unset t $f } |
dan | 897230e | 2010-08-26 14:15:37 +0000 | [diff] [blame] | 73 | foreach f $a { array unset t */$f } |
danielk1977 | 1077e3f | 2008-06-21 18:07:37 +0000 | [diff] [blame] | 74 | } |
| 75 | } |
| 76 | |
dan | 0626dfc | 2010-06-15 06:56:37 +0000 | [diff] [blame] | 77 | return [array names t] |
danielk1977 | 1077e3f | 2008-06-21 18:07:37 +0000 | [diff] [blame] | 78 | } |
| 79 | |
dan | 0626dfc | 2010-06-15 06:56:37 +0000 | [diff] [blame] | 80 | #------------------------------------------------------------------------- |
| 81 | # Set up the following global list variables containing the names of |
| 82 | # various test scripts: |
| 83 | # |
| 84 | # $alltests |
dan | 2fce9ab | 2010-06-15 18:00:06 +0000 | [diff] [blame] | 85 | # $allquicktests |
dan | 0626dfc | 2010-06-15 06:56:37 +0000 | [diff] [blame] | 86 | # |
dan | 0626dfc | 2010-06-15 06:56:37 +0000 | [diff] [blame] | 87 | set alltests [list] |
| 88 | foreach f [glob $testdir/*.test] { lappend alltests [file tail $f] } |
dan | 897230e | 2010-08-26 14:15:37 +0000 | [diff] [blame] | 89 | foreach f [glob -nocomplain $testdir/../ext/rtree/*.test] { |
| 90 | lappend alltests $f |
| 91 | } |
| 92 | |
dan | 0626dfc | 2010-06-15 06:56:37 +0000 | [diff] [blame] | 93 | if {$::tcl_platform(platform)!="unix"} { |
| 94 | set alltests [test_set $alltests -exclude crash.test crash2.test] |
danielk1977 | c1def3e | 2008-08-30 13:25:10 +0000 | [diff] [blame] | 95 | } |
dan | 0626dfc | 2010-06-15 06:56:37 +0000 | [diff] [blame] | 96 | set alltests [test_set $alltests -exclude { |
| 97 | all.test async.test quick.test veryquick.test |
| 98 | memleak.test permutations.test soak.test fts3.test |
dan | fa2a477 | 2010-09-14 10:53:45 +0000 | [diff] [blame] | 99 | mallocAll.test rtree.test |
dan | 0626dfc | 2010-06-15 06:56:37 +0000 | [diff] [blame] | 100 | }] |
| 101 | |
| 102 | set allquicktests [test_set $alltests -exclude { |
| 103 | async2.test async3.test backup_ioerr.test corrupt.test |
| 104 | corruptC.test crash.test crash2.test crash3.test crash4.test crash5.test |
| 105 | crash6.test crash7.test delete3.test e_fts3.test fts3rnd.test |
| 106 | fkey_malloc.test fuzz.test fuzz3.test fuzz_malloc.test in2.test loadext.test |
dan | 273f3f0 | 2010-06-26 15:42:33 +0000 | [diff] [blame] | 107 | misc7.test mutex2.test notify2.test onefile.test pagerfault2.test |
dan | 0626dfc | 2010-06-15 06:56:37 +0000 | [diff] [blame] | 108 | savepoint4.test savepoint6.test select9.test |
| 109 | speed1.test speed1p.test speed2.test speed3.test speed4.test |
| 110 | speed4p.test sqllimits1.test tkt2686.test thread001.test thread002.test |
| 111 | thread003.test thread004.test thread005.test trans2.test vacuum3.test |
| 112 | incrvacuum_ioerr.test autovacuum_crash.test btree8.test shared_err.test |
| 113 | vtab_err.test walslow.test walcrash.test |
dan | 897230e | 2010-08-26 14:15:37 +0000 | [diff] [blame] | 114 | walthread.test rtree3.test |
dan | 0626dfc | 2010-06-15 06:56:37 +0000 | [diff] [blame] | 115 | }] |
dan | 6310990 | 2010-07-05 05:54:55 +0000 | [diff] [blame] | 116 | if {[info exists ::env(QUICKTEST_INCLUDE)]} { |
| 117 | set allquicktests [concat $allquicktests $::env(QUICKTEST_INCLUDE)] |
| 118 | } |
danielk1977 | c1def3e | 2008-08-30 13:25:10 +0000 | [diff] [blame] | 119 | |
danielk1977 | 1077e3f | 2008-06-21 18:07:37 +0000 | [diff] [blame] | 120 | ############################################################################# |
| 121 | # Start of tests |
dan | 0626dfc | 2010-06-15 06:56:37 +0000 | [diff] [blame] | 122 | # |
| 123 | |
| 124 | #------------------------------------------------------------------------- |
| 125 | # Define the generic test suites: |
| 126 | # |
| 127 | # veryquick |
| 128 | # quick |
| 129 | # full |
dan | 0626dfc | 2010-06-15 06:56:37 +0000 | [diff] [blame] | 130 | # |
dan | e91a54e | 2010-06-15 17:44:47 +0000 | [diff] [blame] | 131 | lappend ::testsuitelist xxx |
dan | 0626dfc | 2010-06-15 06:56:37 +0000 | [diff] [blame] | 132 | |
dan | 2fce9ab | 2010-06-15 18:00:06 +0000 | [diff] [blame] | 133 | test_suite "veryquick" -prefix "" -description { |
dan | 0626dfc | 2010-06-15 06:56:37 +0000 | [diff] [blame] | 134 | "Very" quick test suite. Runs in less than 5 minutes on a workstation. |
| 135 | This test suite is the same as the "quick" tests, except that some files |
| 136 | that test malloc and IO errors are omitted. |
| 137 | } -files [ |
dan | 763afe6 | 2010-08-03 06:42:39 +0000 | [diff] [blame] | 138 | test_set $allquicktests -exclude *malloc* *ioerr* *fault* |
dan | 0626dfc | 2010-06-15 06:56:37 +0000 | [diff] [blame] | 139 | ] |
| 140 | |
dan | 2556844 | 2010-12-03 10:32:06 +0000 | [diff] [blame] | 141 | test_suite "valgrind" -prefix "" -description { |
| 142 | Run the "veryquick" test suite with a couple of multi-process tests (that |
| 143 | fail under valgrind) omitted. |
| 144 | } -files [ |
| 145 | test_set $allquicktests -exclude *malloc* *ioerr* *fault* |
| 146 | ] -initialize { |
| 147 | set ::G(valgrind) 1 |
| 148 | } -shutdown { |
| 149 | unset -nocomplain ::G(valgrind) |
| 150 | } |
| 151 | |
dan | 2fce9ab | 2010-06-15 18:00:06 +0000 | [diff] [blame] | 152 | test_suite "quick" -prefix "" -description { |
dan | 0626dfc | 2010-06-15 06:56:37 +0000 | [diff] [blame] | 153 | Quick test suite. Runs in around 10 minutes on a workstation. |
| 154 | } -files [ |
| 155 | test_set $allquicktests |
| 156 | ] |
| 157 | |
dan | 2fce9ab | 2010-06-15 18:00:06 +0000 | [diff] [blame] | 158 | test_suite "full" -prefix "" -description { |
dan | 0626dfc | 2010-06-15 06:56:37 +0000 | [diff] [blame] | 159 | Full test suite. Takes a long time. |
| 160 | } -files [ |
| 161 | test_set $alltests |
| 162 | ] -initialize { |
| 163 | unset -nocomplain ::G(isquick) |
| 164 | } |
| 165 | |
dan | ea5542d | 2010-07-06 11:26:15 +0000 | [diff] [blame] | 166 | test_suite "threads" -prefix "" -description { |
| 167 | All multi-threaded tests. |
| 168 | } -files { |
| 169 | notify2.test thread001.test thread002.test thread003.test |
| 170 | thread004.test thread005.test walthread.test |
| 171 | } |
| 172 | |
dan | a69f7d5 | 2010-07-19 11:16:36 +0000 | [diff] [blame] | 173 | test_suite "fts3" -prefix "" -description { |
dan | ddf80eb | 2010-10-25 12:47:43 +0000 | [diff] [blame] | 174 | All FTS3 tests except fts3rnd.test. |
dan | a69f7d5 | 2010-07-19 11:16:36 +0000 | [diff] [blame] | 175 | } -files { |
| 176 | fts3aa.test fts3ab.test fts3ac.test fts3ad.test fts3ae.test |
| 177 | fts3af.test fts3ag.test fts3ah.test fts3ai.test fts3aj.test |
| 178 | fts3ak.test fts3al.test fts3am.test fts3an.test fts3ao.test |
| 179 | fts3atoken.test fts3b.test fts3c.test fts3cov.test fts3d.test |
dan | ddf80eb | 2010-10-25 12:47:43 +0000 | [diff] [blame] | 180 | fts3defer.test fts3defer2.test fts3e.test fts3expr.test fts3expr2.test |
| 181 | fts3near.test fts3query.test fts3shared.test fts3snippet.test |
dan | e414854 | 2011-06-02 19:57:24 +0000 | [diff] [blame] | 182 | fts3sort.test |
dan | ddf80eb | 2010-10-25 12:47:43 +0000 | [diff] [blame] | 183 | |
dan | af4c214 | 2010-11-02 17:41:52 +0000 | [diff] [blame] | 184 | fts3fault.test fts3malloc.test fts3matchinfo.test |
dan | a240fd0 | 2011-02-01 16:34:32 +0000 | [diff] [blame] | 185 | |
dan | 2cf1a1d | 2011-06-14 09:00:27 +0000 | [diff] [blame^] | 186 | fts3aux1.test fts3comp1.test fts3auto.test |
dan | a69f7d5 | 2010-07-19 11:16:36 +0000 | [diff] [blame] | 187 | } |
| 188 | |
dan | ea5542d | 2010-07-06 11:26:15 +0000 | [diff] [blame] | 189 | |
dan | e91a54e | 2010-06-15 17:44:47 +0000 | [diff] [blame] | 190 | lappend ::testsuitelist xxx |
dan | 0626dfc | 2010-06-15 06:56:37 +0000 | [diff] [blame] | 191 | #------------------------------------------------------------------------- |
| 192 | # Define the coverage related test suites: |
| 193 | # |
| 194 | # coverage-wal |
dan | 0626dfc | 2010-06-15 06:56:37 +0000 | [diff] [blame] | 195 | # |
| 196 | test_suite "coverage-wal" -description { |
| 197 | Coverage tests for file wal.c. |
| 198 | } -files { |
dan | f43d7fc | 2010-07-03 10:00:00 +0000 | [diff] [blame] | 199 | wal.test wal2.test wal3.test walmode.test |
| 200 | walbak.test walhook.test walcrash2.test walcksum.test |
dan | 8c40800 | 2010-11-01 17:38:24 +0000 | [diff] [blame] | 201 | walfault.test walbig.test walnoshm.test |
dan | 28f9b0b | 2011-02-07 16:24:39 +0000 | [diff] [blame] | 202 | wal5.test |
dan | 0626dfc | 2010-06-15 06:56:37 +0000 | [diff] [blame] | 203 | } |
| 204 | |
dan | e91a54e | 2010-06-15 17:44:47 +0000 | [diff] [blame] | 205 | test_suite "coverage-pager" -description { |
| 206 | Coverage tests for file pager.c. |
| 207 | } -files { |
dan | f43d7fc | 2010-07-03 10:00:00 +0000 | [diff] [blame] | 208 | pager1.test pager2.test pagerfault.test pagerfault2.test |
| 209 | walfault.test walbak.test journal2.test tkt-9d68c883.test |
dan | e91a54e | 2010-06-15 17:44:47 +0000 | [diff] [blame] | 210 | } |
dan | 0626dfc | 2010-06-15 06:56:37 +0000 | [diff] [blame] | 211 | |
| 212 | |
dan | e91a54e | 2010-06-15 17:44:47 +0000 | [diff] [blame] | 213 | lappend ::testsuitelist xxx |
dan | 0626dfc | 2010-06-15 06:56:37 +0000 | [diff] [blame] | 214 | #------------------------------------------------------------------------- |
| 215 | # Define the permutation test suites: |
| 216 | # |
danielk1977 | 1077e3f | 2008-06-21 18:07:37 +0000 | [diff] [blame] | 217 | |
| 218 | # Run some tests using pre-allocated page and scratch blocks. |
| 219 | # |
dan | 0626dfc | 2010-06-15 06:56:37 +0000 | [diff] [blame] | 220 | test_suite "memsubsys1" -description { |
danielk1977 | 1077e3f | 2008-06-21 18:07:37 +0000 | [diff] [blame] | 221 | Tests using pre-allocated page and scratch blocks |
dan | 0626dfc | 2010-06-15 06:56:37 +0000 | [diff] [blame] | 222 | } -files [ |
| 223 | test_set $::allquicktests -exclude ioerr5.test malloc5.test |
| 224 | ] -initialize { |
drh | d63bd75 | 2008-07-30 13:15:46 +0000 | [diff] [blame] | 225 | catch {db close} |
danielk1977 | 1077e3f | 2008-06-21 18:07:37 +0000 | [diff] [blame] | 226 | sqlite3_shutdown |
| 227 | sqlite3_config_pagecache 4096 24 |
| 228 | sqlite3_config_scratch 25000 1 |
| 229 | sqlite3_initialize |
drh | bb77b75 | 2009-04-09 01:23:49 +0000 | [diff] [blame] | 230 | autoinstall_test_functions |
danielk1977 | 1077e3f | 2008-06-21 18:07:37 +0000 | [diff] [blame] | 231 | } -shutdown { |
| 232 | catch {db close} |
| 233 | sqlite3_shutdown |
| 234 | sqlite3_config_pagecache 0 0 |
| 235 | sqlite3_config_scratch 0 0 |
| 236 | sqlite3_initialize |
drh | bb77b75 | 2009-04-09 01:23:49 +0000 | [diff] [blame] | 237 | autoinstall_test_functions |
danielk1977 | 1077e3f | 2008-06-21 18:07:37 +0000 | [diff] [blame] | 238 | } |
| 239 | |
| 240 | # Run some tests using pre-allocated page and scratch blocks. This time |
| 241 | # the allocations are too small to use in most cases. |
| 242 | # |
danielk1977 | 34c61e6 | 2008-08-29 12:00:20 +0000 | [diff] [blame] | 243 | # Both ioerr5.test and malloc5.test are excluded because they test the |
| 244 | # sqlite3_soft_heap_limit() and sqlite3_release_memory() functionality. |
| 245 | # This functionality is disabled if a pre-allocated page block is provided. |
| 246 | # |
dan | 0626dfc | 2010-06-15 06:56:37 +0000 | [diff] [blame] | 247 | test_suite "memsubsys2" -description { |
danielk1977 | 1077e3f | 2008-06-21 18:07:37 +0000 | [diff] [blame] | 248 | Tests using small pre-allocated page and scratch blocks |
dan | 0626dfc | 2010-06-15 06:56:37 +0000 | [diff] [blame] | 249 | } -files [ |
| 250 | test_set $::allquicktests -exclude ioerr5.test malloc5.test |
| 251 | ] -initialize { |
drh | d63bd75 | 2008-07-30 13:15:46 +0000 | [diff] [blame] | 252 | catch {db close} |
danielk1977 | 1077e3f | 2008-06-21 18:07:37 +0000 | [diff] [blame] | 253 | sqlite3_shutdown |
| 254 | sqlite3_config_pagecache 512 5 |
| 255 | sqlite3_config_scratch 1000 1 |
| 256 | sqlite3_initialize |
drh | bb77b75 | 2009-04-09 01:23:49 +0000 | [diff] [blame] | 257 | autoinstall_test_functions |
danielk1977 | 1077e3f | 2008-06-21 18:07:37 +0000 | [diff] [blame] | 258 | } -shutdown { |
| 259 | catch {db close} |
| 260 | sqlite3_shutdown |
| 261 | sqlite3_config_pagecache 0 0 |
| 262 | sqlite3_config_scratch 0 0 |
| 263 | sqlite3_initialize |
drh | bb77b75 | 2009-04-09 01:23:49 +0000 | [diff] [blame] | 264 | autoinstall_test_functions |
danielk1977 | 1077e3f | 2008-06-21 18:07:37 +0000 | [diff] [blame] | 265 | } |
| 266 | |
drh | e2a7c6e | 2008-08-01 15:06:30 +0000 | [diff] [blame] | 267 | # Run all tests with the lookaside allocator disabled. |
| 268 | # |
dan | 0626dfc | 2010-06-15 06:56:37 +0000 | [diff] [blame] | 269 | test_suite "nolookaside" -description { |
drh | e2a7c6e | 2008-08-01 15:06:30 +0000 | [diff] [blame] | 270 | OOM tests with lookaside disabled |
drh | e2a7c6e | 2008-08-01 15:06:30 +0000 | [diff] [blame] | 271 | } -initialize { |
| 272 | catch {db close} |
| 273 | sqlite3_shutdown |
| 274 | sqlite3_config_lookaside 0 0 |
| 275 | sqlite3_initialize |
drh | bb77b75 | 2009-04-09 01:23:49 +0000 | [diff] [blame] | 276 | autoinstall_test_functions |
drh | e2a7c6e | 2008-08-01 15:06:30 +0000 | [diff] [blame] | 277 | } -shutdown { |
| 278 | catch {db close} |
| 279 | sqlite3_shutdown |
| 280 | sqlite3_config_lookaside 100 500 |
| 281 | sqlite3_initialize |
drh | bb77b75 | 2009-04-09 01:23:49 +0000 | [diff] [blame] | 282 | autoinstall_test_functions |
dan | 0626dfc | 2010-06-15 06:56:37 +0000 | [diff] [blame] | 283 | } -files $::allquicktests |
drh | e2a7c6e | 2008-08-01 15:06:30 +0000 | [diff] [blame] | 284 | |
danielk1977 | 1077e3f | 2008-06-21 18:07:37 +0000 | [diff] [blame] | 285 | # Run some tests in SQLITE_CONFIG_SINGLETHREAD mode. |
| 286 | # |
dan | 0626dfc | 2010-06-15 06:56:37 +0000 | [diff] [blame] | 287 | test_suite "singlethread" -description { |
danielk1977 | 1077e3f | 2008-06-21 18:07:37 +0000 | [diff] [blame] | 288 | Tests run in SQLITE_CONFIG_SINGLETHREAD mode |
| 289 | } -initialize { |
drh | 04df18d | 2009-01-06 14:50:11 +0000 | [diff] [blame] | 290 | catch {db close} |
| 291 | sqlite3_shutdown |
| 292 | catch {sqlite3_config singlethread} |
drh | bb77b75 | 2009-04-09 01:23:49 +0000 | [diff] [blame] | 293 | sqlite3_initialize |
| 294 | autoinstall_test_functions |
dan | 0626dfc | 2010-06-15 06:56:37 +0000 | [diff] [blame] | 295 | } -files { |
danielk1977 | 1077e3f | 2008-06-21 18:07:37 +0000 | [diff] [blame] | 296 | delete.test delete2.test insert.test rollback.test select1.test |
| 297 | select2.test trans.test update.test vacuum.test types.test |
| 298 | types2.test types3.test |
| 299 | } -shutdown { |
drh | 04df18d | 2009-01-06 14:50:11 +0000 | [diff] [blame] | 300 | catch {db close} |
| 301 | sqlite3_shutdown |
| 302 | catch {sqlite3_config serialized} |
drh | bb77b75 | 2009-04-09 01:23:49 +0000 | [diff] [blame] | 303 | sqlite3_initialize |
| 304 | autoinstall_test_functions |
danielk1977 | 1077e3f | 2008-06-21 18:07:37 +0000 | [diff] [blame] | 305 | } |
| 306 | |
dan | 0626dfc | 2010-06-15 06:56:37 +0000 | [diff] [blame] | 307 | test_suite "nomutex" -description { |
drh | 039963a | 2008-09-03 00:43:15 +0000 | [diff] [blame] | 308 | Tests run with the SQLITE_OPEN_MULTITHREADED flag passed to sqlite3_open(). |
danielk1977 | 9a6284c | 2008-07-10 17:52:49 +0000 | [diff] [blame] | 309 | } -initialize { |
| 310 | rename sqlite3 sqlite3_nomutex |
| 311 | proc sqlite3 {args} { |
| 312 | if {[string range [lindex $args 0] 0 0] ne "-"} { |
drh | cc91e7f | 2008-09-03 01:08:00 +0000 | [diff] [blame] | 313 | lappend args -fullmutex 0 -nomutex 1 |
danielk1977 | 9a6284c | 2008-07-10 17:52:49 +0000 | [diff] [blame] | 314 | } |
| 315 | uplevel [concat sqlite3_nomutex $args] |
| 316 | } |
dan | 0626dfc | 2010-06-15 06:56:37 +0000 | [diff] [blame] | 317 | } -files { |
danielk1977 | 9a6284c | 2008-07-10 17:52:49 +0000 | [diff] [blame] | 318 | delete.test delete2.test insert.test rollback.test select1.test |
| 319 | select2.test trans.test update.test vacuum.test types.test |
| 320 | types2.test types3.test |
| 321 | } -shutdown { |
| 322 | rename sqlite3 {} |
| 323 | rename sqlite3_nomutex sqlite3 |
| 324 | } |
| 325 | |
danielk1977 | 1077e3f | 2008-06-21 18:07:37 +0000 | [diff] [blame] | 326 | # Run some tests in SQLITE_CONFIG_MULTITHREAD mode. |
| 327 | # |
dan | 0626dfc | 2010-06-15 06:56:37 +0000 | [diff] [blame] | 328 | test_suite "multithread" -description { |
danielk1977 | 1077e3f | 2008-06-21 18:07:37 +0000 | [diff] [blame] | 329 | Tests run in SQLITE_CONFIG_MULTITHREAD mode |
| 330 | } -initialize { |
drh | 04df18d | 2009-01-06 14:50:11 +0000 | [diff] [blame] | 331 | catch {db close} |
| 332 | sqlite3_shutdown |
| 333 | catch {sqlite3_config multithread} |
drh | bb77b75 | 2009-04-09 01:23:49 +0000 | [diff] [blame] | 334 | sqlite3_initialize |
| 335 | autoinstall_test_functions |
dan | 0626dfc | 2010-06-15 06:56:37 +0000 | [diff] [blame] | 336 | } -files { |
danielk1977 | 1077e3f | 2008-06-21 18:07:37 +0000 | [diff] [blame] | 337 | delete.test delete2.test insert.test rollback.test select1.test |
| 338 | select2.test trans.test update.test vacuum.test types.test |
| 339 | types2.test types3.test |
| 340 | } -shutdown { |
drh | 04df18d | 2009-01-06 14:50:11 +0000 | [diff] [blame] | 341 | catch {db close} |
| 342 | sqlite3_shutdown |
| 343 | catch {sqlite3_config serialized} |
drh | bb77b75 | 2009-04-09 01:23:49 +0000 | [diff] [blame] | 344 | sqlite3_initialize |
| 345 | autoinstall_test_functions |
danielk1977 | 1077e3f | 2008-06-21 18:07:37 +0000 | [diff] [blame] | 346 | } |
| 347 | |
drh | 039963a | 2008-09-03 00:43:15 +0000 | [diff] [blame] | 348 | # Run some tests in SQLITE_OPEN_FULLMUTEX mode. |
| 349 | # |
dan | 0626dfc | 2010-06-15 06:56:37 +0000 | [diff] [blame] | 350 | test_suite "fullmutex" -description { |
drh | 039963a | 2008-09-03 00:43:15 +0000 | [diff] [blame] | 351 | Tests run in SQLITE_OPEN_FULLMUTEX mode |
| 352 | } -initialize { |
| 353 | rename sqlite3 sqlite3_fullmutex |
| 354 | proc sqlite3 {args} { |
| 355 | if {[string range [lindex $args 0] 0 0] ne "-"} { |
drh | cc91e7f | 2008-09-03 01:08:00 +0000 | [diff] [blame] | 356 | lappend args -nomutex 0 -fullmutex 1 |
drh | 039963a | 2008-09-03 00:43:15 +0000 | [diff] [blame] | 357 | } |
| 358 | uplevel [concat sqlite3_fullmutex $args] |
| 359 | } |
dan | 0626dfc | 2010-06-15 06:56:37 +0000 | [diff] [blame] | 360 | } -files { |
drh | 039963a | 2008-09-03 00:43:15 +0000 | [diff] [blame] | 361 | delete.test delete2.test insert.test rollback.test select1.test |
| 362 | select2.test trans.test update.test vacuum.test types.test |
| 363 | types2.test types3.test |
| 364 | } -shutdown { |
| 365 | rename sqlite3 {} |
| 366 | rename sqlite3_fullmutex sqlite3 |
| 367 | } |
| 368 | |
danielk1977 | 1077e3f | 2008-06-21 18:07:37 +0000 | [diff] [blame] | 369 | # Run some tests using the "onefile" demo. |
| 370 | # |
dan | 0626dfc | 2010-06-15 06:56:37 +0000 | [diff] [blame] | 371 | test_suite "onefile" -description { |
danielk1977 | 1077e3f | 2008-06-21 18:07:37 +0000 | [diff] [blame] | 372 | Run some tests using the "test_onefile.c" demo |
| 373 | } -initialize { |
| 374 | rename sqlite3 sqlite3_onefile |
| 375 | proc sqlite3 {args} { |
| 376 | if {[string range [lindex $args 0] 0 0] ne "-"} { |
| 377 | lappend args -vfs fs |
| 378 | } |
| 379 | uplevel [concat sqlite3_onefile $args] |
| 380 | } |
dan | 0626dfc | 2010-06-15 06:56:37 +0000 | [diff] [blame] | 381 | } -files { |
danielk1977 | 1077e3f | 2008-06-21 18:07:37 +0000 | [diff] [blame] | 382 | conflict.test insert.test insert2.test insert3.test |
| 383 | rollback.test select1.test select2.test select3.test |
danielk1977 | 1077e3f | 2008-06-21 18:07:37 +0000 | [diff] [blame] | 384 | } -shutdown { |
| 385 | rename sqlite3 {} |
| 386 | rename sqlite3_onefile sqlite3 |
| 387 | } |
| 388 | |
| 389 | # Run some tests using UTF-16 databases. |
| 390 | # |
dan | 0626dfc | 2010-06-15 06:56:37 +0000 | [diff] [blame] | 391 | test_suite "utf16" -description { |
danielk1977 | 1077e3f | 2008-06-21 18:07:37 +0000 | [diff] [blame] | 392 | Run tests using UTF-16 databases |
danielk1977 | 2dd6d80 | 2008-06-21 19:10:27 +0000 | [diff] [blame] | 393 | } -presql { |
danielk1977 | 1077e3f | 2008-06-21 18:07:37 +0000 | [diff] [blame] | 394 | pragma encoding = 'UTF-16' |
dan | 0626dfc | 2010-06-15 06:56:37 +0000 | [diff] [blame] | 395 | } -files { |
danielk1977 | 1077e3f | 2008-06-21 18:07:37 +0000 | [diff] [blame] | 396 | alter.test alter3.test |
| 397 | auth.test bind.test blob.test capi2.test capi3.test collate1.test |
| 398 | collate2.test collate3.test collate4.test collate5.test collate6.test |
| 399 | conflict.test date.test delete.test expr.test fkey1.test func.test |
| 400 | hook.test index.test insert2.test insert.test interrupt.test in.test |
| 401 | intpkey.test ioerr.test join2.test join.test lastinsert.test |
| 402 | laststmtchanges.test limit.test lock2.test lock.test main.test |
| 403 | memdb.test minmax.test misc1.test misc2.test misc3.test notnull.test |
| 404 | null.test progress.test quote.test rowid.test select1.test select2.test |
| 405 | select3.test select4.test select5.test select6.test sort.test |
| 406 | subselect.test tableapi.test table.test temptable.test |
| 407 | trace.test trigger1.test trigger2.test trigger3.test |
| 408 | trigger4.test types2.test types.test unique.test update.test |
| 409 | vacuum.test view.test where.test |
| 410 | } |
| 411 | |
| 412 | # Run some tests in exclusive locking mode. |
| 413 | # |
dan | 0626dfc | 2010-06-15 06:56:37 +0000 | [diff] [blame] | 414 | test_suite "exclusive" -description { |
danielk1977 | 1077e3f | 2008-06-21 18:07:37 +0000 | [diff] [blame] | 415 | Run tests in exclusive locking mode. |
| 416 | } -presql { |
| 417 | pragma locking_mode = 'exclusive' |
dan | 0626dfc | 2010-06-15 06:56:37 +0000 | [diff] [blame] | 418 | } -files { |
danielk1977 | 1077e3f | 2008-06-21 18:07:37 +0000 | [diff] [blame] | 419 | rollback.test select1.test select2.test |
| 420 | malloc.test ioerr.test |
| 421 | } |
| 422 | |
drh | 0433588 | 2008-09-26 21:08:08 +0000 | [diff] [blame] | 423 | # Run some tests in exclusive locking mode with truncated journals. |
| 424 | # |
dan | 0626dfc | 2010-06-15 06:56:37 +0000 | [diff] [blame] | 425 | test_suite "exclusive-truncate" -description { |
drh | 0433588 | 2008-09-26 21:08:08 +0000 | [diff] [blame] | 426 | Run tests in exclusive locking mode and truncate journal mode. |
| 427 | } -presql { |
| 428 | pragma locking_mode = 'exclusive'; |
| 429 | pragma journal_mode = TRUNCATE; |
dan | 0626dfc | 2010-06-15 06:56:37 +0000 | [diff] [blame] | 430 | } -files { |
drh | 0433588 | 2008-09-26 21:08:08 +0000 | [diff] [blame] | 431 | delete.test delete2.test insert.test rollback.test select1.test |
| 432 | select2.test update.test malloc.test ioerr.test |
| 433 | } |
| 434 | |
danielk1977 | 1077e3f | 2008-06-21 18:07:37 +0000 | [diff] [blame] | 435 | # Run some tests in persistent journal mode. |
| 436 | # |
dan | 0626dfc | 2010-06-15 06:56:37 +0000 | [diff] [blame] | 437 | test_suite "persistent_journal" -description { |
danielk1977 | 1077e3f | 2008-06-21 18:07:37 +0000 | [diff] [blame] | 438 | Run tests in persistent-journal mode. |
| 439 | } -presql { |
| 440 | pragma journal_mode = persist |
dan | 0626dfc | 2010-06-15 06:56:37 +0000 | [diff] [blame] | 441 | } -files { |
danielk1977 | 1077e3f | 2008-06-21 18:07:37 +0000 | [diff] [blame] | 442 | delete.test delete2.test insert.test rollback.test select1.test |
| 443 | select2.test trans.test update.test vacuum.test |
| 444 | } |
| 445 | |
drh | 0433588 | 2008-09-26 21:08:08 +0000 | [diff] [blame] | 446 | # Run some tests in truncating journal mode. |
| 447 | # |
dan | 0626dfc | 2010-06-15 06:56:37 +0000 | [diff] [blame] | 448 | test_suite "truncate_journal" -description { |
drh | 0433588 | 2008-09-26 21:08:08 +0000 | [diff] [blame] | 449 | Run tests in persistent-journal mode. |
| 450 | } -presql { |
| 451 | pragma journal_mode = truncate |
dan | 0626dfc | 2010-06-15 06:56:37 +0000 | [diff] [blame] | 452 | } -files { |
drh | 0433588 | 2008-09-26 21:08:08 +0000 | [diff] [blame] | 453 | delete.test delete2.test insert.test rollback.test select1.test |
| 454 | select2.test trans.test update.test vacuum.test |
| 455 | malloc.test ioerr.test |
| 456 | } |
| 457 | |
danielk1977 | 1077e3f | 2008-06-21 18:07:37 +0000 | [diff] [blame] | 458 | # Run some error tests in persistent journal mode. |
| 459 | # |
dan | 0626dfc | 2010-06-15 06:56:37 +0000 | [diff] [blame] | 460 | test_suite "persistent_journal_error" -description { |
danielk1977 | 1077e3f | 2008-06-21 18:07:37 +0000 | [diff] [blame] | 461 | Run malloc.test and ioerr.test in persistent-journal mode. |
| 462 | } -presql { |
| 463 | pragma journal_mode = persist |
dan | 0626dfc | 2010-06-15 06:56:37 +0000 | [diff] [blame] | 464 | } -files { |
danielk1977 | 1077e3f | 2008-06-21 18:07:37 +0000 | [diff] [blame] | 465 | malloc.test ioerr.test |
| 466 | } |
| 467 | |
| 468 | # Run some tests in no journal mode. |
| 469 | # |
dan | 0626dfc | 2010-06-15 06:56:37 +0000 | [diff] [blame] | 470 | test_suite "no_journal" -description { |
danielk1977 | 1077e3f | 2008-06-21 18:07:37 +0000 | [diff] [blame] | 471 | Run tests in no-journal mode. |
| 472 | } -presql { |
| 473 | pragma journal_mode = persist |
dan | 0626dfc | 2010-06-15 06:56:37 +0000 | [diff] [blame] | 474 | } -files { |
danielk1977 | 1077e3f | 2008-06-21 18:07:37 +0000 | [diff] [blame] | 475 | delete.test delete2.test insert.test rollback.test select1.test |
| 476 | select2.test trans.test update.test vacuum.test |
| 477 | } |
| 478 | |
| 479 | # Run some error tests in no journal mode. |
| 480 | # |
dan | 0626dfc | 2010-06-15 06:56:37 +0000 | [diff] [blame] | 481 | test_suite "no_journal_error" -description { |
danielk1977 | 1077e3f | 2008-06-21 18:07:37 +0000 | [diff] [blame] | 482 | Run malloc.test and ioerr.test in no-journal mode. |
| 483 | } -presql { |
| 484 | pragma journal_mode = persist |
dan | 0626dfc | 2010-06-15 06:56:37 +0000 | [diff] [blame] | 485 | } -files { |
danielk1977 | 1077e3f | 2008-06-21 18:07:37 +0000 | [diff] [blame] | 486 | malloc.test ioerr.test |
| 487 | } |
| 488 | |
| 489 | # Run some crash-tests in autovacuum mode. |
| 490 | # |
dan | 0626dfc | 2010-06-15 06:56:37 +0000 | [diff] [blame] | 491 | test_suite "autovacuum_crash" -description { |
danielk1977 | 1077e3f | 2008-06-21 18:07:37 +0000 | [diff] [blame] | 492 | Run crash.test in autovacuum mode. |
| 493 | } -presql { |
| 494 | pragma auto_vacuum = 1 |
dan | 0626dfc | 2010-06-15 06:56:37 +0000 | [diff] [blame] | 495 | } -files crash.test |
danielk1977 | 1077e3f | 2008-06-21 18:07:37 +0000 | [diff] [blame] | 496 | |
| 497 | # Run some ioerr-tests in autovacuum mode. |
| 498 | # |
dan | 0626dfc | 2010-06-15 06:56:37 +0000 | [diff] [blame] | 499 | test_suite "autovacuum_ioerr" -description { |
danielk1977 | 1077e3f | 2008-06-21 18:07:37 +0000 | [diff] [blame] | 500 | Run ioerr.test in autovacuum mode. |
| 501 | } -presql { |
| 502 | pragma auto_vacuum = 1 |
dan | 0626dfc | 2010-06-15 06:56:37 +0000 | [diff] [blame] | 503 | } -files ioerr.test |
danielk1977 | 1077e3f | 2008-06-21 18:07:37 +0000 | [diff] [blame] | 504 | |
danielk1977 | b317538 | 2008-10-17 18:51:52 +0000 | [diff] [blame] | 505 | # Run tests with an in-memory journal. |
| 506 | # |
dan | 0626dfc | 2010-06-15 06:56:37 +0000 | [diff] [blame] | 507 | test_suite "inmemory_journal" -description { |
danielk1977 | b317538 | 2008-10-17 18:51:52 +0000 | [diff] [blame] | 508 | Run tests with an in-memory journal file. |
| 509 | } -presql { |
| 510 | pragma journal_mode = 'memory' |
dan | 0626dfc | 2010-06-15 06:56:37 +0000 | [diff] [blame] | 511 | } -files [test_set $::allquicktests -exclude { |
danielk1977 | b317538 | 2008-10-17 18:51:52 +0000 | [diff] [blame] | 512 | # Exclude all tests that simulate IO errors. |
| 513 | autovacuum_ioerr2.test incrvacuum_ioerr.test ioerr.test |
| 514 | ioerr.test ioerr2.test ioerr3.test ioerr4.test ioerr5.test |
drh | 2206a2b | 2009-04-01 23:09:43 +0000 | [diff] [blame] | 515 | vacuum3.test incrblob_err.test diskfull.test backup_ioerr.test |
shaneh | c3b8483 | 2010-07-09 19:32:28 +0000 | [diff] [blame] | 516 | e_fts3.test fts3cov.test fts3malloc.test fts3rnd.test |
| 517 | fts3snippet.test |
danielk1977 | b317538 | 2008-10-17 18:51:52 +0000 | [diff] [blame] | 518 | |
| 519 | # Exclude test scripts that use tcl IO to access journal files or count |
| 520 | # the number of fsync() calls. |
| 521 | pager.test exclusive.test jrnlmode.test sync.test misc1.test |
danielk1977 | cb25790 | 2009-04-10 18:32:29 +0000 | [diff] [blame] | 522 | journal1.test conflict.test crash8.test tkt3457.test io.test |
dan | 3757556 | 2010-07-17 09:27:31 +0000 | [diff] [blame] | 523 | journal3.test |
dan | 01d3856 | 2010-03-08 10:32:38 +0000 | [diff] [blame] | 524 | |
dan | cb35460 | 2010-07-08 09:44:42 +0000 | [diff] [blame] | 525 | pager1.test async4.test corrupt.test filefmt.test pager2.test |
| 526 | corrupt5.test corruptA.test pageropt.test |
| 527 | |
dan | 01d3856 | 2010-03-08 10:32:38 +0000 | [diff] [blame] | 528 | # Exclude stmt.test, which expects sub-journals to use temporary files. |
| 529 | stmt.test |
drh | 0b94413 | 2010-05-24 20:24:38 +0000 | [diff] [blame] | 530 | |
| 531 | # WAL mode is different. |
dan | 0626dfc | 2010-06-15 06:56:37 +0000 | [diff] [blame] | 532 | wal* |
| 533 | }] |
danielk1977 | b317538 | 2008-10-17 18:51:52 +0000 | [diff] [blame] | 534 | |
danielk1977 | 6b39c2e | 2008-06-25 14:57:53 +0000 | [diff] [blame] | 535 | ifcapable mem3 { |
dan | 0626dfc | 2010-06-15 06:56:37 +0000 | [diff] [blame] | 536 | test_suite "memsys3" -description { |
danielk1977 | 6b39c2e | 2008-06-25 14:57:53 +0000 | [diff] [blame] | 537 | Run tests using the allocator in mem3.c. |
dan | eace527 | 2010-07-05 05:31:48 +0000 | [diff] [blame] | 538 | } -files [test_set $::allquicktests -exclude { |
drh | 8a42cbd | 2008-07-10 18:13:42 +0000 | [diff] [blame] | 539 | autovacuum.test delete3.test manydb.test |
| 540 | bigrow.test incrblob2.test memdb.test |
| 541 | bitvec.test index2.test memsubsys1.test |
| 542 | capi3c.test ioerr.test memsubsys2.test |
| 543 | capi3.test join3.test pagesize.test |
danielk1977 | 8b32282 | 2009-07-01 18:09:01 +0000 | [diff] [blame] | 544 | collate5.test limit.test backup_ioerr.test |
| 545 | backup_malloc.test |
dan | 0626dfc | 2010-06-15 06:56:37 +0000 | [diff] [blame] | 546 | }] -initialize { |
danielk1977 | 6b39c2e | 2008-06-25 14:57:53 +0000 | [diff] [blame] | 547 | catch {db close} |
| 548 | sqlite3_reset_auto_extension |
| 549 | sqlite3_shutdown |
drh | 7830cd4 | 2008-07-16 12:25:32 +0000 | [diff] [blame] | 550 | sqlite3_config_heap 25000000 0 |
drh | e2a7c6e | 2008-08-01 15:06:30 +0000 | [diff] [blame] | 551 | sqlite3_config_lookaside 0 0 |
danielk1977 | 8b32282 | 2009-07-01 18:09:01 +0000 | [diff] [blame] | 552 | ifcapable mem5 { |
| 553 | # If both memsys3 and memsys5 are enabled in the build, the call to |
| 554 | # [sqlite3_config_heap] will initialize the system to use memsys5. |
| 555 | # The following overrides this preference and installs the memsys3 |
| 556 | # allocator. |
| 557 | sqlite3_install_memsys3 |
| 558 | } |
danielk1977 | 6b39c2e | 2008-06-25 14:57:53 +0000 | [diff] [blame] | 559 | install_malloc_faultsim 1 |
| 560 | sqlite3_initialize |
| 561 | autoinstall_test_functions |
| 562 | } -shutdown { |
| 563 | catch {db close} |
danielk1977 | 6b39c2e | 2008-06-25 14:57:53 +0000 | [diff] [blame] | 564 | sqlite3_shutdown |
danielk1977 | 0d84e5b | 2008-06-27 14:05:24 +0000 | [diff] [blame] | 565 | sqlite3_config_heap 0 0 |
drh | e2a7c6e | 2008-08-01 15:06:30 +0000 | [diff] [blame] | 566 | sqlite3_config_lookaside 100 500 |
danielk1977 | 6b39c2e | 2008-06-25 14:57:53 +0000 | [diff] [blame] | 567 | install_malloc_faultsim 1 |
| 568 | sqlite3_initialize |
drh | bb77b75 | 2009-04-09 01:23:49 +0000 | [diff] [blame] | 569 | autoinstall_test_functions |
danielk1977 | 6b39c2e | 2008-06-25 14:57:53 +0000 | [diff] [blame] | 570 | } |
danielk1977 | 57e5ea9 | 2008-06-24 19:02:55 +0000 | [diff] [blame] | 571 | } |
| 572 | |
danielk1977 | 6b39c2e | 2008-06-25 14:57:53 +0000 | [diff] [blame] | 573 | ifcapable mem5 { |
dan | 0626dfc | 2010-06-15 06:56:37 +0000 | [diff] [blame] | 574 | test_suite "memsys5" -description { |
danielk1977 | 6b39c2e | 2008-06-25 14:57:53 +0000 | [diff] [blame] | 575 | Run tests using the allocator in mem5.c. |
dan | eace527 | 2010-07-05 05:31:48 +0000 | [diff] [blame] | 576 | } -files [test_set $::allquicktests -exclude { |
drh | 8a42cbd | 2008-07-10 18:13:42 +0000 | [diff] [blame] | 577 | autovacuum.test delete3.test manydb.test |
| 578 | bigrow.test incrblob2.test memdb.test |
| 579 | bitvec.test index2.test memsubsys1.test |
| 580 | capi3c.test ioerr.test memsubsys2.test |
| 581 | capi3.test join3.test pagesize.test |
danielk1977 | ac8d7b3 | 2008-11-13 16:21:50 +0000 | [diff] [blame] | 582 | collate5.test limit.test zeroblob.test |
dan | 0626dfc | 2010-06-15 06:56:37 +0000 | [diff] [blame] | 583 | }] -initialize { |
danielk1977 | 6b39c2e | 2008-06-25 14:57:53 +0000 | [diff] [blame] | 584 | catch {db close} |
danielk1977 | 6b39c2e | 2008-06-25 14:57:53 +0000 | [diff] [blame] | 585 | sqlite3_shutdown |
drh | 7830cd4 | 2008-07-16 12:25:32 +0000 | [diff] [blame] | 586 | sqlite3_config_heap 25000000 64 |
drh | e2a7c6e | 2008-08-01 15:06:30 +0000 | [diff] [blame] | 587 | sqlite3_config_lookaside 0 0 |
danielk1977 | 5099be5 | 2008-06-27 13:27:03 +0000 | [diff] [blame] | 588 | install_malloc_faultsim 1 |
| 589 | sqlite3_initialize |
| 590 | autoinstall_test_functions |
| 591 | } -shutdown { |
| 592 | catch {db close} |
danielk1977 | 5099be5 | 2008-06-27 13:27:03 +0000 | [diff] [blame] | 593 | sqlite3_shutdown |
danielk1977 | 0d84e5b | 2008-06-27 14:05:24 +0000 | [diff] [blame] | 594 | sqlite3_config_heap 0 0 |
drh | e2a7c6e | 2008-08-01 15:06:30 +0000 | [diff] [blame] | 595 | sqlite3_config_lookaside 100 500 |
danielk1977 | 5099be5 | 2008-06-27 13:27:03 +0000 | [diff] [blame] | 596 | install_malloc_faultsim 1 |
| 597 | sqlite3_initialize |
drh | bb77b75 | 2009-04-09 01:23:49 +0000 | [diff] [blame] | 598 | autoinstall_test_functions |
danielk1977 | 5099be5 | 2008-06-27 13:27:03 +0000 | [diff] [blame] | 599 | } |
| 600 | |
dan | 0626dfc | 2010-06-15 06:56:37 +0000 | [diff] [blame] | 601 | test_suite "memsys5-2" -description { |
danielk1977 | 5099be5 | 2008-06-27 13:27:03 +0000 | [diff] [blame] | 602 | Run tests using the allocator in mem5.c in a different configuration. |
dan | 0626dfc | 2010-06-15 06:56:37 +0000 | [diff] [blame] | 603 | } -files { |
drh | 8a42cbd | 2008-07-10 18:13:42 +0000 | [diff] [blame] | 604 | select1.test |
danielk1977 | 5099be5 | 2008-06-27 13:27:03 +0000 | [diff] [blame] | 605 | } -initialize { |
| 606 | catch {db close} |
danielk1977 | 5099be5 | 2008-06-27 13:27:03 +0000 | [diff] [blame] | 607 | sqlite3_shutdown |
dan | b0c6a88 | 2010-09-02 10:08:41 +0000 | [diff] [blame] | 608 | sqlite3_config_memstatus 0 |
drh | 7830cd4 | 2008-07-16 12:25:32 +0000 | [diff] [blame] | 609 | sqlite3_config_heap 40000000 16 |
drh | e2a7c6e | 2008-08-01 15:06:30 +0000 | [diff] [blame] | 610 | sqlite3_config_lookaside 0 0 |
danielk1977 | 6b39c2e | 2008-06-25 14:57:53 +0000 | [diff] [blame] | 611 | install_malloc_faultsim 1 |
| 612 | sqlite3_initialize |
| 613 | autoinstall_test_functions |
| 614 | } -shutdown { |
| 615 | catch {db close} |
danielk1977 | 6b39c2e | 2008-06-25 14:57:53 +0000 | [diff] [blame] | 616 | sqlite3_shutdown |
danielk1977 | 0d84e5b | 2008-06-27 14:05:24 +0000 | [diff] [blame] | 617 | sqlite3_config_heap 0 0 |
drh | e2a7c6e | 2008-08-01 15:06:30 +0000 | [diff] [blame] | 618 | sqlite3_config_lookaside 100 500 |
danielk1977 | 6b39c2e | 2008-06-25 14:57:53 +0000 | [diff] [blame] | 619 | install_malloc_faultsim 1 |
| 620 | sqlite3_initialize |
drh | bb77b75 | 2009-04-09 01:23:49 +0000 | [diff] [blame] | 621 | autoinstall_test_functions |
danielk1977 | 6b39c2e | 2008-06-25 14:57:53 +0000 | [diff] [blame] | 622 | } |
danielk1977 | c66c0e1 | 2008-06-25 14:26:07 +0000 | [diff] [blame] | 623 | } |
| 624 | |
drh | 8a42cbd | 2008-07-10 18:13:42 +0000 | [diff] [blame] | 625 | ifcapable threadsafe { |
dan | 0626dfc | 2010-06-15 06:56:37 +0000 | [diff] [blame] | 626 | test_suite "no_mutex_try" -description { |
drh | 8a42cbd | 2008-07-10 18:13:42 +0000 | [diff] [blame] | 627 | The sqlite3_mutex_try() interface always fails |
dan | 0626dfc | 2010-06-15 06:56:37 +0000 | [diff] [blame] | 628 | } -files [ |
| 629 | test_set $::allquicktests -exclude mutex1.test mutex2.test |
| 630 | ] -initialize { |
drh | 8a42cbd | 2008-07-10 18:13:42 +0000 | [diff] [blame] | 631 | catch {db close} |
| 632 | sqlite3_shutdown |
| 633 | install_mutex_counters 1 |
| 634 | set ::disable_mutex_try 1 |
drh | bb77b75 | 2009-04-09 01:23:49 +0000 | [diff] [blame] | 635 | sqlite3_initialize |
| 636 | autoinstall_test_functions |
drh | 8a42cbd | 2008-07-10 18:13:42 +0000 | [diff] [blame] | 637 | } -shutdown { |
| 638 | catch {db close} |
| 639 | sqlite3_shutdown |
| 640 | install_mutex_counters 0 |
drh | bb77b75 | 2009-04-09 01:23:49 +0000 | [diff] [blame] | 641 | sqlite3_initialize |
| 642 | autoinstall_test_functions |
drh | 8a42cbd | 2008-07-10 18:13:42 +0000 | [diff] [blame] | 643 | } |
| 644 | } |
| 645 | |
danielk1977 | b13dee9 | 2008-06-23 15:55:52 +0000 | [diff] [blame] | 646 | # run_tests "crash_safe_append" -description { |
| 647 | # Run crash.test with persistent journals on a SAFE_APPEND file-system. |
| 648 | # } -initialize { |
| 649 | # rename crashsql sa_crashsql |
| 650 | # proc crashsql {args} { |
| 651 | # set options [lrange $args 0 [expr {[llength $args]-2}]] |
| 652 | # lappend options -char safe_append |
| 653 | # set sql [lindex $args end] |
| 654 | # lappend options " |
| 655 | # PRAGMA journal_mode=persistent; |
| 656 | # $sql |
| 657 | # " |
| 658 | # set fd [open test.db-journal w] |
| 659 | # puts $fd [string repeat 1234567890 100000] |
| 660 | # close $fd |
| 661 | # eval sa_crashsql $options |
| 662 | # } |
| 663 | # } -shutdown { |
| 664 | # rename crashsql {} |
| 665 | # rename sa_crashsql crashsql |
dan | 0626dfc | 2010-06-15 06:56:37 +0000 | [diff] [blame] | 666 | # } -files crash.test |
danielk1977 | b13dee9 | 2008-06-23 15:55:52 +0000 | [diff] [blame] | 667 | |
dan | 0626dfc | 2010-06-15 06:56:37 +0000 | [diff] [blame] | 668 | test_suite "safe_append" -description { |
danielk1977 | 755339e | 2008-09-12 10:22:40 +0000 | [diff] [blame] | 669 | Run some tests on a SAFE_APPEND file-system. |
| 670 | } -initialize { |
| 671 | rename sqlite3 sqlite3_safeappend |
| 672 | proc sqlite3 {args} { |
| 673 | if {[string range [lindex $args 0] 0 0] ne "-"} { |
| 674 | lappend args -vfs devsym |
| 675 | } |
| 676 | uplevel [concat sqlite3_safeappend $args] |
| 677 | } |
| 678 | sqlite3_simulate_device -char safe_append |
| 679 | } -shutdown { |
| 680 | rename sqlite3 {} |
| 681 | rename sqlite3_shutdown sqlite3 |
dan | 0626dfc | 2010-06-15 06:56:37 +0000 | [diff] [blame] | 682 | } -files [ |
| 683 | test_set $::allquicktests shared_err.test -exclude async3.test |
| 684 | ] |
danielk1977 | 755339e | 2008-09-12 10:22:40 +0000 | [diff] [blame] | 685 | |
drh | b232c23 | 2008-11-19 01:20:26 +0000 | [diff] [blame] | 686 | # The set of tests to run on the alternative-pcache |
| 687 | set perm-alt-pcache-testset { |
| 688 | async.test |
| 689 | attach.test |
| 690 | delete.test delete2.test |
| 691 | index.test |
| 692 | insert.test insert2.test |
| 693 | join.test join2.test |
| 694 | rollback.test |
| 695 | select1.test select2.test |
| 696 | trans.test |
| 697 | update.test |
| 698 | } |
| 699 | |
dan | 2acd4c6 | 2010-07-13 14:22:39 +0000 | [diff] [blame] | 700 | foreach discard_rate {0 10 50 90 100} { |
| 701 | test_suite "pcache${discard_rate}" -description " |
| 702 | Alternative pcache implementation with ${discard_rate}% random discard |
| 703 | " -initialize " |
| 704 | catch {db close} |
| 705 | sqlite3_shutdown |
| 706 | sqlite3_config_alt_pcache 1 $discard_rate 1 |
| 707 | sqlite3_initialize |
| 708 | autoinstall_test_functions |
| 709 | " -shutdown { |
| 710 | catch {db close} |
| 711 | sqlite3_shutdown |
| 712 | sqlite3_config_alt_pcache 0 0 0 |
| 713 | sqlite3_config_lookaside 100 500 |
| 714 | install_malloc_faultsim 1 |
| 715 | sqlite3_initialize |
| 716 | autoinstall_test_functions |
| 717 | } -files ${perm-alt-pcache-testset} |
| 718 | } |
danielk1977 | b13dee9 | 2008-06-23 15:55:52 +0000 | [diff] [blame] | 719 | |
dan | 0626dfc | 2010-06-15 06:56:37 +0000 | [diff] [blame] | 720 | test_suite "journaltest" -description { |
danielk1977 | f310751 | 2008-12-22 10:58:46 +0000 | [diff] [blame] | 721 | Check that pages are synced before being written (test_journal.c). |
| 722 | } -initialize { |
danielk1977 | f310751 | 2008-12-22 10:58:46 +0000 | [diff] [blame] | 723 | catch {db close} |
| 724 | register_jt_vfs -default "" |
| 725 | } -shutdown { |
| 726 | unregister_jt_vfs |
dan | 0626dfc | 2010-06-15 06:56:37 +0000 | [diff] [blame] | 727 | } -files [test_set $::allquicktests -exclude { |
| 728 | wal* incrvacuum.test ioerr.test corrupt4.test io.test crash8.test |
| 729 | async4.test bigfile.test |
drh | fb4a626 | 2010-05-06 19:55:57 +0000 | [diff] [blame] | 730 | }] |
danielk1977 | f310751 | 2008-12-22 10:58:46 +0000 | [diff] [blame] | 731 | |
dan | 0a7a915 | 2010-04-07 07:57:38 +0000 | [diff] [blame] | 732 | if {[info commands register_demovfs] != ""} { |
dan | 0626dfc | 2010-06-15 06:56:37 +0000 | [diff] [blame] | 733 | test_suite "demovfs" -description { |
dan | 430e74c | 2010-06-07 17:47:26 +0000 | [diff] [blame] | 734 | Check that the demovfs (code in test_demovfs.c) more or less works. |
dan | 0a7a915 | 2010-04-07 07:57:38 +0000 | [diff] [blame] | 735 | } -initialize { |
| 736 | register_demovfs |
| 737 | } -shutdown { |
| 738 | unregister_demovfs |
dan | 0626dfc | 2010-06-15 06:56:37 +0000 | [diff] [blame] | 739 | } -files { |
dan | 0a7a915 | 2010-04-07 07:57:38 +0000 | [diff] [blame] | 740 | insert.test insert2.test insert3.test rollback.test |
| 741 | select1.test select2.test select3.test |
| 742 | } |
| 743 | } |
| 744 | |
dan | 0626dfc | 2010-06-15 06:56:37 +0000 | [diff] [blame] | 745 | test_suite "wal" -description { |
dan | 71cb518 | 2010-04-26 12:39:03 +0000 | [diff] [blame] | 746 | Run tests with journal_mode=WAL |
dan | 31f98fc | 2010-04-27 05:42:32 +0000 | [diff] [blame] | 747 | } -initialize { |
dan | 430e74c | 2010-06-07 17:47:26 +0000 | [diff] [blame] | 748 | set ::G(savepoint6_iterations) 100 |
dan | 31f98fc | 2010-04-27 05:42:32 +0000 | [diff] [blame] | 749 | } -shutdown { |
dan | 430e74c | 2010-06-07 17:47:26 +0000 | [diff] [blame] | 750 | unset -nocomplain ::G(savepoint6_iterations) |
dan | 0626dfc | 2010-06-15 06:56:37 +0000 | [diff] [blame] | 751 | } -files { |
dan | e106de6 | 2010-04-27 06:49:34 +0000 | [diff] [blame] | 752 | savepoint.test savepoint2.test savepoint6.test |
| 753 | trans.test avtrans.test |
dan | 60f9da7 | 2010-07-07 11:42:59 +0000 | [diff] [blame] | 754 | |
| 755 | fts3aa.test fts3ab.test fts3ac.test fts3ad.test |
| 756 | fts3ae.test fts3af.test fts3ag.test fts3ah.test |
| 757 | fts3ai.test fts3aj.test fts3ak.test fts3al.test |
| 758 | fts3am.test fts3an.test fts3ao.test fts3b.test |
| 759 | fts3c.test fts3d.test fts3e.test fts3query.test |
dan | 71cb518 | 2010-04-26 12:39:03 +0000 | [diff] [blame] | 760 | } |
dan | 897230e | 2010-08-26 14:15:37 +0000 | [diff] [blame] | 761 | |
| 762 | test_suite "rtree" -description { |
| 763 | All R-tree related tests. Provides coverage of source file rtree.c. |
| 764 | } -files [glob -nocomplain $::testdir/../ext/rtree/*.test] |
| 765 | |
dan | 1ce1b4a | 2010-12-07 14:32:28 +0000 | [diff] [blame] | 766 | test_suite "no_optimization" -description { |
| 767 | Run test scripts with optimizations disabled using the |
| 768 | sqlite3_test_control(SQLITE_TESTCTRL_OPTIMIZATIONS) interface. |
| 769 | } -files { |
| 770 | where.test where2.test where3.test where4.test where5.test |
| 771 | where6.test where7.test where8.test where9.test |
| 772 | whereA.test whereB.test wherelimit.test |
| 773 | select1.test select2.test select3.test select4.test select5.test |
| 774 | select7.test select8.test selectA.test selectC.test |
| 775 | } -dbconfig { |
| 776 | optimization_control $::dbhandle all 0 |
| 777 | } |
| 778 | |
danielk1977 | 1077e3f | 2008-06-21 18:07:37 +0000 | [diff] [blame] | 779 | # End of tests |
| 780 | ############################################################################# |
| 781 | |
dan | 0626dfc | 2010-06-15 06:56:37 +0000 | [diff] [blame] | 782 | # run_tests NAME OPTIONS |
| 783 | # |
| 784 | # where available options are: |
| 785 | # |
dan | 2fce9ab | 2010-06-15 18:00:06 +0000 | [diff] [blame] | 786 | # -description TITLE |
| 787 | # -initialize SCRIPT |
| 788 | # -shutdown SCRIPT |
| 789 | # -presql SQL |
| 790 | # -files LIST-OF-FILES |
| 791 | # -prefix NAME |
dan | 0626dfc | 2010-06-15 06:56:37 +0000 | [diff] [blame] | 792 | # |
| 793 | proc run_tests {name args} { |
| 794 | array set options $args |
danielk1977 | 1077e3f | 2008-06-21 18:07:37 +0000 | [diff] [blame] | 795 | |
dan | d506de0 | 2010-07-03 13:59:01 +0000 | [diff] [blame] | 796 | set ::G(perm:name) $name |
| 797 | set ::G(perm:prefix) $options(-prefix) |
dan | 0626dfc | 2010-06-15 06:56:37 +0000 | [diff] [blame] | 798 | set ::G(perm:presql) $options(-presql) |
| 799 | set ::G(isquick) 1 |
dan | 1ce1b4a | 2010-12-07 14:32:28 +0000 | [diff] [blame] | 800 | set ::G(perm:dbconfig) $options(-dbconfig) |
dan | 0626dfc | 2010-06-15 06:56:37 +0000 | [diff] [blame] | 801 | |
| 802 | uplevel $options(-initialize) |
| 803 | |
| 804 | foreach file [lsort $options(-files)] { |
dan | 897230e | 2010-08-26 14:15:37 +0000 | [diff] [blame] | 805 | if {[file tail $file] == $file} { set file [file join $::testdir $file] } |
| 806 | slave_test_file $file |
dan | 0626dfc | 2010-06-15 06:56:37 +0000 | [diff] [blame] | 807 | } |
| 808 | |
| 809 | uplevel $options(-shutdown) |
| 810 | |
| 811 | unset ::G(perm:name) |
dan | d506de0 | 2010-07-03 13:59:01 +0000 | [diff] [blame] | 812 | unset ::G(perm:prefix) |
dan | 0626dfc | 2010-06-15 06:56:37 +0000 | [diff] [blame] | 813 | unset ::G(perm:presql) |
dan | 1ce1b4a | 2010-12-07 14:32:28 +0000 | [diff] [blame] | 814 | unset ::G(perm:dbconfig) |
dan | 0626dfc | 2010-06-15 06:56:37 +0000 | [diff] [blame] | 815 | } |
| 816 | |
| 817 | proc run_test_suite {name} { |
| 818 | if {[info exists ::testspec($name)]==0} { |
| 819 | error "No such test suite: $name" |
| 820 | } |
| 821 | uplevel run_tests $name $::testspec($name) |
| 822 | } |
| 823 | |
| 824 | proc help {} { |
dan | e91a54e | 2010-06-15 17:44:47 +0000 | [diff] [blame] | 825 | puts "Usage: $::argv0 TESTSUITE ?TESTFILE?" |
| 826 | puts "" |
| 827 | puts "Available test-suites are:" |
dan | 0626dfc | 2010-06-15 06:56:37 +0000 | [diff] [blame] | 828 | foreach k $::testsuitelist { |
dan | e91a54e | 2010-06-15 17:44:47 +0000 | [diff] [blame] | 829 | if {[info exists ::testspec($k)]==0} { |
| 830 | puts " ----------------------------------------" |
| 831 | puts "" |
| 832 | } else { |
| 833 | array set o $::testspec($k) |
| 834 | puts "Test suite: \"$k\"" |
| 835 | set d [string trim $o(-description)] |
| 836 | set d [regsub {\n *} $d "\n "] |
| 837 | puts " $d" |
| 838 | puts "" |
| 839 | } |
dan | 0626dfc | 2010-06-15 06:56:37 +0000 | [diff] [blame] | 840 | } |
| 841 | exit -1 |
| 842 | } |
| 843 | |
| 844 | if {[info script] == $argv0} { |
| 845 | proc main {argv} { |
| 846 | if {[llength $argv]==0} { |
| 847 | help |
| 848 | } else { |
| 849 | set suite [lindex $argv 0] |
| 850 | if {[info exists ::testspec($suite)]==0} help |
| 851 | set extra "" |
| 852 | if {[llength $argv]>1} { set extra [list -files [lrange $argv 1 end]] } |
| 853 | eval run_tests $suite $::testspec($suite) $extra |
| 854 | } |
| 855 | } |
| 856 | main $argv |
| 857 | finish_test |
| 858 | } |
| 859 | |