Overview
| Comment: | fixed setters for typed-record 'db:test-rec' |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | defstruct-srehman |
| Files: | files | file ages | folders |
| SHA1: |
85157b687d7d78580f2849524b00dba0 |
| User & Date: | srehman on 2016-09-27 12:00:33 |
| Other Links: | branch diff | manifest | tags |
Context
|
2016-09-29
| ||
| 14:58 | merged with latest v1.62 check-in: 1f841dd640 user: srehman tags: defstruct-srehman | |
|
2016-09-27
| ||
| 12:00 | fixed setters for typed-record 'db:test-rec' check-in: 85157b687d user: srehman tags: defstruct-srehman | |
|
2016-09-26
| ||
| 18:18 | reverted comments and print statements on runs.scm check-in: be5c8e1cdb user: srehman tags: defstruct-srehman | |
Changes
Modified db_records.scm from [5b2f22e401] to [f4df43db25].
| ︙ | ︙ | |||
133 134 135 136 137 138 139 | ;; replace runs:make-full-test-name with this routine (define (db:test-make-full-name testname itempath) (if (equal? itempath "") testname (conc testname "/" itempath))) (define-inline (db:test-get-first_err vec) (printable (vector-ref vec 15))) (define-inline (db:test-get-first_warn vec) (printable (vector-ref vec 16))) ;; RADT => reference 16 is repeated | | | | | | | | | 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 | ;; replace runs:make-full-test-name with this routine (define (db:test-make-full-name testname itempath) (if (equal? itempath "") testname (conc testname "/" itempath))) (define-inline (db:test-get-first_err vec) (printable (vector-ref vec 15))) (define-inline (db:test-get-first_warn vec) (printable (vector-ref vec 16))) ;; RADT => reference 16 is repeated (define-inline (db:test-set-cpuload! vec val) (db:test-rec-cpuload-set! vec val)) (define-inline (db:test-set-diskfree! vec val) (db:test-rec-diskfree-set! vec val)) (define-inline (db:test-set-testname! vec val) (db:test-rec-testname-set! vec val)) (define-inline (db:test-set-state! vec val) (db:test-rec-state-set! vec val)) (define-inline (db:test-set-status! vec val) (db:test-rec-status-set! vec val)) (define-inline (db:test-set-run_duration! vec val) (db:test-rec-run_duration-set! vec val)) (define-inline (db:test-set-final_logf! vec val) (db:test-rec-final_logf-set! vec val)) ;; Test record utility functions ;; Is a test a toplevel? ;; (define (db:test-get-is-toplevel vec) (and (equal? (db:test-get-item-path vec) "") ;; test is not an item |
| ︙ | ︙ |