541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
558
|
;; Mark the test as REMOTEHOSTSTART *IMMEDIATELY*
;;
(let* ((test-info (rmt:get-test-info-by-id run-id test-id))
(tconfig (tests:get-testconfig test-name item-path tconfigreg #t force-create: #t))
(test-host (db:test-get-host test-info))
(test-pid (db:test-get-process_id test-info)))
;; if work-area was pre-ordained, use it, else create and then use
(if (not (and (file-exists? work-area)
(let ((dat (create-work-area run-id runname keyvals test-id test-path #f test-name itemdat tconfig: tconfig)))
(set! work-area (car dat))
;; (set! toptest-work-area (cadr dat)) ;; not used
(debug:print-info 2 *default-log-port* "Using work area " work-area)))
(setenv "MT_TEST_RUN_DIR" work-area)
(cond
|
>
|
|
|
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
558
559
|
;; Mark the test as REMOTEHOSTSTART *IMMEDIATELY*
;;
(let* ((test-info (rmt:get-test-info-by-id run-id test-id))
(tconfig (tests:get-testconfig test-name item-path tconfigreg #t force-create: #t))
(test-host (db:test-get-host test-info))
(test-pid (db:test-get-process_id test-info)))
;; if work-area was pre-ordained, use it, else create and then use
(if (not (and work-area
(file-exists? work-area)
(file-is-directory? work-area)))
;; (if (configf:var-is? *configdat* "setup" "early-setup" "yes")
(let ((dat (create-work-area run-id runname keyvals test-id testpath #f test-name itemdat tconfig: tconfig)))
(set! work-area (car dat))
;; (set! toptest-work-area (cadr dat)) ;; not used
(debug:print-info 2 *default-log-port* "Using work area " work-area)))
(setenv "MT_TEST_RUN_DIR" work-area)
(cond
|