Overview
| Comment: | Added speculative fix (try few times) to lauch where it is trying to get the test-info. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.65-broken |
| Files: | files | file ages | folders |
| SHA1: |
18da8b6a613e8ee42c2b82fd00fedcf3 |
| User & Date: | mrwellan on 2020-04-29 14:39:32 |
| Other Links: | branch diff | manifest | tags |
Context
|
2020-04-30
| ||
| 16:22 | rewrite absurdly long log file names if over 250 chars long check-in: 0a9e690b28 user: mrwellan tags: v1.65-broken | |
|
2020-04-29
| ||
| 14:39 | Added speculative fix (try few times) to lauch where it is trying to get the test-info. check-in: 18da8b6a61 user: mrwellan tags: v1.65-broken | |
|
2020-04-28
| ||
| 18:08 | Added fix for case where rmt calls returns a non list and a list length call crashes. check-in: 7ff937a8a2 user: mrwellan tags: v1.65-broken | |
Changes
Modified launch.scm from [a7b2c96db0] to [76b25bc200].
| ︙ | ︙ | |||
621 622 623 624 625 626 627 | (set-signal-handler! signal/int sighand) (set-signal-handler! signal/term sighand) ) ;; (set-signal-handler! signal/stop sighand) ;; Do not run the test if it is REMOVING, RUNNING, KILLREQ or REMOTEHOSTSTART, ;; Mark the test as REMOTEHOSTSTART *IMMEDIATELY* ;; | > | > > > > > > > | 621 622 623 624 625 626 627 628 629 630 631 632 633 634 635 636 637 638 639 640 641 642 643 | (set-signal-handler! signal/int sighand) (set-signal-handler! signal/term sighand) ) ;; (set-signal-handler! signal/stop sighand) ;; Do not run the test if it is REMOVING, RUNNING, KILLREQ or REMOTEHOSTSTART, ;; Mark the test as REMOTEHOSTSTART *IMMEDIATELY* ;; (let* ((test-info (let loop ((tries 0)) (let ((tinfo (rmt:get-test-info-by-id run-id test-id))) (if tinfo tinfo (if (> tries 10) #f (begin (thread-sleep! (+ 1 (* tries 10))) (loop (+ tries 1)))))))) (test-host (if test-info (db:test-get-host test-info) (begin (debug:print 0 *default-log-port* "ERROR: failed to find a record for test-id " test-id ", exiting.") (exit)))) (test-pid (db:test-get-process_id test-info))) (cond |
| ︙ | ︙ |