Overview
| Comment: | fixed typo in megatest.scm |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.64 |
| Files: | files | file ages | folders |
| SHA1: |
21852a2d21536bd4863ee0da59dc607c |
| User & Date: | bjbarcla on 2017-05-04 17:18:49 |
| Other Links: | branch diff | manifest | tags |
Context
|
2017-05-05
| ||
| 11:17 | Fixed LD_LIBRARY_PATH handling in wrapper check-in: a2b3efa030 user: mrwellan tags: v1.64 | |
|
2017-05-04
| ||
| 17:18 | fixed typo in megatest.scm check-in: 21852a2d21 user: bjbarcla tags: v1.64 | |
| 03:41 | Roll up to NOT_STARTED/CHECK if some items are NOT_STARTED in itemized test check-in: daa067f8d1 user: matt tags: v1.64, v1.6409 | |
Changes
Modified megatest.scm from [93e890a2af] to [eb075a7248].
| ︙ | ︙ | |||
431 432 433 434 435 436 437 |
;; manually started and thus should never be started in a non-megatest area. Thus no need to handle situation
;; where (launch:setup) returns #f?
;;
(if (or (args:get-arg "-log")(args:get-arg "-server")) ;; redirect the log always when a server
(handle-exceptions
exn
(begin
| | | 431 432 433 434 435 436 437 438 439 440 441 442 443 444 445 |
;; manually started and thus should never be started in a non-megatest area. Thus no need to handle situation
;; where (launch:setup) returns #f?
;;
(if (or (args:get-arg "-log")(args:get-arg "-server")) ;; redirect the log always when a server
(handle-exceptions
exn
(begin
(print "ERROR: Failed to switch to log output. " ((condition-property-accessor 'exn 'message) exn))
)
(let* ((tl (or (args:get-arg "-log")(launch:setup))) ;; run launch:setup if -server, ensure we do NOT run launch:setup if -log specified
(logf (or (args:get-arg "-log") ;; use -log unless we are a server, then craft a logfile name
(conc tl "/logs/server-" (current-process-id) "-" (get-host-name) ".log")))
(oup (open-logfile logf)))
(if (not (args:get-arg "-log"))
(hash-table-set! args:arg-hash "-log" logf)) ;; fake out future queries of -log
|
| ︙ | ︙ |