Differences From Artifact [a87cd08699]:
- File client.scm — part of check-in [9ee5fe37f2] at 2013-05-09 09:07:18 on branch v1.54 — Corrected the server autolaunch in client start (user: mrwellan, size: 5003) [annotate] [blame] [check-ins using] [more...]
To Artifact [b5dec59d45]:
- File client.scm — part of check-in [cdf61d9fc0] at 2013-07-25 14:33:29 on branch dev — Improved exit handling of state/status for tests. If RUNNING then automatic handling is done. If other than RUNNING, simply preserve the values and roll up if an itemized test. Added to tests to better enforce this behavior. Previous behavior was mostly right but failed in some corner cases. Added database cleanup routine. Properly handle removal of tests and mark tests for a run as deleted if the run is removed (user: mrwellan, size: 5066) [annotate] [blame] [check-ins using]
| ︙ | |||
58 59 60 61 62 63 64 65 66 67 68 69 70 71 | 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 | + |
;; client:setup
(define (client:setup #!key (numtries 50))
(if (not *toppath*)
(if (not (setup-for-run))
(begin
(debug:print 0 "ERROR: failed to find megatest.config, exiting")
(exit))))
(change-directory *toppath*) ;; This is probably NOT needed
(debug:print-info 11 "*transport-type* is " *transport-type* ", *runremote* is " *runremote*)
(let* ((hostinfo (if (not *transport-type*) ;; If we dont' already have transport type set then figure it out
(open-run-close tasks:get-best-server tasks:open-db)
#f)))
;; if have hostinfo then extract the transport type
;; else fall back to fs
(debug:print-info 11 "CLIENT SETUP, hostinfo=" hostinfo)
|
| ︙ |