database/sqlite
1
0
Fork 0
mirror of https://github.com/sqlite/sqlite.git synced 2026-01-06 08:01:16 +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

3
test/permutations.test
View File

@@ -217,7 +217,8 @@ test_suite "valgrind" -prefix "" -description {
fail under valgrind) omitted.
} -files [
test_set $allquicktests -exclude *malloc* *ioerr* *fault* *_err* wal.test \
shell*.test crash8.test atof1.test selectG.test \
shell2.test shell6.test shell7.test \
crash8.test atof1.test selectG.test \
tkt-fc62af4523.test numindex1.test corruptK.test
] -initialize {
set ::G(valgrind) 1

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"
}