@@ -776,5 +776,29 @@
   (let* ((cfg-deadtime             (configf:lookup-number *configdat* "setup" "deadtime"))
 	 (test-stats-update-period (configf:lookup-number *configdat* "setup" "test-stats-update-period")))
    (rmt:find-and-mark-incomplete-engine run-id ovr-deadtime cfg-deadtime test-stats-update-period)
    ;;call end of eud of run detection for posthook
    (launch:end-of-run-check run-id)))
+
+;; set tests with state currstate and status currstatus to newstate and newstatus
+;; use currstate = #f and or currstatus = #f to apply to any state or status respectively
+;; WARNING: SQL injection risk. NB// See new but not yet used "faster" version below
+;;
+;;  AND NOT (item_path='' AND testname in (SELECT DISTINCT testname FROM tests WHERE testname=? AND item_path != ''));")))
+;;  (debug:print 0 *default-log-port* "QRY: " qry)
+;;  (db:delay-if-busy)
+;;
+;; NB// This call only operates on toplevel tests. Consider replacing it with more general call
+;;
+(define (rmt:set-tests-state-status run-id testnames currstate currstatus newstate newstatus)
+  (let ((test-ids '()))
+    (for-each
+     (lambda (testname)
+       (let ((test-id   (db:get-test-id dbstruct run-id testname "")))
+	 (rmt:set-state-status-by-state-status run-id testname currstate currstatus newstate newstatus)
+	 (if test-id
+	     (begin
+	       (set! test-ids (cons test-id test-ids))
+	       (mt:process-triggers run-id test-id newstate newstatus)))))
+     testnames)
+    test-ids))
+