87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
|
(statepatt "CO%")
(statuspatt "PA%")
(keynames '("SYSTEM" "RELEASE")) ;; "sysname" "fsname" "datapath"))
(waitons '("a" "b" "c"))
(ref-item-path "/d/e/f")
(jobgroup "anl")
(runpatt "run%")
(keyvals '("a" "b" "c"))
(user "freddy")
(count 100)
(keypatts '("%a" "%b" "%c"))
(lock #f)
(unlock #t)
(run-status "n/a")
(runnamepatt "b%")
(targpatt "%a/%b/c%")
(fields "id,runname")
(ovr-deadtime 100)
|
|
|
|
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
|
(statepatt "CO%")
(statuspatt "PA%")
(keynames '("SYSTEM" "RELEASE")) ;; "sysname" "fsname" "datapath"))
(waitons '("a" "b" "c"))
(ref-item-path "/d/e/f")
(jobgroup "anl")
(runpatt "run%")
(keyvals '(("SYSTEM" "a")("RELEASE" "b")))
(user "freddy")
(count 100)
(keypatts '(("SYSTEM" "%a")("RELEASE" "%b")))
(lock #f)
(unlock #t)
(run-status "n/a")
(runnamepatt "b%")
(targpatt "%a/%b/c%")
(fields "id,runname")
(ovr-deadtime 100)
|
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
|
(bdisk-name "what")
(bdisk-path "tmp")
(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 (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))
(test #f #f (rmt:kill-server run-id))
(test #f #t (begin (rmt:start-server run-id) #t))
|
|
|
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
|
(bdisk-name "what")
(bdisk-path "tmp")
(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 #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))
(test #f #f (rmt:kill-server run-id))
(test #f #t (begin (rmt:start-server run-id) #t))
|
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
|
(test #f '() (rmt:get-run-ids-matching-target keynames target res runname testpatt statepatt statuspatt))
(test #f '() (rmt:test-get-paths-matching-keynames-target-new keynames target res testpatt statepatt statuspatt runname))
(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 #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)
;; (test #f #f (rmt:find-and-mark-incomplete run-id ovr-deadtime))
;; (test #f #f (rmt:find-and-mark-incomplete-all-runs ovr-deadtime: ovr-deadtime))
|
|
|
|
|
|
|
|
|
|
|
|
|
|
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
|
(test #f '() (rmt:get-run-ids-matching-target keynames target res runname testpatt statepatt statuspatt))
(test #f '() (rmt:test-get-paths-matching-keynames-target-new keynames target res testpatt statepatt statuspatt runname))
(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 #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)
;; (test #f #f (rmt:find-and-mark-incomplete run-id ovr-deadtime))
;; (test #f #f (rmt:find-and-mark-incomplete-all-runs ovr-deadtime: ovr-deadtime))
|