database/sqlite
1
0
Fork 0
mirror of https://github.com/sqlite/sqlite.git synced 2025-08-08 14:02:16 +03:00
Code Activity

Merge trunk enhancements into the begin-concurrent-pnu-wal2 branch.

Browse Source 
FossilOrigin-Name: 1958e6facaaca8e695ae3d7e79acdba0025d6221653397ea45f9b8daa56c8d9b
This commit is contained in:
drh
2021-10-21 14:24:24 +00:00
parent 23cd2fc7cf c77906eedd
commit c34c456d82
84 changed files with 1791 additions and 1771 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
test/permutations.test
View File

@@ -1174,7 +1174,14 @@ proc run_tests {name args} {
set ::G(perm:dbconfig) $options(-dbconfig)
set ::G(perm:presql) $options(-presql)
foreach file [lsort $options(-files)] {
set filelist [lsort $options(-files)]
if {[info exists ::env(TCLTEST_PART)]} {
regexp {^([0-9]*)/([0-9]*)$} $::env(TCLTEST_PART) -> A B
set nFile [expr {([llength $filelist]+$B-1)/$B}]
set filelist [lrange $filelist [expr ($A-1)*$nFile] [expr $A*$nFile-1]]
}
foreach file $filelist {
if {[file tail $file] == $file} { set file [file join $::testdir $file] }
if {[info exists ::env(SQLITE_TEST_PATTERN_LIST)]} {
@@ -1248,6 +1255,7 @@ if {[file tail $argv0] == "permutations.test"} {
set S $::testspec($suite)
set i 1
} else {
set suite default
set S [list]
set i 0
}
@@ -1268,7 +1276,7 @@ if {[file tail $argv0] == "permutations.test"} {
set extra [list -files $files]
}
eval run_tests $suite $S $extra
eval [list run_tests $suite] $S $extra
}
}
main $argv