24
25
26
27
28
29
30
31
32
33
34
35
36
37
|
(declare (uses mtver))
(declare (uses debugprint))
(declare (uses commonmod))
(declare (uses configfmod))
(declare (uses rmtmod))
(declare (uses mtargs))
(declare (uses testsmod))
(module dcommon
*
(import scheme
chicken.base
chicken.condition
|
>
|
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
|
(declare (uses mtver))
(declare (uses debugprint))
(declare (uses commonmod))
(declare (uses configfmod))
(declare (uses rmtmod))
(declare (uses mtargs))
(declare (uses testsmod))
(declare (uses dbmgrmod))
(module dcommon
*
(import scheme
chicken.base
chicken.condition
|
60
61
62
63
64
65
66
67
68
69
70
71
72
73
|
srfi-69
sparse-vectors
srfi-1
)
(import mtver
dbmod
commonmod
debugprint
configfmod
rmtmod
;; gutils
(prefix mtargs args:)
testsmod)
|
>
|
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
|
srfi-69
sparse-vectors
srfi-1
)
(import mtver
dbmod
dbmgrmod
commonmod
debugprint
configfmod
rmtmod
;; gutils
(prefix mtargs args:)
testsmod)
|
545
546
547
548
549
550
551
552
553
554
555
556
557
558
559
|
(let ((src-ht (dboard:rundat-tests rundat))
(trg-ht (dboard:rundat-tests-by-name rundat)))
(if (and (hash-table? src-ht)(hash-table? trg-ht))
(begin
(hash-table-clear! trg-ht)
(for-each
(lambda (testdat)
(hash-table-set! trg-ht (test:test-get-fullname testdat) testdat))
(hash-table-values src-ht)))
(debug:print 0 *default-log-port* "WARNING: src-ht " src-ht " trg-ht " trg-ht))))
;;======================================================================
;; TESTS DATA
;;======================================================================
|
>
|
>
|
547
548
549
550
551
552
553
554
555
556
557
558
559
560
561
562
563
|
(let ((src-ht (dboard:rundat-tests rundat))
(trg-ht (dboard:rundat-tests-by-name rundat)))
(if (and (hash-table? src-ht)(hash-table? trg-ht))
(begin
(hash-table-clear! trg-ht)
(for-each
(lambda (testdat)
(if (test:testdat? testdat)
(hash-table-set! trg-ht (test:test-get-fullname testdat) testdat)
(debug:print 0 *default-log-port* "WARNING: invalid testdat record: "testdat)))
(hash-table-values src-ht)))
(debug:print 0 *default-log-port* "WARNING: src-ht " src-ht " trg-ht " trg-ht))))
;;======================================================================
;; TESTS DATA
;;======================================================================
|