' d='M14,14H2V2h12v12z'/%3E%3Cpath style='fill:rgb(64,64,64)' d='M13,13H3V3h10v10z'/%3E%3Cpath style='fill:rgb(248,248,248)' d='M12,12H4V4h8v8z'/%3E%3Cpath style='fill:rgb(80,128,208)' d='M11,9H5V7h6v6z'/%3E%3C/svg%3E)
' d='M14,14H2V2h12v12z'/%3E%3Cpath style='fill:rgb(64,64,64)' d='M13,13H3V3h10v10z'/%3E%3Cpath style='fill:rgb(248,248,248)' d='M12,12H4V4h8v8z'/%3E%3Cpath style='fill:rgb(80,128,208)' d='M5,7h2v-2h2v2h2v2h-2v2h-2v-2h-2z'/%3E%3C/svg%3E)
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 | |
ChangesModified 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))))
|