database/sqlite
1
0
Fork 0
mirror of https://github.com/sqlite/sqlite.git synced 2025-07-27 20:41:58 +03:00
Code Activity

Run TCL tests in a subdirectory "testdir".

Browse Source 
FossilOrigin-Name: f632bba0d6ad3edc60f4127380ce8320378dac42
This commit is contained in:
drh
2016-03-14 13:42:29 +00:00
parent 7d85774da8
commit d5704a8961
4 changed files with 27 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
test/tester.tcl
View File

@ -411,6 +411,8 @@ if {[info exists cmdlinearg]==0} {
# --match=$pattern
# --verbose=$val
# --output=$filename
# -q Reduce output
# --testdir=$dir Run tests in subdirectory $dir
# --help
#
set cmdlinearg(soft-heap-limit) 0
@ -425,6 +427,7 @@ if {[info exists cmdlinearg]==0} {
set cmdlinearg(match) ""
set cmdlinearg(verbose) ""
set cmdlinearg(output) ""
set cmdlinearg(testdir) "testdir"
set leftover [list]
foreach a $argv {
@ -498,6 +501,9 @@ if {[info exists cmdlinearg]==0} {
error "option --verbose= must be set to a boolean or to \"file\""
}
}
{^-+testdir=.*$} {
foreach {dummy cmdlinearg(testdir)} [split $a =] break
}
{.*help.*} {
print_help_and_quit
}
@ -507,10 +513,15 @@ if {[info exists cmdlinearg]==0} {
}
default {
lappend leftover $a
lappend leftover [file normalize $a]
}
}
}
set cmdlinearg(TESTFIXTURE_HOME) [pwd]
if {$cmdlinearg(testdir)!=""} {
file mkdir $cmdlinearg(testdir)
cd $cmdlinearg(testdir)
}
set argv $leftover
# Install the malloc layer used to inject OOM errors. And the 'automatic'