198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
|
(define start-wait (current-seconds))
(server:client-setup)
(print "Starting intensive cache and rpc test")
(for-each (lambda (params)
;;; (rdb:tests-register-test #f 1 (conc "test" (random 20)) "")
(apply rdb:test-set-status-state test-id params)
(rdb:pass-fail-counts test-id (random 100) (random 100))
(rdb:test-rollup-iterated-pass-fail test-id)
(thread-sleep! 0.01)) ;; cache ordering granularity is at the second level. Should really be at the ms level
'(("COMPLETED" "PASS" #f)
("NOT_STARTED" "FAIL" "Just testing")
("NOT_STARTED" "FAIL" "Just testing")
("NOT_STARTED" "FAIL" "Just testing")
("COMPLETED" "PASS" #f)
("NOT_STARTED" "FAIL" "Just testing")
|
|
|
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
|
(define start-wait (current-seconds))
(server:client-setup)
(print "Starting intensive cache and rpc test")
(for-each (lambda (params)
;;; (rdb:tests-register-test #f 1 (conc "test" (random 20)) "")
(apply rdb:test-set-status-state test-id params)
(rdb:pass-fail-counts test-id (random 100) (random 100))
(rdb:test-rollup-test_data-pass-fail test-id)
(thread-sleep! 0.01)) ;; cache ordering granularity is at the second level. Should really be at the ms level
'(("COMPLETED" "PASS" #f)
("NOT_STARTED" "FAIL" "Just testing")
("NOT_STARTED" "FAIL" "Just testing")
("NOT_STARTED" "FAIL" "Just testing")
("COMPLETED" "PASS" #f)
("NOT_STARTED" "FAIL" "Just testing")
|