SQLite

Check-in [4ccd9103c3]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:add the sqlite_test_prefixes control file (CVS 159)
Downloads: Tarball | ZIP archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 4ccd9103c3e7236084283a7311b6e746037d12aa
User & Date: drh 2000-10-19 14:21:43.000
Context
2000-10-19
14:42
make it a little faster (CVS 160) (check-in: 757668bd64 user: drh tags: trunk)
14:21
add the sqlite_test_prefixes control file (CVS 159) (check-in: 4ccd9103c3 user: drh tags: trunk)
14:18
fix a memory leadk (CVS 1708) (check-in: 948f5a749f user: drh tags: trunk)
Changes
Unified Diff Ignore Whitespace Patch
Changes to test/all.test.
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37






38

39
40
41
42
43
44
45
46
47
48
49
50
51
# Author contact information:
#   drh@hwaci.com
#   http://www.hwaci.com/drh/
#
#***********************************************************************
# This file runs all tests.
#
# $Id: all.test,v 1.3 2000/10/19 14:10:09 drh Exp $

set testdir [file dirname $argv0]
source $testdir/tester.tcl
rename finish_test really_finish_test
proc finish_test {} {}

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

  set dbprefix memory:
  foreach testfile [lsort -dictionary [glob $testdir/*.test]] {
    if {[file tail $testfile]=="all.test"} continue
    source $testfile
  }
  set dbprefix gdbm:
  foreach testfile [lsort -dictionary [glob $testdir/*.test]] {
    if {[file tail $testfile]=="all.test"} continue
    source $testfile
  }
}

really_finish_test







|












>
>
>
>
>
>

>
|
|
|
|
|
<
<
<
<




18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50




51
52
53
54
# Author contact information:
#   drh@hwaci.com
#   http://www.hwaci.com/drh/
#
#***********************************************************************
# This file runs all tests.
#
# $Id: all.test,v 1.4 2000/10/19 14:21:43 drh Exp $

set testdir [file dirname $argv0]
source $testdir/tester.tcl
rename finish_test really_finish_test
proc finish_test {} {}

if {[file exists ./sqlite_test_count]} {
  set COUNT [exec cat ./sqlite_test_count]
} else {
  set COUNT 1
}

if {[file exists ./sqlite_test_prefixes]} {
  set PREFIXES [exec cat ./sqlite_test_prefixes]
} else {
  set PREFIXES {memory: gdbm:}
}

for {set Counter 0} {$Counter<$COUNT} {incr Counter} {
  foreach p $PREFIXES {
    set dbprefix $p
    foreach testfile [lsort -dictionary [glob $testdir/*.test]] {
      if {[file tail $testfile]=="all.test"} continue
      source $testfile
    }




  }
}

really_finish_test