117
118
119
120
121
122
123
124
125
126
127
128
129
130
|
(rmt:register-test 1 "rollup" itempath)
(let ((test-id (rmt:get-test-id 1 "rollup" itempath))
(comment (conc "This is a comment for itempath " itempath)))
;; (rmt:test-set-state-status-by-id run-id test-id "COMPLETED" "PASS" comment)
(tests:test-set-status! 1 test-id "COMPLETED" "PASS" comment #f))) ;; #!key (work-area #f))
'("item/1" "item/2" "item/3" "item/4" "item/5"))
(test #f #t (number? (rmt:get-test-id 1 "rollup" "item/4")))
(define (get-state-status run-id testname itempath)
(let ((tdat (rmt:get-test-info-by-id 1 (rmt:get-test-id run-id testname itempath))))
(list (db:test-state tdat)
(db:test-status tdat))))
|
>
>
>
>
|
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
|
(rmt:register-test 1 "rollup" itempath)
(let ((test-id (rmt:get-test-id 1 "rollup" itempath))
(comment (conc "This is a comment for itempath " itempath)))
;; (rmt:test-set-state-status-by-id run-id test-id "COMPLETED" "PASS" comment)
(tests:test-set-status! 1 test-id "COMPLETED" "PASS" comment #f))) ;; #!key (work-area #f))
'("item/1" "item/2" "item/3" "item/4" "item/5"))
(exit)
(test #f #t (number? (rmt:get-test-id 1 "rollup" "item/4")))
(define (get-state-status run-id testname itempath)
(let ((tdat (rmt:get-test-info-by-id 1 (rmt:get-test-id run-id testname itempath))))
(list (db:test-state tdat)
(db:test-status tdat))))
|