28
29
30
31
32
33
34
35
36
37
38
39
|
(define-inline (test:get-run_id vec) (vector-ref vec 1))
(define-inline (test:get-test-name vec)(vector-ref vec 2))
(define-inline (test:get-state vec) (vector-ref vec 3))
(define-inline (test:get-status vec) (vector-ref vec 4))
(define-inline (test:get-item-path vec)(vector-ref vec 5))
(define-inline (test:test-get-fullname test)
(conc (db:test-testname test)
(if (equal? (db:test-item-path test) "")
""
(conc "(" (db:test-item-path test) ")"))))
|
|
|
|
|
28
29
30
31
32
33
34
35
36
37
38
39
|
(define-inline (test:get-run_id vec) (vector-ref vec 1))
(define-inline (test:get-test-name vec)(vector-ref vec 2))
(define-inline (test:get-state vec) (vector-ref vec 3))
(define-inline (test:get-status vec) (vector-ref vec 4))
(define-inline (test:get-item-path vec)(vector-ref vec 5))
(define-inline (test:test-get-fullname test)
(conc (dbr:test-testname test)
(if (equal? (dbr:test-item-path test) "")
""
(conc "(" (dbr:test-item-path test) ")"))))
|