Overview
| Comment: | Added sqlite3 timeout to a call to sqlite3:open-database. Added some needed use of eggs to megatest.scm |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.90-proper-interface-lists |
| Files: | files | file ages | folders |
| SHA1: |
8bbcfd893fd412518c6168af13fcc081 |
| User & Date: | mrwellan on 2024-02-15 12:23:30 |
| Other Links: | branch diff | manifest | tags |
Context
|
2024-02-15
| ||
| 12:27 | Major refactor to modules essentially complete and working (local db access only). check-in: 816f04b621 user: mrwellan tags: v1.90 | |
| 12:23 | Added sqlite3 timeout to a call to sqlite3:open-database. Added some needed use of eggs to megatest.scm Leaf check-in: 8bbcfd893f user: mrwellan tags: v1.90-proper-interface-lists | |
| 11:09 | Removed more empty compilation unit files. check-in: 478982e700 user: mrwellan tags: v1.90-proper-interface-lists | |
Changes
Modified dbmod.scm from [2ba06f0555] to [1751fc58ca].
| ︙ | ︙ | |||
25 26 27 28 29 30 31 32 33 34 35 36 37 38 | (declare (uses configfmod)) (declare (uses debugprint)) (declare (uses mtargs)) (declare (uses mtmod)) (module dbmod ( dbmod:db-to-db-sync db:test-get-event_time db:test-get-item-path db:test-get-testname db:get-value-by-header | > > > | 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 | (declare (uses configfmod)) (declare (uses debugprint)) (declare (uses mtargs)) (declare (uses mtmod)) (module dbmod ( ;; for debug, can be commented out dbmod:safely-open-db dbmod:db-to-db-sync db:test-get-event_time db:test-get-item-path db:test-get-testname db:get-value-by-header |
| ︙ | ︙ | |||
3202 3203 3204 3205 3206 3207 3208 |
dbstruct
run-id
#t
(lambda (dbdat db)
(delproc db)))
(if (and (file-exists? mtdbfile)
(file-write-access? mtdbfile))
| | > > | 3205 3206 3207 3208 3209 3210 3211 3212 3213 3214 3215 3216 3217 3218 3219 3220 3221 |
dbstruct
run-id
#t
(lambda (dbdat db)
(delproc db)))
(if (and (file-exists? mtdbfile)
(file-write-access? mtdbfile))
(let* ((db (sqlite3:open-database mtdbfile))
(handler (sqlite3:make-busy-timeout 136000)))
(sqlite3:set-busy-handler! db handler)
(delproc db)
(sqlite3:finalize! db)))))
;; ;; speed up for common cases with a little logic
;; ;; NB// Ultimately this will be deprecated in deference to mt:test-set-state-status-by-id
;;
;; NOTE: run-id is not used
|
| ︙ | ︙ |
Modified launchmod.scm from [4708ea7e53] to [466715ec03].
| ︙ | ︙ | |||
39 40 41 42 43 44 45 | (declare (uses megatestmod)) (declare (uses tasksmod)) (declare (uses subrunmod)) (declare (uses testsmod)) (declare (uses runsmod)) (declare (uses fsmod)) | < < | 39 40 41 42 43 44 45 46 47 48 49 50 51 52 | (declare (uses megatestmod)) (declare (uses tasksmod)) (declare (uses subrunmod)) (declare (uses testsmod)) (declare (uses runsmod)) (declare (uses fsmod)) (module launchmod ( launch:load-logpro-dat launch:recover-test launch:execute launch:extract-scripts-logpro ) |
| ︙ | ︙ |
Modified megatest.scm from [b60520e019] to [6d181be0d8].
| ︙ | ︙ | |||
81 82 83 84 85 86 87 88 89 90 91 | (declare (uses server)) (declare (uses genexample)) (declare (uses mtbody)) (import csi) ;; fake out readline usage of toplevel-command (set! toplevel-command (lambda (a b) #f)) (import mtbody) (main) | > > > > > > > > > > > | 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 |
(declare (uses server))
(declare (uses genexample))
(declare (uses mtbody))
(import csi)
;; fake out readline usage of toplevel-command
(set! toplevel-command (lambda (a b) #f))
;; required for chicken 4
(use srfi-69
call-with-environment-variables
csv
regex
regex-case
sparse-vectors
format
fmt
)
(import mtbody)
(main)
|