Overview
| Comment: | fixed db_records to account for modifications to test datatype update |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | defstruct-srehman |
| Files: | files | file ages | folders |
| SHA1: |
871807090037d7606f3378d877f61a19 |
| User & Date: | srehman on 2016-10-03 15:40:22 |
| Other Links: | branch diff | manifest | tags |
Context
|
2016-10-04
| ||
| 11:34 | Added some safety checks check-in: 34d675ae1f user: mrwellan tags: defstruct-srehman | |
|
2016-10-03
| ||
| 15:40 | fixed db_records to account for modifications to test datatype update check-in: 8718070900 user: srehman tags: defstruct-srehman | |
| 15:39 | updated test-short-record method to take typed-record check-in: 3217dc5840 user: srehman tags: defstruct-srehman | |
Changes
Modified db_records.scm from [bb38b5c628] to [760ea62c74].
| ︙ | ︙ | |||
153 154 155 156 157 158 159 |
(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))
| | | | | | | | | 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) (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))
|
| ︙ | ︙ |