Megatest

Changes On Branch 53cfda8951228fa2
Login

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

This is equivalent to a diff from cd0bb84cf2 to 53cfda8951

2020-10-04
14:41
568abab962 Leaf check-in: a4862b4d9f user: matt tags: v1.70-dashboard
14:01
Create new branch named "v1.70-fresh" Closed-Leaf check-in: f29f4050e0 user: matt tags: v1.70-fresh (unpublished)
02:13
effed Closed-Leaf check-in: 54d01a66a4 user: mrwellan tags: v1.65-defunct
00:48
From: 53cfda8951 check-in: ba457efadd user: mrwellan tags: v1.65-pre-70 (unpublished)
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-09-28
23:41
Moving call throttle attempt to v1.6564 ==5.71/0.8/WARN/1201== Leaf check-in: 919bc699d8 user: mrwellan tags: v1.65-rmt-call-throttle
22:48
Dashboard stutter fix. ==/4.7/0.8/PASS/1203/orion/== ==/6.3/0.9/WARN/1201/mars/== check-in: f525182460 user: mrwellan tags: v1.65-dashboard-stutter-fix
22:37
Cherrypicked genexample work f81a, 31ed, 3213, c9ef, 0c39, 0dbb, 658e ==/6.1/0.8/WARN/1201/mars/== Closed-Leaf check-in: ba70452f7f user: mrwellan tags: v1.65-genexample
10:23
Create new branch named "v1.6564-refactor" ==3.98/0.9/PASS/1203== check-in: ace09d605e user: mrwellan tags: v1.6564-refactor
2020-08-20
13:01
Phase 1 of extract skeleton is working. Need to generate testconfigs next. ==/5.2/0.7/WARN/1201/mars/== check-in: f81a147c94 user: mrwellan tags: v1.65
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
2020-08-19
23:53
Can't use stmt caching where string compiled changes with every query. Fixed wrong presevation of last-update for clean printing of pass/fail etc. check-in: dde2e2b857 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
                 (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* ((cmd (conc "ssh " host " 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))
 







>
>
|







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))