Overview
| Comment: | tweak |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | servermode |
| Files: | files | file ages | folders |
| SHA1: |
044818b98f6850ca2332c810feab08a1 |
| User & Date: | matt on 2012-03-11 22:00:47 |
| Other Links: | branch diff | manifest | tags |
Context
|
2012-03-11
| ||
| 22:47 | Added IPADDR option to makefile check-in: 71cdd263a3 user: mrwellan tags: servermode | |
| 22:00 | tweak check-in: 044818b98f user: matt tags: servermode | |
| 20:59 | Minor tweaks that may help server mode check-in: 40b4f08239 user: matt tags: servermode | |
Changes
Modified launch.scm from [08d732cd8f] to [0b40b3f299].
| ︙ | ︙ | |||
506 507 508 509 510 511 512 |
(launcher
(set! fullcmd (append launcher (list remote-megatest test-sig "-execute" cmdparms))))
(else
(if (not useshell)(debug:print 0 "WARNING: internal launching will not work well without \"useshell yes\" in your [jobtools] section"))
(set! fullcmd (list remote-megatest test-sig "-execute" cmdparms (if useshell "&" "")))))
(if (args:get-arg "-xterm")(set! fullcmd (append fullcmd (list "-xterm"))))
(debug:print 1 "Launching megatest for test " test-name " in " work-area" ...")
| | | 506 507 508 509 510 511 512 513 514 515 516 517 518 519 520 |
(launcher
(set! fullcmd (append launcher (list remote-megatest test-sig "-execute" cmdparms))))
(else
(if (not useshell)(debug:print 0 "WARNING: internal launching will not work well without \"useshell yes\" in your [jobtools] section"))
(set! fullcmd (list remote-megatest test-sig "-execute" cmdparms (if useshell "&" "")))))
(if (args:get-arg "-xterm")(set! fullcmd (append fullcmd (list "-xterm"))))
(debug:print 1 "Launching megatest for test " test-name " in " work-area" ...")
(test-set-status! db test-id "LAUNCHED" "n/a" #f #f) ;; (if launch-results launch-results "FAILED"))
;; set pre-launch-env-vars before launching, keep the vars in prevvals and put the envionment back when done
(debug:print 4 "fullcmd: " fullcmd)
(let* ((commonprevvals (alist->env-vars
(hash-table-ref/default *configdat* "env-override" '())))
(testprevvals (alist->env-vars
(hash-table-ref/default test-conf "pre-launch-env-overrides" '())))
(miscprevvals (alist->env-vars ;; consolidate this code with the code in megatest.scm for "-execute"
|
| ︙ | ︙ |