Megatest

Diff
Login

Differences From Artifact [e8093b3e63]:

To Artifact [fd65f376ed]:


769
770
771
772
773
774
775


776

777
778
779
780
781
782
783
769
770
771
772
773
774
775
776
777

778
779
780
781
782
783
784
785







+
+
-
+







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