1
2
3
4
5
6
7
8
9
|
;;======================================================================
;; Copyright 2006-2012, Matthew Welland.
;;
;; This program is made available under the GNU GPL version 2.0 or
;; greater. See the accompanying file COPYING for details.
;;
;; This program is distributed WITHOUT ANY WARRANTY; without even the
;; implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
;; PURPOSE.
|
|
|
1
2
3
4
5
6
7
8
9
|
;;======================================================================
;; Copyright 2006-2015, Matthew Welland.
;;
;; This program is made available under the GNU GPL version 2.0 or
;; greater. See the accompanying file COPYING for details.
;;
;; This program is distributed WITHOUT ANY WARRANTY; without even the
;; implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
;; PURPOSE.
|
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
|
(define-inline (runs:runrec-keyvals vec)(vector-ref vec 4)) ;; ((key1 val1)(key2 val2) ...)
(define-inline (runs:runrec-environment vec)(vector-ref vec 5)) ;; environment, alist key val
(define-inline (runs:runrec-mconfig vec)(vector-ref vec 6)) ;; megatest.config
(define-inline (runs:runrec-runconfig vec)(vector-ref vec 7)) ;; runconfigs.config
(define-inline (runs:runrec-serverdat vec)(vector-ref vec 8)) ;; (host port)
(define-inline (runs:runrec-transport vec)(vector-ref vec 9)) ;; 'http
(define-inline (runs:runrec-db vec)(vector-ref vec 10)) ;; <sqlite3db> (if 'fs)
(define-inline (runs:runrec-top-path vec)(vector-ref vec 11)) ;; *toppath*
(define-inline (runs:runrec-run_id vec)(vector-ref vec 12)) ;; run-id
(define-inline (test:get-id vec) (vector-ref vec 0))
(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))
|
|
|
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
|
(define-inline (runs:runrec-keyvals vec)(vector-ref vec 4)) ;; ((key1 val1)(key2 val2) ...)
(define-inline (runs:runrec-environment vec)(vector-ref vec 5)) ;; environment, alist key val
(define-inline (runs:runrec-mconfig vec)(vector-ref vec 6)) ;; megatest.config
(define-inline (runs:runrec-runconfig vec)(vector-ref vec 7)) ;; runconfigs.config
(define-inline (runs:runrec-serverdat vec)(vector-ref vec 8)) ;; (host port)
(define-inline (runs:runrec-transport vec)(vector-ref vec 9)) ;; 'http
(define-inline (runs:runrec-db vec)(vector-ref vec 10)) ;; <sqlite3db> (if 'fs)
(define-inline (runs:runrec-top-path vec)(vector-ref vec 11)) ;; toppath
(define-inline (runs:runrec-run_id vec)(vector-ref vec 12)) ;; run-id
(define-inline (test:get-id vec) (vector-ref vec 0))
(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))
|