@@ -176,10 +176,14 @@
     (if newstate   (rmt:general-call 'set-test-state   run-id newstate   test-id))
     (if newstatus  (rmt:general-call 'set-test-status  run-id newstatus  test-id))
     (if newcomment (rmt:general-call 'set-test-comment run-id newcomment test-id))))
    (mt:process-triggers run-id test-id newstate newstatus)
    #t)
+
+(define (mt:test-set-state-status-by-testname run-id test-name item-path new-state new-status new-comment)
+  (let ((test-id (cdb:remote-run db:get-test-id-cached #f run-id test-name item-path)))
+    (mt:test-set-state-status-by-id test-id new-state new-status new-comment)))
 
 (define (mt:lazy-read-test-config test-name)
   (let ((tconf (hash-table-ref/default *testconfigs* test-name #f)))
     (if tconf
 	tconf