Overview
| Comment: | Added a finalize for sqlite3 when shutting down due to bad test specs |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.4401 | v1.44 |
| Files: | files | file ages | folders |
| SHA1: |
3206828e78ebdb580c9698589f72ca60 |
| User & Date: | mrwellan on 2012-06-22 13:39:34 |
| Other Links: | branch diff | manifest | tags |
Context
|
2012-06-22
| ||
| 13:47 | Bumped version number check-in: 034e389e7c user: fdk71adm tags: v1.44 | |
| 13:39 | Added a finalize for sqlite3 when shutting down due to bad test specs check-in: 3206828e78 user: mrwellan tags: v1.4401, v1.44 | |
|
2012-06-15
| ||
| 17:09 | Changed -test-path to -test-files per suggestion from RobertG check-in: dcbfd26de7 user: mrwellan tags: v1.44 | |
Changes
Modified runs.scm from [0fe79ba1b8] to [c387192604].
| ︙ | ︙ | |||
210 211 212 213 214 215 216 |
(if (not (null? test-names))
(let loop ((hed (car test-names))
(tal (cdr test-names))) ;; 'return-procs tells the config reader to prep running system but return a proc
(let* ((config (tests:get-testconfig hed 'return-procs))
(waitons (if config (string-split (let ((w (config-lookup config "requirements" "waiton")))
(if w w "")))
(begin
| | > | 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 |
(if (not (null? test-names))
(let loop ((hed (car test-names))
(tal (cdr test-names))) ;; 'return-procs tells the config reader to prep running system but return a proc
(let* ((config (tests:get-testconfig hed 'return-procs))
(waitons (if config (string-split (let ((w (config-lookup config "requirements" "waiton")))
(if w w "")))
(begin
(debug:print 0 "ERROR: non-existent required test \"" hed "\"")
(sqlite3:finalize! db)
(exit 1)))))
;; check for hed in waitons => this would be circular, remove it and issue an
;; error
(if (member hed waitons)
(begin
(debug:print 0 "ERROR: test " hed " has listed itself as a waiton, please correct this!")
(set! waitons (filter (lambda (x)(not (equal? x hed))) waitons))))
|
| ︙ | ︙ |