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

Merge recent trunk enhancements into the wal2 branch.

Browse Source 
FossilOrigin-Name: 7e2bc836f6aedfd69588f5723f8797f11ee6437d3b63ffc43c88d40e3baadb1c
This commit is contained in:
drh
2021-10-21 14:01:05 +00:00
parent e1c2be1134 8b554e2a1e
commit c77906eedd
84 changed files with 1790 additions and 1770 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
test/permutations.test
View File

@@ -1158,7 +1158,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)]} {
@@ -1232,6 +1239,7 @@ if {[file tail $argv0] == "permutations.test"} {
set S $::testspec($suite)
set i 1
} else {
set suite default
set S [list]
set i 0
}
@@ -1252,7 +1260,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