Overview
| Comment: | Missed a location using launch:is-test-alive, converted it to commonmod: |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.80 |
| Files: | files | file ages | folders |
| SHA1: |
c7687dbe897b462a12ed97841f35cf4d |
| User & Date: | matt on 2023-04-14 06:17:01 |
| Other Links: | branch diff | manifest | tags |
Context
|
2023-04-15
| ||
| 09:14 | merged fork check-in: 532a2581c9 user: matt tags: v1.80 | |
|
2023-04-14
| ||
| 12:56 | committed merge check-in: 4131c9a1b5 user: mmgraham tags: v1.80-servload-side | |
| 06:17 | Missed a location using launch:is-test-alive, converted it to commonmod: check-in: c7687dbe89 user: matt tags: v1.80 | |
|
2023-04-13
| ||
| 15:37 | Removed assert that is in wrong place check-in: f026e9979d user: mrwellan tags: v1.80 | |
Changes
Modified launch.scm from [529c736da5] to [7e82dfb83e].
| ︙ | ︙ | |||
827 828 829 830 831 832 833 |
(tal (cdr not-completed-tests)))
(let* ((test-name (vector-ref running-test 2))
(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)))))))))))
| < < < < < < < < < < < | | 827 828 829 830 831 832 833 834 835 836 837 838 839 840 841 842 843 844 845 846 847 848 849 850 851 852 853 854 855 |
(tal (cdr not-completed-tests)))
(let* ((test-name (vector-ref running-test 2))
(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:kill-tests-if-dead run-id)
(let* ((running-tests (rmt:get-tests-for-run run-id "%" `("RUNNING" "LAUNCHED" "REMOTEHOSTSTART") `() #f #f #f #f #f #f #f #f)))
(let loop ((running-test (car running-tests))
(tal (cdr running-tests))
(kill-cnt 0))
(let* ((test-name (vector-ref running-test 2))
(item-path (vector-ref running-test 11))
(test-id (vector-ref running-test 0))
(host (vector-ref running-test 6))
(pid (rmt:test-get-top-process-pid run-id test-id))
(event-time (vector-ref running-test 5))
(duration (vector-ref running-test 12))
(flag 0)
(curr-time (current-seconds)))
(if (and (< (+ event-time duration 600) curr-time) (not (commonmod:is-test-alive host pid))) ;;test has not updated duration in last 10 min then likely its not running but confirm before marking it as killed
(begin
(debug:print 0 *default-log-port* "test " test-name "/" item-path " needs to be killed")
(set! flag 1)
(rmt:set-state-status-and-roll-up-items run-id test-name item-path "KILLREQ" "n/a" #f)))
(if (not (null? tal))
(loop (car tal) (cdr tal) (+ kill-cnt flag))
(+ kill-cnt flag))))))
|
| ︙ | ︙ |