diff options
author | dan <dan@noemail.net> | 2018-12-24 15:22:47 +0000 |
---|---|---|
committer | dan <dan@noemail.net> | 2018-12-24 15:22:47 +0000 |
commit | 94e95ea46e89f34adeba606db60f4691a25d7c1f (patch) | |
tree | 70a34cb71ca9008af0cc2a8edeb7d0b2cf35e9b3 /test/lock_common.tcl | |
parent | 29e9af88484b2266189d694faa3eb3e69f0a7190 (diff) | |
download | sqlite-94e95ea46e89f34adeba606db60f4691a25d7c1f.tar.gz sqlite-94e95ea46e89f34adeba606db60f4691a25d7c1f.zip |
Copy some extra test infrastructure from the mutexfree-shmlock branch to trunk.
FossilOrigin-Name: 883337ffdb434b6856ceaada121c0be67e2fdec7b447675f45e85568ef28d7d9
Diffstat (limited to 'test/lock_common.tcl')
-rw-r--r-- | test/lock_common.tcl | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/test/lock_common.tcl b/test/lock_common.tcl index a758e7af2..3e1821bab 100644 --- a/test/lock_common.tcl +++ b/test/lock_common.tcl @@ -15,18 +15,20 @@ proc do_multiclient_test {varname script} { - foreach code [list { + foreach {tn code} [list 1 { if {[info exists ::G(valgrind)]} { db close ; continue } set ::code2_chan [launch_testfixture] set ::code3_chan [launch_testfixture] proc code2 {tcl} { testfixture $::code2_chan $tcl } proc code3 {tcl} { testfixture $::code3_chan $tcl } - set tn 1 - } { + } 2 { proc code2 {tcl} { uplevel #0 $tcl } proc code3 {tcl} { uplevel #0 $tcl } - set tn 2 }] { + # Do not run multi-process tests with the unix-excl VFS. + # + if {$tn==1 && [permutation]=="unix-excl"} continue + faultsim_delete_and_reopen proc code1 {tcl} { uplevel #0 $tcl } |