Index: tests/unittests/all-rmt.scm
==================================================================
--- tests/unittests/all-rmt.scm
+++ tests/unittests/all-rmt.scm
@@ -59,12 +59,11 @@
                                            
 (test #f #t (list? (rmt:get-changed-record-ids 0)))
 
 (test #f #f (begin (runs:update-all-test_meta #f) #f))
 
-(test #f '("test1" "test2")(sort (alist-ref "tagtwo" (hash-table->alist (rmt:get-tests-tags)) equal?) string<=))
-
+(test #f '("test1" "test2")(sort (alist-ref "tagtwo" (rmt:get-tests-tags) equal?) string<=))
 (test #f '() (rmt:get-key-val-pairs 0))
 (test #f '("SYSTEM" "RELEASE") (rmt:get-keys))
 (test #f '("SYSTEM" "RELEASE") (rmt:get-keys-write)) ;; dummy query to force server start
 (test #f '() (rmt:get-key-vals 1))
 (test #f (vector '("SYSTEM" "RELEASE") '()) (rmt:get-targets))
@@ -129,10 +128,25 @@
                            ;; (print "rmt:get-runs-by-patt returned: " res)
                            (and (vector? res)
                                 (let ((rows (vector-ref res 1)))
                                   (> (length rows) 0))))))
 
+
+(test #f '(("Totals" "UNKNOWN" 1) ("bar" "UNKNOWN" 1)) (begin (rmt:get-run-stats)))
+(test #f #t (begin (rmt:set-run-state-status 1 "COMPLETE" "PASS") #t))
+(test #f '"COMPLETE" (rmt:get-run-state 1))
+(test #f '"PASS" (rmt:get-run-status 1))
+(test #f #t (begin (rmt:set-var "foo" "bar")#t))
+(test #f "bar" (rmt:get-var "foo"))
+(test #f #t (begin (rmt:print-db-stats) #t))
+(test #f #t (begin (rmt:del-var "foo") #t))
+(test #f #f (rmt:get-var "foo"))
+(test #f (vector #f #f #f #f #f #f #f #f #f #f #f #f) (rmt:get-data-info-by-id 1))
+(test #f '() (rmt:get-key-vals 1))
+(test #f "ubuntu/v1.234" (rmt:get-target 1))
+(print (rmt:get-run-info 1))
+(test #f '((runs) (tests) (test_steps) (test_data)) (rmt:get-run-record-ids "ubuntu/v1.234" 1 '("fail_count") "bar"))
 ;; (rmt:find-and-mark-incomplete run-id ovr-deadtime)
 ;; (rmt:get-main-run-stats run-id)
 ;; (rmt:get-var varname)
 ;; (rmt:set-var varname value)
 ;; (rmt:find-and-mark-incomplete-all-runs #!key (ovr-deadtime #f))