Megatest

           (running-cnt (rmt:get-count-tests-running-for-run-id run-id))
           (all-test-launched (rmt:get-var (conc "lunch-complete-" run-id)))
           (current-state (rmt:get-run-state run-id))
           (current-status (rmt:get-run-status run-id)))
     ;;get-vars run-id to query metadata table to check if all completed. if all-test-launched = yes then only not-completed-cnt = 0 means everyting is completed if no entry found in the table do nothing 
     (debug:print 0 *default-log-port* "rollup run state/status")                      
     (rmt:set-state-status-and-roll-up-run  run-id current-state current-status)
     (runs:update-junit-test-reporter-xml run-id) 
     (cond 
       ((and all-test-launched (eq? not-completed-cnt 0) (equal? all-test-launched "yes" ))
           	(debug:print 0 *default-log-port* "look for  post hook.")
          	(runs:run-post-hook run-id))
        ((> running-cnt 3) 
        	  (debug:print 0 *default-log-port* "There are " running-cnt " tests running." ))
        ((> running-cnt 0)

;; 
;;     You should have received a copy of the GNU General Public License
;;     along with Megatest.  If not, see <http://www.gnu.org/licenses/>.

;;  strftime('%m/%d/%Y %H:%M:%S','now','localtime')

(use (prefix sqlite3 sqlite3:) srfi-1 posix regex regex-case srfi-69 (srfi 18) 
     posix-extras directory-utils pathname-expand typed-records format  sxml-serializer sxml-modifications)

(declare (unit runs))
(declare (uses db))
(declare (uses common))
(declare (uses items))
(declare (uses runconfig))
(declare (uses tests))

	    (sqlite3:execute 
	     db 
	     (conc "INSERT OR REPLACE INTO test_data (test_id,category,variable,value,expected,tol,units,comment) "
		   "SELECT " (db:test-get-id new-testdat) ",category,variable,value,expected,tol,units,comment FROM test_data WHERE test_id=?;")
	     (db:test-get-id testdat))))
	 ))
     prev-tests)))

(define doc 
  '(*TOP*
    (*PI* xml "version='1.0'")
    (testsuite)))

(define (runs:update-junit-test-reporter-xml run-id)
	(let*	((junit-test-reporter	(configf:lookup *configdat* "runs" "junit-test-reporter-xml"))
		(xml-dir		(if (and junit-test-reporter (equal? junit-test-reporter "yes" ))
						(conc (getenv "MT_LINKTREE") "/" (getenv "MT_TARGET") "/" (getenv "MT_RUNNAME"))
						#f))
		(xml-path		(if xml-dir
						(conc xml-dir "/junit-test-reporter.xml")
						#f))
		(xml-ts-name		(if xml-dir
						(conc (string-translate (getenv "MT_TARGET") "/" ".") "." (getenv "MT_RUNNAME"))
						#f))
		(test-data		(if xml-dir
						(rmt:get-tests-for-run run-id "%" '() '() ;; run-id testpatt states statuses
                                                      #f #f ;; offset limit
                                                      #f ;; not-in
                                                      #f ;; sort-by
                                                      #f ;; sort-order
                                                      #f ;; get full data (not 'shortlist)
                                                      0 ;; (runs:gendat-inc-results-last-update *runs:general-data*) ;; last update time
                                                      #f)
						'()))
		(tests-count		(if xml-dir (length test-data) #f)))
		(if (and junit-test-reporter (equal? junit-test-reporter "yes" ))
			(begin
                      (debug:print 0 *default-log-port* (conc "*********************************************\n Running junit-test-reporter at " xml-path"\n *****************************************"))
				((sxml-modify!  `("testsuite" insert-into (@ (name ,xml-ts-name) (tests ,tests-count)))) doc)
				(map (lambda (test)
					(let*	((test-name	(vector-ref test 2))
						(test-itempath	(vector-ref test 11))
						(tc-name	(conc test-name  (if (and test-itempath (not (equal? test-itempath "")))  (conc "." (string-translate test-itempath "/" "." )) "")))
						(test-state	(vector-ref test 3))
						(test-status	(vector-ref test 4)))
                                       ;(print test)
                                      (cond 
					((member test-state (list "LAUNCHED" "REMOTEHOSTSTART" "RUNNING" ))
						((sxml-modify! `("testsuite" insert-into (testcase (@ (name ,tc-name)) (inProgress (@ (type "inProgress")))))) doc))
					((member test-status (list "PASS" "WARN" "WAIVED"))
						((sxml-modify! `("testsuite" insert-into (testcase (@ (name ,tc-name))))) doc))
					((member test-status (list "FAIL" "CHECK"))
						((sxml-modify! `("testsuite" insert-into (testcase (@ (name ,tc-name)) (failure (@ (message "what to use?") (type "failure")))))) doc))
					((member test-status (list "DEAD" "KILLED" "ABORT" "PREQ_FAIL" "PREQ_DISCARDED"))
						((sxml-modify! `("testsuite" insert-into (testcase (@ (name ,tc-name)) (failure (@ (message "what to use?") (type "error")))))) doc))
					((member test-state (list "SKIP"))
						((sxml-modify! `("testsuite" insert-into (testcase (@ (name ,tc-name)) (skipped (@ (type "skipped")))))) doc))
                                      (else 
                                       (debug:print 0 *default-log-port* (conc "What do I do with State " test-state " Status " test-status))))))
			test-data)
			(with-output-to-file xml-path      (lambda ()
				(print (sxml-serializer#serialize-sxml doc  ns-prefixes: (list (cons 'gnm "http://foo"))))))))))

	 
     
;; clean cache files
(define (runs:clean-cache target runname toppath)
  (if target
      (if runname
	  (let* ((linktree (common:get-linktree)) ;; (if toppath (configf:lookup *configdat* "setup" "linktree")))