@@ -184,10 +184,14 @@
     (if newstate   (cdb:client-call *runremote* 'set-test-state #t *default-numtries* newstate test-id))
     (if newstatus  (cdb:client-call *runremote* 'set-test-status #t *default-numtries* newstatus test-id))
     (if newcomment (cdb:client-call *runremote* 'set-test-comment #t *default-numtries* newcomment test-id))))
    (mt:process-triggers 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-get-test-info-by-id test-id)
   (let* ((tdat (hash-table-ref/default *test-info* test-id #f)))
     (if (and tdat 
 	     (< (current-seconds)(+ (vector-ref tdat 0) 10)))