89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
|
;; (test-batch rmt:get-latest-host-load
;; "rmt:get-latest-host-load"
;; (list (list "localhost" #t (get-host-name))
;; (list "not-a-host" #t "not-a-host" ))
;; post-proc: pair?)
;;
;; (test #f #t (list? (rmt:get-changed-record-ids 0)))
;;
(test #f #f (begin (runs:update-all-test_meta #f) #f))
|
|
|
>
|
>
|
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
|
;; (test-batch rmt:get-latest-host-load
;; "rmt:get-latest-host-load"
;; (list (list "localhost" #t (get-host-name))
;; (list "not-a-host" #t "not-a-host" ))
;; post-proc: pair?)
;;
;; (test #f #t (list? (rmt:get-changed-record-ids 0)))
;;
(run-in-thread
;; (test #f #f (begin (runs:update-all-test_meta #f) #f))
(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))
(test #f "" (rmt:get-target 1))
|
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
|
(test #f #t (vector? (rmt:get-runs "%" 10 0 keypatts)))
(test #f '(1)(rmt:get-all-run-ids))
(test #f '()(rmt:get-prev-run-ids 1))
(test #f #t (begin (rmt:lock/unlock-run 1 #t #f "mikey") #t))
(test #f "JUSTFINE" (rmt:get-run-status 1))
(test #f #t (begin (rmt:set-run-status 1 "NOTFINE" msg: "A message") #t))
(test #f #t (begin (rmt:update-run-event_time 1) #t))
;; (rmt:get-runs-by-patt keys runnamepatt targpatt offset limit fields last-runs-update) ;; fields of #f uses default
;;
(let ((keys (rmt:get-keys))
(rnp "%") ;; run name patt
(tpt "%/%")) ;; target patt
(test-batch rmt:get-runs-by-patt
"rmt:get-runs-by-patt"
|
|
|
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
|
(test #f #t (vector? (rmt:get-runs "%" 10 0 keypatts)))
(test #f '(1)(rmt:get-all-run-ids))
(test #f '()(rmt:get-prev-run-ids 1))
(test #f #t (begin (rmt:lock/unlock-run 1 #t #f "mikey") #t))
(test #f "JUSTFINE" (rmt:get-run-status 1))
(test #f #t (begin (rmt:set-run-status 1 "NOTFINE" msg: "A message") #t))
(test #f #t (begin (rmt:update-run-event_time 1) #t))
)
;; (rmt:get-runs-by-patt keys runnamepatt targpatt offset limit fields last-runs-update) ;; fields of #f uses default
;;
(let ((keys (rmt:get-keys))
(rnp "%") ;; run name patt
(tpt "%/%")) ;; target patt
(test-batch rmt:get-runs-by-patt
"rmt:get-runs-by-patt"
|