Overview
| Comment: | fixed typo .... |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.64-area-fix |
| Files: | files | file ages | folders |
| SHA1: |
bac36435cb25a31269c15a66589b378a |
| User & Date: | mrwellan on 2017-05-19 22:17:16 |
| Other Links: | branch diff | manifest | tags |
Context
|
2017-05-21
| ||
| 21:45 | Brought up to date with v1.64. Next up, speculatively create working directory for a test. Check space on actual test launch. If existing created directory is on best disk, use it. Else get new area on best disk and create pointer so Megatest can remove original when asked to remove the test. Closed-Leaf check-in: 3766f8e4ea user: matt tags: v1.64-area-fix | |
|
2017-05-19
| ||
| 22:17 | fixed typo .... check-in: bac36435cb user: mrwellan tags: v1.64-area-fix | |
| 07:28 | Added missing load of testconfig check-in: e8937252ee user: matt tags: v1.64-area-fix | |
Changes
Modified launch.scm from [7d7e3dbc6a] to [ab0c9fc604].
| ︙ | ︙ | |||
541 542 543 544 545 546 547 | ;; 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 | > | | | 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
|
| ︙ | ︙ |