Overview
| Comment: | If local check pstree locally ==/3.05/0.8/PASS/1202/mars/== |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.70-defunct |
| Files: | files | file ages | folders |
| SHA1: |
53cfda8951228fa228125effed30c393 |
| User & Date: | matt on 2020-10-02 16:03:57 |
| Original Comment: | If local check pstree locally |
| Other Links: | branch diff | manifest | tags |
Context
|
2020-10-02
| ||
| 20:59 | merge-1 check-in: c46d9b2b72 user: matt tags: v1.70-defunct | |
| 16:03 | If local check pstree locally ==/3.05/0.8/PASS/1202/mars/== check-in: 53cfda8951 user: matt tags: v1.70-defunct | |
|
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))
|
| ︙ | ︙ |