Overview
| Comment: | Added missing load of testconfig |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.64-area-fix |
| Files: | files | file ages | folders |
| SHA1: |
e8937252ee7b3e4ff84f6924dcb5915f |
| User & Date: | matt on 2017-05-19 07:28:36 |
| Other Links: | branch diff | manifest | tags |
Context
|
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 | |
| 06:50 | Unfinished test run area creation fixes check-in: 2953652089 user: matt tags: v1.64-area-fix | |
Changes
Modified launch.scm from [5730fd952a] to [7d7e3dbc6a].
| ︙ | ︙ | |||
537 538 539 540 541 542 543 544 545 546 547 548 549 550 | (set-signal-handler! signal/term sighand) ) ;; (set-signal-handler! signal/stop sighand) ;; Do not run the test if it is REMOVING, RUNNING, KILLREQ or REMOTEHOSTSTART, ;; Mark the test as REMOTEHOSTSTART *IMMEDIATELY* ;; (let* ((test-info (rmt:get-test-info-by-id run-id test-id)) (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) (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 test-path #f test-name itemdat tconfig: tconfig))) | > | 537 538 539 540 541 542 543 544 545 546 547 548 549 550 551 | (set-signal-handler! signal/term sighand) ) ;; (set-signal-handler! signal/stop sighand) ;; Do not run the test if it is REMOVING, RUNNING, KILLREQ or REMOTEHOSTSTART, ;; 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) (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 test-path #f test-name itemdat tconfig: tconfig))) |
| ︙ | ︙ |