Index: rmt.scm ================================================================== --- rmt.scm +++ rmt.scm @@ -527,11 +527,11 @@ ;; (define (rmt:roll-up-pass-fail-counts run-id test-name item-path state status) (rmt:send-receive 'roll-up-pass-fail-counts run-id (list run-id test-name item-path state status))) (define (rmt:update-pass-fail-counts run-id test-name) - (rmt:general-call 'update-pass-fail-counts run-id (list run-id test-name run-id test-name run-id test-name))) + (rmt:general-call 'update-pass-fail-counts run-id test-name test-name test-name)) (define (rmt:top-test-set-per-pf-counts run-id test-name) (rmt:send-receive 'top-test-set-per-pf-counts run-id (list run-id test-name))) ;;====================================================================== Index: tests/unittests/misc.scm ================================================================== --- tests/unittests/misc.scm +++ tests/unittests/misc.scm @@ -89,14 +89,14 @@ (keynames '("SYSTEM" "RELEASE")) ;; "sysname" "fsname" "datapath")) (waitons '("a" "b" "c")) (ref-item-path "/d/e/f") (jobgroup "anl") (runpatt "run%") - (keyvals '("a" "b" "c")) + (keyvals '(("SYSTEM" "a")("RELEASE" "b"))) (user "freddy") (count 100) - (keypatts '("%a" "%b" "%c")) + (keypatts '(("SYSTEM" "%a")("RELEASE" "%b"))) (lock #f) (unlock #t) (run-status "n/a") (runnamepatt "b%") (targpatt "%a/%b/c%") @@ -126,11 +126,11 @@ (df 1000000) (archive-block-id 1) (stmtname 'blah)) (test #f #f (rmt:write-frequency-over-limit? cmd run-id)) (test #f #f (rmt:get-connection-info run-id)) - (test #f #f (rmt:update-db-stats run-id rawcmd params duration)) + (test #f #t (rmt:update-db-stats run-id rawcmd params duration)) (test #f #t (begin (rmt:print-db-stats) #t)) (test #f '(none . 0) (rmt:get-max-query-average run-id)) (test #f #f (rmt:send-receive-no-auto-client-setup connection-info cmd run-id params)) (test #f "\"abc\"" (rmt:dat->json-str dat)) (test #f "def" (rmt:json-str->dat json-str)) @@ -166,22 +166,22 @@ (test #f '("c" "b" "a") (rmt:get-prereqs-not-met run-id waitons ref-item-path)) ;; #!key (mode '(normal))(itemmap #f))) (test #f 0 (rmt:get-count-tests-running-for-run-id run-id)) (test #f 0 (rmt:get-count-tests-running run-id)) (test #f 0 (rmt:get-count-tests-running-for-testname run-id testname)) (test #f 0 (rmt:get-count-tests-running-in-jobgroup run-id jobgroup)) - (test #f #f (rmt:roll-up-pass-fail-counts run-id test-name item-path state status)) - (test #f #f (rmt:update-pass-fail-counts run-id test-name)) - (test #f #f (rmt:top-test-set-per-pf-counts run-id test-name)) - (test #f #f (rmt:get-run-info run-id)) - (test #f #f (rmt:get-num-runs runpatt)) - (test #f #f (rmt:register-run keyvals runname state status user)) - (test #f #f (rmt:get-run-name-from-id run-id)) - (test #f #f (rmt:delete-run run-id)) - (test #f #f (rmt:delete-old-deleted-test-records)) - (test #f #f (rmt:get-runs runpatt count offset keypatts)) - (test #f #f (rmt:get-all-run-ids)) - (test #f #f (rmt:get-prev-run-ids run-id)) + (test #f #t (rmt:roll-up-pass-fail-counts run-id test-name item-path state status)) + (test #f #t (rmt:update-pass-fail-counts run-id test-name)) + (test #f #t (rmt:top-test-set-per-pf-counts run-id test-name)) + (test #f #t (vector? (rmt:get-run-info run-id))) + (test #f 0 (rmt:get-num-runs runpatt)) + (test #f 1 (rmt:register-run keyvals runname state status user)) + (test #f "myfirstrun" (rmt:get-run-name-from-id run-id)) + (test #f #t (begin (rmt:delete-run run-id) #t)) + (test #f #t (begin (rmt:delete-old-deleted-test-records) #t)) + (test #f #t (vector? (rmt:get-runs runpatt count offset keypatts))) + (test #f '() (rmt:get-all-run-ids)) + (test #f '() (rmt:get-prev-run-ids run-id)) ;; (test #f #f (rmt:lock/unlock-run run-id lock unlock user)) ;; (test #f #f (rmt:get-run-status run-id)) ;; (test #f #f (rmt:set-run-status run-id run-status msg: msg)) ;; (test #f #f (rmt:update-run-event_time run-id)) ;; (test #f #f (rmt:get-runs-by-patt keys runnamepatt targpatt offset limit fields)) ;; fields of #f uses default)