Overview
| Comment: | Transfer host/port via cmdline to tests |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | dev |
| Files: | files | file ages | folders |
| SHA1: |
fe8386f495756a43143bd6014f5ea260 |
| User & Date: | matt on 2013-03-07 23:10:13 |
| Other Links: | branch diff | manifest | tags |
Context
|
2013-03-10
| ||
| 10:56 | Moved reading of command line params out of routine that can be run remote check-in: aa38507212 user: matt tags: dev | |
|
2013-03-07
| ||
| 23:10 | Transfer host/port via cmdline to tests check-in: fe8386f495 user: matt tags: dev | |
| 22:54 | Added couple needed ignores check-in: 5edab457d0 user: matt tags: dev | |
Changes
Modified launch.scm from [ff2bbcc88b] to [d4bf3732c1].
| ︙ | |||
59 60 61 62 63 64 65 66 67 68 69 70 71 72 | 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 | + + | (top-path (assoc/default 'toppath cmdinfo)) (work-area (assoc/default 'work-area cmdinfo)) (test-name (assoc/default 'test-name cmdinfo)) (runscript (assoc/default 'runscript cmdinfo)) (ezsteps (assoc/default 'ezsteps cmdinfo)) ;; (runremote (assoc/default 'runremote cmdinfo)) (transport (assoc/default 'transport cmdinfo)) (serverinf (assoc/default 'serverinf cmdinfo)) (port (assoc/default 'port cmdinfo)) (run-id (assoc/default 'run-id cmdinfo)) (test-id (assoc/default 'test-id cmdinfo)) (target (assoc/default 'target cmdinfo)) (itemdat (assoc/default 'itemdat cmdinfo)) (env-ovrd (assoc/default 'env-ovrd cmdinfo)) (set-vars (assoc/default 'set-vars cmdinfo)) ;; pre-overrides from -setvar (runname (assoc/default 'runname cmdinfo)) |
| ︙ | |||
583 584 585 586 587 588 589 590 591 592 593 594 595 596 | 585 586 587 588 589 590 591 592 593 594 595 596 597 598 599 | + |
(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)
;; (list 'runremote *runremote*)
(list 'transport (conc *transport-type*))
(list 'serverinf *server-info*)
(list 'toppath *toppath*)
(list 'work-area work-area)
(list 'test-name test-name)
(list 'runscript runscript)
(list 'run-id run-id )
(list 'test-id test-id )
(list 'itemdat itemdat )
|
| ︙ |