38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
|
(declare (uses mtmod))
(declare (uses megatestmod))
(declare (uses tasksmod))
(use srfi-69)
(module subrunmod
*
|
<
>
>
>
>
>
>
>
>
>
>
>
>
|
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
|
(declare (uses mtmod))
(declare (uses megatestmod))
(declare (uses tasksmod))
(use srfi-69)
(module subrunmod
(
subrun:launch-dashboard
subrun:get-runarea
subrun:set-state-status
subrun:kill-subrun
subrun:get-log-path
subrun:remove-subrun
subrun:subrun-removed?
subrun:subrun-test-initialized?
subrun:launch-cmd
subrun:initialize-toprun-test
)
(import scheme)
(cond-expand
(chicken-4
(import chicken
ports
|
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
|
mtmod
megatestmod
tasksmod
)
;(include "common_records.scm")
;;(include "key_records.scm")
(include "db_records.scm") ;; provides db:test-get-id
;;(include "run_records.scm")
;;(include "test_records.scm")
(define (subrun:subrun-test-initialized? test-run-dir)
(if (and (common:file-exists? (conc test-run-dir "/subrun-area") )
(common:file-exists? (conc test-run-dir "/testconfig.subrun") ))
#t
|
|
|
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
|
mtmod
megatestmod
tasksmod
)
;(include "common_records.scm")
;;(include "key_records.scm")
;; (include "db_records.scm") ;; provides db:test-get-id
;;(include "run_records.scm")
;;(include "test_records.scm")
(define (subrun:subrun-test-initialized? test-run-dir)
(if (and (common:file-exists? (conc test-run-dir "/subrun-area") )
(common:file-exists? (conc test-run-dir "/testconfig.subrun") ))
#t
|