37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
|
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
|
+
+
+
+
+
-
+
+
+
+
+
+
+
+
+
+
+
+
|
(declare (uses mtmod))
(declare (uses servermod))
(declare (uses fsmod))
(use srfi-69)
(module testsmod
(
tests:summarize-items
tests:filter-non-runnable
tests:sort-by-priority-and-waiton
tests:lazy-dot
*
tests:summarize-test
tests:save-final-status
tests:update-central-meta-info
tests:set-full-meta-info
tests:get-compressed-steps
tests:create-html-summary
tests:create-html-summary
tests:create-html-tree
tests:summarize-items
tests:test-get-paths-matching
)
(import scheme)
(cond-expand
(chicken-4
(import chicken
ports
|
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
|
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
|
-
-
-
+
+
+
-
+
|
rmtmod
stml2
mtmod
servermod
fsmod
)
(include "common_records.scm")
(include "key_records.scm")
(include "db_records.scm")
;; (include "common_records.scm")
;; (include "key_records.scm")
;; (include "db_records.scm")
(include "run_records.scm")
(include "test_records.scm")
;; (include "test_records.scm")
(include "js-path.scm")
(define (init-java-script-lib)
(set! *java-script-lib* (conc (common:get-install-area) "/share/js/jquery-3.1.0.slim.min.js"))
)
(define (tests:summarize-items run-id test-id test-name force)
;; if not force then only update the record if one of these is true:
|