Overview
| Comment: | Added info print to help resolve links vs. run area |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
e1b6d511c28330a57d51c8824eb3cad9 |
| User & Date: | mrwellan on 2012-04-02 01:47:58 |
| Other Links: | manifest | tags |
Context
|
2012-04-02
| ||
| 09:09 | Merged in debug improvement, debug is now passed on to the test execution check-in: ef011a974f user: mrwellan tags: trunk | |
| 01:47 | Added info print to help resolve links vs. run area check-in: e1b6d511c2 user: mrwellan tags: trunk | |
| 01:40 | Restructured runs dir and links check-in: c661cee49c user: mrwellan tags: trunk | |
Changes
Modified launch.scm from [c5891929fb] to [8808c31a38].
| ︙ | ︙ | |||
525 526 527 528 529 530 531 |
(set! mt-bindir-path (pathname-directory remote-megatest))
(if launcher (set! launcher (string-split launcher)))
;; set up the run work area for this test
(set! diskpath (get-best-disk *configdat*))
(if diskpath
(let ((dat (create-work-area db run-id test-path diskpath test-name itemdat)))
(set! work-area (car dat))
| | > | 525 526 527 528 529 530 531 532 533 534 535 536 537 538 539 540 |
(set! mt-bindir-path (pathname-directory remote-megatest))
(if launcher (set! launcher (string-split launcher)))
;; set up the run work area for this test
(set! diskpath (get-best-disk *configdat*))
(if diskpath
(let ((dat (create-work-area db run-id test-path diskpath test-name itemdat)))
(set! work-area (car dat))
(set! toptest-work-area (cadr dat))
(debug:print 2 "INFO: Using work area " work-area))
(begin
(set! work-area (conc test-path "/tmp_run"))
(create-directory work-area #t)
(debug:print 0 "WARNING: No disk work area specified - running in the test directory under tmp_run")))
(set! cmdparms (base64:base64-encode (with-output-to-string
(lambda () ;; (list 'hosts hosts)
(write (list (list 'testpath test-path)
|
| ︙ | ︙ |