245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
|
btns))))))
;;======================================================================
;;
;;======================================================================
(define (examine-test db test-id) ;; run-id run-key origtest)
(let* ((testdat (db:get-test-data-by-id db test-id)))
(if (not testdat)
(begin
(debug:print 0 "ERROR: No test data found for test " test-id ", exiting")
(exit 1))
(let* ((run-id (if testdat (db:test-get-run_id testdat) #f))
(keydat (if testdat (rdb:get-key-val-pairs db run-id) #f))
(rundat (if testdat (rdb:get-run-info db run-id) #f))
|
|
|
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
|
btns))))))
;;======================================================================
;;
;;======================================================================
(define (examine-test db test-id) ;; run-id run-key origtest)
(let* ((testdat (rdb:get-test-data-by-id db test-id)))
(if (not testdat)
(begin
(debug:print 0 "ERROR: No test data found for test " test-id ", exiting")
(exit 1))
(let* ((run-id (if testdat (db:test-get-run_id testdat) #f))
(keydat (if testdat (rdb:get-key-val-pairs db run-id) #f))
(rundat (if testdat (rdb:get-run-info db run-id) #f))
|