database/sqlite
1
0
Fork 0
mirror of https://github.com/sqlite/sqlite.git synced 2025-08-01 06:27:03 +03:00
Code Activity

Partially revert [3e1a2f661], as some test scripts require separate $presql

Browse Source 
and $dbconfig variables.

FossilOrigin-Name: cbf85284beb60d068b446c52f000d694a810d4de9096ad2951523a4c88e7334c
This commit is contained in:
dan
2018-11-07 11:56:23 +00:00
parent 2d13f6016b
commit 7d0fa14c03
3 changed files with 11 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
test/permutations.test
View File

@ -48,13 +48,6 @@ proc test_suite {name args} {
set options([lindex $o 0]) $v
}
# Transform "-presql" into a "dbconfig" script
#
if {[info exists options(-presql)]} {
append options(-dbconfig) "\n\$::dbhandle eval { $options(-presql) }"
unset options(-presql)
}
set ::testspec($name) [array get options]
lappend ::testsuitelist $name
}
@ -1090,6 +1083,7 @@ proc run_tests {name args} {
set options(-shutdown) ""
set options(-prefix) ""
set options(-dbconfig) ""
set options(-presql) ""
array set options $args
@ -1097,6 +1091,7 @@ proc run_tests {name args} {
set ::G(perm:prefix) $options(-prefix)
set ::G(isquick) 1
set ::G(perm:dbconfig) $options(-dbconfig)
set ::G(perm:presql) $options(-presql)
foreach file [lsort $options(-files)] {
uplevel $options(-initialize)
@ -1110,6 +1105,7 @@ proc run_tests {name args} {
unset ::G(perm:name)
unset ::G(perm:prefix)
unset ::G(perm:dbconfig)
unset ::G(perm:presql)
}
proc run_test_suite {name} {