Index: api.scm
==================================================================
--- api.scm
+++ api.scm
@@ -35,10 +35,11 @@
     ((general-call)                 (let ((stmtname   (car params))
 					  (realparams (cdr params)))
 				      (db:general-call db stmtname realparams)))
     ((set-tests-state-status)       (apply db:set-state-status db params))
     ((get-tests-for-run)            (map vector->list (apply db:get-tests-for-run db params)))
+    ((get-test-id)                  (apply db:get-test-id-not-cached db params))
     (else
      (list "ERROR" 0))))
 
 ;; http-server  send-response
 ;;                 api:process-request

Index: rmt.scm
==================================================================
--- rmt.scm
+++ rmt.scm
@@ -86,10 +86,13 @@
 
 ;;======================================================================
 ;;  T E S T S
 ;;======================================================================
 
+(define (rmt:get-test-id run-id testname item-path)
+  (rmt:send-receive 'get-test-id (list run-id testname item-path)))
+
 (define (rmt:get-test-info-by-id test-id)
   (let ((res (rmt:send-receive 'get-test-info-by-id (list test-id))))
     (if (list? res)
 	(list->vector res)
 	res)))

Index: tests/unittests/server.scm
==================================================================
--- tests/unittests/server.scm
+++ tests/unittests/server.scm
@@ -46,39 +46,12 @@
 (test "get run info"  "firstrun"  (let ((rinfo (rmt:get-run-info 1)))
 				    (vector-ref (vector-ref rinfo 1) 3)))
 (test "get tests (no data)" '()   (rmt:get-tests-for-run 1 "%" '() '() #f #f #f #f #f #f))
 (test "register test"       #t    (rmt:general-call 'register-test 1 "test1" ""))
 (test "get tests (some data)"  1  (length (rmt:get-tests-for-run 1 "%" '() '() #f #f #f #f #f #f)))
-
-;; ;; (set! *verbosity* 20)
-;; (test #f *verbosity* (cadr (cdb:set-verbosity *runremote* *verbosity*)))
-;; (test #f #f (cdb:roll-up-pass-fail-counts *runremote* 1 "test1" "" "PASS"))
-;; ;; (set! *verbosity* 1)
-;; ;; (cdb:set-verbosity *runremote* *verbosity*)
-;; 
-;; 
-;; 
-;; (test "get-keys" "SYSTEM" (car (db:get-keys *db*)))
-;; 
-;; (define remargs (args:get-args
-;; 		 '("bar" "foo" ":runname" "bob" ":SYSTEM" "ubuntu" ":RELEASE" "v1.2" ":datapath" "blah/foo" "nada")
-;; 		 (list ":runname" ":state" ":status")
-;; 		 (list "-h")
-;; 		 args:arg-hash
-;; 		 0))
-;; 
-;; (test "register-run" #t (number?
-;; 			 (rmt:register-run '(("SYSTEM" "key1")("RELEASE" "key2"))
-;; 					   "myrun" 
-;; 					   "new"
-;; 					   "n/a" 
-;; 					   "bob")))
-;; 
-;; (test #f #t             (cdb:tests-register-test *runremote* 1 "nada" ""))
-;; (test #f 1              (cdb:remote-run db:get-test-id #f 1 "nada" ""))
-;; (test #f "NOT_STARTED"  (vector-ref (open-run-close db:get-test-info #f 1 "nada" "") 3))
-;; (test #f "NOT_STARTED"  (vector-ref (cdb:get-test-info *runremote* 1 "nada" "") 3))
+(test "get test id"            1  (rmt:get-test-id 1 "test1" ""))
+
 
 ;;======================================================================
 ;; D B
 ;;======================================================================