Overview
| Comment: | fixed a few exception |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.65 |
| Files: | files | file ages | folders |
| SHA1: |
c8b69bc77f121376922659f8a45b8502 |
| User & Date: | bjbarcla on 2017-12-29 15:15:21 |
| Other Links: | branch diff | manifest | tags |
Context
|
2017-12-29
| ||
| 15:23 | fixed problem with subrun:set-state-status check-in: 441e299543 user: bjbarcla tags: v1.65 | |
| 15:15 | fixed a few exception check-in: c8b69bc77f user: bjbarcla tags: v1.65 | |
| 15:05 | fixed problem with logs of subrun execution check-in: a354b5c1cb user: bjbarcla tags: v1.65 | |
Changes
Modified common.scm from [8bf15b5849] to [7529d3d14d].
| ︙ | ︙ | |||
2653 2654 2655 2656 2657 2658 2659 |
(define (common:join-backgrounded-threads)
;; may need to trap and ignore exceptions -- dunno how atomic threads are...
(for-each
(lambda (thread-name)
(let* ((thread (hash-table-ref/default *common:thread-punchlist* thread-name #f)))
(if thread
| > > > | > | 2653 2654 2655 2656 2657 2658 2659 2660 2661 2662 2663 2664 2665 |
(define (common:join-backgrounded-threads)
;; may need to trap and ignore exceptions -- dunno how atomic threads are...
(for-each
(lambda (thread-name)
(let* ((thread (hash-table-ref/default *common:thread-punchlist* thread-name #f)))
(if thread
(handle-exceptions
exn
#t ;; just ignore it, it might have died in the meantime so joining it will throw an exception
(thread-join! thread))
)))
(hash-table-keys *common:thread-punchlist*)))
|
Modified subrun.scm from [59afc64e7d] to [47342ae6dc].
| ︙ | ︙ | |||
85 86 87 88 89 90 91 |
(configf:write-alist testconfig "testconfig.subrun")))
(define (subrun:set-state-status test-run-dir state status new-state-status)
(if (and (not (subrun:subrun-removed? test-run-dir)) (subrun:subrun-test-initialized? test-run-dir))
(let* ((log-prefix (subrun:sanitize-path
(conc "set-state-status="new-state-status
| | | 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 |
(configf:write-alist testconfig "testconfig.subrun")))
(define (subrun:set-state-status test-run-dir state status new-state-status)
(if (and (not (subrun:subrun-removed? test-run-dir)) (subrun:subrun-test-initialized? test-run-dir))
(let* ((log-prefix (subrun:sanitize-path
(conc "set-state-status="new-state-status
(if state (conc ":state="state "")
(if status (conc "+status="status) "")))))
(submt-result
(subrun:exec-sub-megatest test-run-dir action-switches-str log-prefix)))
submt-result)))
(define (subrun:remove-subrun test-run-dir keep-records )
(if (and (not (subrun:subrun-removed? test-run-dir)) (subrun:subrun-test-initialized? test-run-dir))
|
| ︙ | ︙ |