Overview
| Comment: | Added runname to info key |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
adc62d626a6c7f9b9f83bc230ebea2c9 |
| User & Date: | matt on 2011-05-07 23:51:57 |
| Other Links: | manifest | tags |
Context
|
2011-05-08
| ||
| 00:13 | Added little bit more to docs check-in: efffe52f34 user: matt tags: trunk | |
|
2011-05-07
| ||
| 23:51 | Added runname to info key check-in: adc62d626a user: matt tags: trunk | |
| 22:45 | Added installall.sh chicken scheme install script check-in: 65459fc75e user: matt tags: trunk | |
Changes
Modified launch.scm from [5bc0a599f1] to [00b4a38a03].
| ︙ | ︙ | |||
132 133 134 135 136 137 138 139 140 141 142 143 144 145 |
(lambda () ;; (list 'hosts hosts)
(write (list (list 'testpath test-path)
(list 'work-area work-area)
(list 'test-name test-name)
(list 'runscript runscript)
(list 'run-id run-id )
(list 'itemdat itemdat)
(list 'mt-bindir-path mt-bindir-path))))))) ;; (string-intersperse keyvallst " "))))
(change-directory work-area) ;; so that log files from the launch process don't clutter the test dir
(cond
((and launcher hosts) ;; must be using ssh hostname
(set! fullcmd (append launcher (car hosts)(list remote-megatest "-execute" cmdparms))))
(launcher
(set! fullcmd (append launcher (list remote-megatest "-execute" cmdparms))))
| > | 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 |
(lambda () ;; (list 'hosts hosts)
(write (list (list 'testpath test-path)
(list 'work-area work-area)
(list 'test-name test-name)
(list 'runscript runscript)
(list 'run-id run-id )
(list 'itemdat itemdat)
(list 'runname (args:get-arg ":runname"))
(list 'mt-bindir-path mt-bindir-path))))))) ;; (string-intersperse keyvallst " "))))
(change-directory work-area) ;; so that log files from the launch process don't clutter the test dir
(cond
((and launcher hosts) ;; must be using ssh hostname
(set! fullcmd (append launcher (car hosts)(list remote-megatest "-execute" cmdparms))))
(launcher
(set! fullcmd (append launcher (list remote-megatest "-execute" cmdparms))))
|
| ︙ | ︙ |