Overview
Comment: | From: 53cfda8951 |
---|---|
Downloads: | Tarball | ZIP archive | SQL archive |
Timelines: | family | ancestors | descendants | both | v1.65-pre-70 |
Files: | files | file ages | folders |
SHA1: |
ba457efadd73820afee3042a77e83148 |
User & Date: | mrwellan on 2020-10-04 00:48:00 |
Other Links: | branch diff | manifest | tags |
Context
2020-10-04
| ||
01:59 | Getting closer to starting point without the bug Closed-Leaf check-in: 447356ffac user: mrwellan tags: v1.65-pre-70 (unpublished) | |
00:48 | From: 53cfda8951 check-in: ba457efadd user: mrwellan tags: v1.65-pre-70 (unpublished) | |
2020-08-20
| ||
11:11 | changed version to 1.6564 ==3.39/1.0/PASS/1203/orion== v1.70 START check-in: cd0bb84cf2 user: mmgraham tags: v1.65, v1.6564 | |
Changes
Modified launch.scm from [747c3edf8a] to [924f51a8e1].
︙ | ︙ | |||
944 945 946 947 948 949 950 | (item-path (vector-ref running-test 11))) (debug:print 0 *default-log-port* "test " test-name "/" item-path " not completed") (if (not (null? tal)) (loop (car tal) (cdr tal))))))))))) (define (launch:is-test-alive host pid) (if (and host pid (not (equal? host "n/a"))) | > > | | 944 945 946 947 948 949 950 951 952 953 954 955 956 957 958 959 960 | (item-path (vector-ref running-test 11))) (debug:print 0 *default-log-port* "test " test-name "/" item-path " not completed") (if (not (null? tal)) (loop (car tal) (cdr tal))))))))))) (define (launch:is-test-alive host pid) (if (and host pid (not (equal? host "n/a"))) (let* ((is-local (equal? host (get-host-name))) (ssh-cmd (if is-local " " (conc "ssh " host " "))) (cmd (conc ssh-cmd "pstree -A " pid)) (output (with-input-from-pipe cmd read-lines))) (debug:print 2 *default-log-port* "Running " cmd " received " output) (if (eq? (length output) 0) #f #t)) #t)) |
︙ | ︙ |