Overview
| Comment: | added extra condition to tests:get-items to return #f when items and itemstable were #f |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.80 |
| Files: | files | file ages | folders |
| SHA1: |
ac15ec29896a99ef985d38e50b8c17c6 |
| User & Date: | mmgraham on 2024-05-14 08:58:02 |
| Other Links: | branch diff | manifest | tags |
Context
|
2024-05-14
| ||
| 16:46 | Changed version to 1.8032 check-in: 72cba60ca9 user: mmgraham tags: v1.80, v1.8032 | |
| 08:58 | added extra condition to tests:get-items to return #f when items and itemstable were #f check-in: ac15ec2989 user: mmgraham tags: v1.80 | |
|
2024-05-13
| ||
| 17:02 | Changed sleep after server start from 3 to 4 seconds to avoid unncessary server restarts. check-in: d5b4d7755f user: mmgraham tags: v1.80 | |
Changes
Modified tests.scm from [cc043fc184] to [f734d44190].
| ︙ | ︙ | |||
146 147 148 149 150 151 152 | (string-split global-waitons) '()))) ;; return items given config ;; (define (tests:get-items tconfig) (let ((items (hash-table-ref/default tconfig "items" #f)) ;; items 4 | | > > | 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 |
(string-split global-waitons)
'())))
;; return items given config
;;
(define (tests:get-items tconfig)
(let ((items (hash-table-ref/default tconfig "items" #f)) ;; items 4
(itemstable (hash-table-ref/default tconfig "itemstable" #f)))
;; if either items or items table is a proc return it so test running
;; process can know to call items:get-items-from-config
;; if either is a list and none is a proc go ahead and call get-items
;; otherwise return #f - this is not an iterated test
(cond
((procedure? items)
(debug:print-info 4 *default-log-port* "items is a procedure, will calc later")
items) ;; calc later
((procedure? itemstable)
(debug:print-info 4 *default-log-port* "itemstable is a procedure, will calc later")
itemstable) ;; calc later
((and (not items) (not itemstable))
#f)
((filter (lambda (x)
(let ((val (car x)))
(if (procedure? val) val #f)))
(append (if (list? items) items '())
(if (list? itemstable) itemstable '())))
'have-procedure)
((or (list? items)(list? itemstable)) ;; calc now
|
| ︙ | ︙ |