Overview
| Comment: | put back (declare (uses runsmod.import)), enhanced assert message for mismatched server/runid |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.90 |
| Files: | files | file ages | folders |
| SHA1: |
332b8fc90d72a80771412890ab74146f |
| User & Date: | mmgraham on 2024-02-09 16:06:08 |
| 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 | |
|
2024-02-09
| ||
| 16:06 | put back (declare (uses runsmod.import)), enhanced assert message for mismatched server/runid check-in: 332b8fc90d user: mmgraham tags: v1.90 | |
|
2024-02-08
| ||
| 20:39 | Move test_records.scm into commonmod.scm. Disabled uses of runsmod.import in megatest.scm. check-in: 62a9a80b8c user: matt tags: v1.90 | |
Changes
Modified apimod.scm from [c5b4d2905e] to [e31481c901].
| ︙ | ︙ | |||
309 310 311 312 313 314 315 |
(set! *db-last-access* (current-seconds))
(match indat
((cmd run-id params meta)
(let* ((start-t (current-milliseconds))
;; factor this out and move before this let, it is just
;; an assert if not ping and dbfname is not correct
(db-ok (let* ((dbfname (dbmod:run-id->dbfname run-id))
| | > > > | > | 309 310 311 312 313 314 315 316 317 318 319 320 321 322 323 324 325 326 327 328 329 330 331 |
(set! *db-last-access* (current-seconds))
(match indat
((cmd run-id params meta)
(let* ((start-t (current-milliseconds))
;; factor this out and move before this let, it is just
;; an assert if not ping and dbfname is not correct
(db-ok (let* ((dbfname (dbmod:run-id->dbfname run-id))
(ok (equal? dbfname (dbr:dbstruct-dbfname dbstruct)))
(message ""))
(case cmd
((ping) #t) ;; we are fine
(else
(begin
(set! message (conc "tcp request handler: dbstruct database file " (dbr:dbstruct-dbfname dbstruct) " not aligned with run-id " run-id))
(assert ok message)))))
)
(ttdat *server-info*)
(server-state (tt-state ttdat))
(status 'ok) ;; anything legit we can do with status?
(delay-wait 0)
(result (if (eq? cmd 'ping)
*server-signature* ;; (current-process-id) ;; process id or server-signature?
(outer-proc cmd run-id params)))
|
| ︙ | ︙ |
Modified megatest.scm from [32535e1bcd] to [8fb628e614].
| ︙ | ︙ | |||
66 67 68 69 70 71 72 | (declare (uses testsmod)) (declare (uses testsmod.import)) (declare (uses subrunmod)) (declare (uses subrunmod.import)) (declare (uses archivemod)) (declare (uses archivemod.import)) (declare (uses runsmod)) | > | | 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 | (declare (uses testsmod)) (declare (uses testsmod.import)) (declare (uses subrunmod)) (declare (uses subrunmod.import)) (declare (uses archivemod)) (declare (uses archivemod.import)) (declare (uses runsmod)) ;; comment out following line for performance, but debug result. (declare (uses runsmod.import)) (declare (uses cpumod)) (declare (uses cpumod.import)) (declare (uses runsmod)) (declare (uses ezstepsmod)) (declare (uses launchmod)) (declare (uses tdb)) |
| ︙ | ︙ |