Changes In Branch v1.70-defunct Through [b6343fc4a4] Excluding Merge-Ins
This is equivalent to a diff from 85b652d5a1 to b6343fc4a4
|
2020-10-03
| ||
| 21:25 | Pull in all v1.65 before patching with prereq fix. check-in: b50ac24a01 user: matt tags: v1.70-defunct | |
|
2020-10-02
| ||
| 21:31 | Merged v1.6564-refactor check-in: b6343fc4a4 user: matt tags: v1.70-defunct | |
| 20:59 | merge-1 check-in: c46d9b2b72 user: matt tags: v1.70-defunct | |
|
2020-09-29
| ||
| 12:56 | Merged dashboard fix ==/7.81/1.8/WARN/1204/orion/== ==/8.1/1.0/WARN/1202/mars/== Closed-Leaf check-in: 68201e04df user: mrwellan tags: v1.6564-refactor | |
|
2020-09-28
| ||
| 11:25 | Moved up to 85b652 ==/3.39/1.0/PASS/1203/orion/== ==/10.9/1.0/WARN/1202/== check-in: 6e90915f98 user: mrwellan tags: v1.6564-refactor | |
|
2020-09-05
| ||
| 11:17 | Merged cleanup branch back to v1.65 ==9.4/2.2/1201/WARN/mars== check-in: 0cbf1a0b26 user: matt tags: v1.65 | |
|
2020-08-25
| ||
| 15:54 | Merged v1.65 with get-intercept and get-delay ==/8.7/1.0/WARN/1201/mars/== check-in: b0705815be user: mrwellan tags: v1.65-cleanup | |
| 15:08 | Added get-intercept and get-delay functions for load monitoring ==/FAIL/orion,zeus/== check-in: 85b652d5a1 user: jmoon18 tags: v1.65 | |
|
2020-08-24
| ||
| 17:12 | Fixes for genexample ==6.6/1.1/1201/WARN/mars== check-in: 0c2987faad user: jmoon18 tags: v1.65 | |
Modified dashboard.scm from [24d9a3f097] to [1d6bc0d494].
| ︙ | ︙ | |||
579 580 581 582 583 584 585 |
;;
;; NOTE: Yes, this is used
;;
(define (dboard:get-tests-for-run-duplicate tabdat run-id run testnamepatt key-vals)
(let* ((start-time (current-seconds))
(access-mode (dboard:tabdat-access-mode tabdat))
(num-to-get (string->number (or (configf:lookup *configdat* "setup" "num-tests-to-get")
| | | 579 580 581 582 583 584 585 586 587 588 589 590 591 592 593 |
;;
;; NOTE: Yes, this is used
;;
(define (dboard:get-tests-for-run-duplicate tabdat run-id run testnamepatt key-vals)
(let* ((start-time (current-seconds))
(access-mode (dboard:tabdat-access-mode tabdat))
(num-to-get (string->number (or (configf:lookup *configdat* "setup" "num-tests-to-get")
"50"))) ;; was 200, which is fine in a normal run area.
(states (hash-table-keys (dboard:tabdat-state-ignore-hash tabdat)))
(statuses (hash-table-keys (dboard:tabdat-status-ignore-hash tabdat)))
(do-not-use-db-file-timestamps #t) ;; (configf:lookup *configdat* "setup" "do-not-use-db-file-timestamps")) ;; this still hosts runs-summary-tab
(do-not-use-query-timestamps #t) ;; (configf:lookup *configdat* "setup" "do-not-use-query-timestamps")) ;; this no longer troubles runs-summary-tab
(sort-info (get-curr-sort))
(sort-by (vector-ref sort-info 1))
(sort-order (vector-ref sort-info 2))
|
| ︙ | ︙ |
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))
|
| ︙ | ︙ |