Megatest

Changes On Branch c46d9b2b720b008d
Login

Changes In Branch v1.70-defunct Through [c46d9b2b72] Excluding Merge-Ins

This is equivalent to a diff from 568abab962 to c46d9b2b72

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
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-24
17:12
Fixes for genexample ==6.6/1.1/1201/WARN/mars== check-in: 0c2987faad user: jmoon18 tags: v1.65
2020-08-22
14:14
Merged in partial content from v1.66-captain-ulex work. ==7.2/0.9/1201/mars== check-in: 070ebd2d0d user: matt tags: v1.65-cleanup
2020-08-21
16:51
Merging v1.66 *applicable* changes to v1.65. check-in: 48f4863bc1 user: mrwellan tags: v1.65-merge-forward-v1.66
10:42
Removed row-indices print that was spamming console while dashboard was in summary mode ==/8.99/1.6/WARN/1203/orion/== check-in: 568abab962 user: jmoon18 tags: v1.65
10:00
Removed junk noise ==/6.2/0.8/WARN/1202/mars/== check-in: 46d8ccee29 user: mrwellan tags: v1.65

Modified launch.scm from [747c3edf8a] to [924f51a8e1].

944
945
946
947
948
949
950


951

952
953
954
955
956
957
958
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 " ")))
      (let* ((cmd (conc "ssh " host " pstree -A " pid))
	     (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))