10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
|
(define run-id 1)
(test "setup for run" #t (begin (launch:setup-for-run *area-dat*)
(string? (getenv "MT_RUN_AREA_HOME"))))
;; NON Server tests go here
(test #f #f (db:dbdat-get-path *db* *area-dat*))
(test #f #f (db:get-run-name-from-id *db* run-id))
;; (test #f '("SYSTEM" "RELEASE") (rmt:get-keys))
;; (exit)
;; Server tests go here
(for-each
(lambda (run-id)
|
|
|
|
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
|
(define run-id 1)
(test "setup for run" #t (begin (launch:setup-for-run *area-dat*)
(string? (getenv "MT_RUN_AREA_HOME"))))
;; NON Server tests go here
(test #f #f (db:dbdat-get-path *db*))
(test #f #f (db:get-run-name-from-id *db* *area-dat* run-id))
;; (test #f '("SYSTEM" "RELEASE") (rmt:get-keys))
;; (exit)
;; Server tests go here
(for-each
(lambda (run-id)
|