File: runtests.tclsh

package info (click to toggle)
db5.3 5.3.28-12+deb9u1
  • links: PTS, VCS
  • area: main
  • in suites: stretch
  • size: 163,332 kB
  • ctags: 82,990
  • sloc: ansic: 448,411; java: 111,824; tcl: 80,544; sh: 44,326; cs: 33,697; cpp: 21,604; perl: 14,557; xml: 10,799; makefile: 4,106; yacc: 1,003; awk: 965; sql: 801; erlang: 342; python: 216; php: 24; asm: 14
file content (56 lines) | stat: -rw-r--r-- 1,265 bytes parent folder | download | duplicates (8)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
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
55
56
#!/usr/bin/tclsh

source ../test/test.tcl
#run_std

global one_test
source ../test/include.tcl

set one_test "ALL"
set display 1
set run 1

fileremove -f ALL.OUT

set o [open ALL.OUT a]
puts -nonewline "Modified test suite run started at: "
puts [clock format [clock seconds] -format "%H:%M %D"]
puts [berkdb version -string]

puts -nonewline $o "Modified test suite run started at: "
puts $o [clock format [clock seconds] -format "%H:%M %D"]
puts $o [berkdb version -string]

close $o

	set test_list {
	{"environment"		"env"}
	{"archive"		"archive"}
	{"backup"		"backup"}
	{"locking"		"lock"}
	{"logging"		"log"}
	{"memory pool"		"memp"}
	{"transaction"		"txn"}
	{"byte-order"		"byte"}
	{"recno backing file"	"rsrc"}
	{"DBM interface"	"dbm"}
	{"NDBM interface"	"ndbm"}
	{"Hsearch interface"	"hsearch"}
	}
#{"file operations"      "fop"}
#{"deadlock detection"   "dead"}
#{"subdatabase"          "sdb"}
#{"secondary index"      "sindex"}

foreach pair $test_list {
	set msg [lindex $pair 0]
set cmd [lindex $pair 1]
puts "Running $msg tests ([clock format [clock seconds] -format "%H:%M:%S"])"
if [catch {exec /usr/bin/tclsh << \
			"source ../test/test.tcl; r $cmd" \
		>>& ALL.OUT } res] {
		set o [open ALL.OUT a]
	puts $o "FAIL: $cmd test: $res"
	close $o
}
}