153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
|
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
|
-
-
-
-
-
-
-
+
+
+
+
+
+
+
|
(and (equal? (db:test-get-item-path vec) "") ;; test is not an item
(equal? (db:test-get-uname vec) "n/a"))) ;; test has never been run
;; make-vector-record "" db mintest id run_id testname state status event_time item_path
;; RADT => purpose of mintest??
;;
(define (make-db:mintest)(make-vector 7))
(define-inline (db:mintest-get-id vec) (vector-ref vec 0))
(define-inline (db:mintest-get-run_id vec) (vector-ref vec 1))
(define-inline (db:mintest-get-testname vec) (vector-ref vec 2))
(define-inline (db:mintest-get-state vec) (vector-ref vec 3))
(define-inline (db:mintest-get-status vec) (vector-ref vec 4))
(define-inline (db:mintest-get-event_time vec) (vector-ref vec 5))
(define-inline (db:mintest-get-item_path vec) (vector-ref vec 6))
(define-inline (db:mintest-get-id vec) (db:test-rec-id vec))
(define-inline (db:mintest-get-run_id vec) (db:test-rec-run_id vec))
(define-inline (db:mintest-get-testname vec) (db:test-rec-testname vec))
(define-inline (db:mintest-get-state vec) (db:test-rec-state vec))
(define-inline (db:mintest-get-status vec) (db:test-rec-status vec))
(define-inline (db:mintest-get-event_time vec) (db:test-rec-event_time vec))
(define-inline (db:mintest-get-item_path vec) (db:test-rec-item_path vec))
;; make-vector-record db testmeta id testname author owner description reviewed iterated avg_runtime avg_disk
(define (make-db:testmeta)(make-vector 10 ""))
(define-inline (db:testmeta-get-id vec) (vector-ref vec 0))
(define-inline (db:testmeta-get-testname vec) (vector-ref vec 1))
(define-inline (db:testmeta-get-author vec) (vector-ref vec 2))
(define-inline (db:testmeta-get-owner vec) (vector-ref vec 3))
|