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

Cause most shell tests to be run under Tcl suite valgrind config.

Browse Source 
FossilOrigin-Name: cd085b36ff777396ac2705c030c1518f8094a70a0b0ba4a628776429524d20f0
This commit is contained in:
larrybr
2022-05-10 01:11:51 +00:00
parent 2f5f674066
commit f015a3d19f
4 changed files with 18 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
test/tester.tcl
View File

@ -2499,12 +2499,17 @@ proc test_find_cli {} {
proc test_cli_invocation {} {
set prog [test_find_binary sqlite3]
if {$prog==""} { return -code return }
if {[info exists ::env(SQLITE_CLI_VALGRIND_OPT)]} {
set vgo $::env(SQLITE_CLI_VALGRIND_OPT)
set vgrun [expr {[permutation]=="valgrind"}]
if {$vgrun || [info exists ::env(SQLITE_CLI_VALGRIND_OPT)]} {
if {$vgrun} {
set vgo "--quiet"
} else {
set vgo $::env(SQLITE_CLI_VALGRIND_OPT)
}
if {$vgo == 0 || $vgo eq ""} {
return $prog
} elseif {$vgo == 1} {
return "valgrind -q --leak-check=yes $prog"
return "valgrind --quiet --leak-check=yes $prog"
} else {
return "valgrind $vgo $prog"
}