Overview
| Comment: | Missed a change to reference % for run killing |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.60 |
| Files: | files | file ages | folders |
| SHA1: |
7895c3fddfb8f7f87c0863261807a890 |
| User & Date: | mrwellan on 2015-07-28 13:54:13 |
| Other Links: | branch diff | manifest | tags |
Context
|
2015-07-29
| ||
| 23:57 | dep test tweak check-in: 45bb26b72a user: mrwellan tags: v1.60 | |
| 01:28 | Attempted mechanism to propagate itempatt with an itemmap check-in: ffb9b4f85a user: matt tags: v1.60-itempatt-itemmap | |
|
2015-07-28
| ||
| 13:54 | Missed a change to reference % for run killing check-in: 7895c3fddf user: mrwellan tags: v1.60 | |
| 13:44 | Kill runner processes when clean is called and the testpatt is an exact match check-in: 9808763d4b user: mrwellan tags: v1.60 | |
Changes
Modified tasks.scm from [03c29b386e] to [2559bee69c].
| ︙ | ︙ | |||
742 743 744 745 746 747 748 |
res)) ;; )
;; kill any runner processes (i.e. processes handling -runtests) that match target/runname
;;
;; do a remote call to get the task queue info but do the killing as self here.
;;
(define (tasks:kill-runner target run-name testpatt)
| | | 742 743 744 745 746 747 748 749 750 751 752 753 754 755 756 |
res)) ;; )
;; kill any runner processes (i.e. processes handling -runtests) that match target/runname
;;
;; do a remote call to get the task queue info but do the killing as self here.
;;
(define (tasks:kill-runner target run-name testpatt)
(let ((records (rmt:tasks-find-task-queue-records target run-name testpatt "running" "run-tests"))
(hostpid-rx (regexp "\\s+(\\w+)\\s+(\\d+)$"))) ;; host pid is at end of param string
(if (null? records)
(debug:print 0 "No run launching processes found for " target " / " run-name " with testpatt " (or testpatt "* no testpatt specified! *"))
(debug:print 0 "Found " (length records) " run(s) to kill."))
(for-each
(lambda (record)
(let* ((param-key (list-ref record 8))
|
| ︙ | ︙ |