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

:-) (CVS 38)

Browse Source 
FossilOrigin-Name: 46c4b792e0a0e61c417f5c1771e013d90d652507
This commit is contained in:
drh
2000-06-02 14:27:22 +00:00
parent bed8690fde
commit df16aed362
5 changed files with 29 additions and 17 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
test/all.test
View File

@ -22,16 +22,24 @@
#***********************************************************************
# This file runs all tests.
#
# $Id: all.test,v 1.1 2000/05/29 23:48:23 drh Exp $
# $Id: all.test,v 1.2 2000/06/02 14:27:23 drh Exp $
set testdir [file dirname $argv0]
source $testdir/tester.tcl
rename finish_test really_finish_test
proc finish_test {} {}
foreach testfile [lsort -dictionary [glob $testdir/*.test]] {
if {[file tail $testfile]=="all.test"} continue
source $testfile
if {[file exists ./sqlite_test_count]} {
set COUNT [exec cat ./sqlite_test_count]
} else {
set COUNT 1
}
for {set Counter 0} {$Counter<$COUNT} {incr Counter} {
foreach testfile [lsort -dictionary [glob $testdir/*.test]] {
if {[file tail $testfile]=="all.test"} continue
source $testfile
}
}
really_finish_test