Overview
| Comment: | Added run-id to test output on import-sexpr for sanity checking by user |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.80 |
| Files: | files | file ages | folders |
| SHA1: |
78ea3ef6e3c8895263f3e218b8a48250 |
| User & Date: | matt on 2023-03-20 07:09:01 |
| Other Links: | branch diff | manifest | tags |
Context
|
2023-03-20
| ||
| 07:31 | Make nfs mode default for dashboard check-in: aaa4fca591 user: matt tags: v1.80 | |
| 07:09 | Added run-id to test output on import-sexpr for sanity checking by user check-in: 78ea3ef6e3 user: matt tags: v1.80 | |
|
2023-03-19
| ||
| 22:16 | Added -import-sexpr check-in: 996a9b8e3d user: matt tags: v1.80 | |
Changes
Modified dbmod.scm from [7b131a4554] to [73bc52aba3].
| ︙ | ︙ | |||
514 515 516 517 518 519 520 521 522 523 524 525 526 527 | ;; (sqlite3:execute dbh stmt6) )) (debug:print 0 *default-log-port* "Synced table "table " in "(- (current-milliseconds) start-ms)"ms")) (debug:print 0 *default-log-port* "Skipping sync of table "table" due to transaction in flight.")))) table-names) (sqlite3:execute dbh1 "DETACH auxdb;")))) ;;====================================================================== ;; Moved from dbfile ;;====================================================================== ) | > > > | 514 515 516 517 518 519 520 521 522 523 524 525 526 527 528 529 530 | ;; (sqlite3:execute dbh stmt6) )) (debug:print 0 *default-log-port* "Synced table "table " in "(- (current-milliseconds) start-ms)"ms")) (debug:print 0 *default-log-port* "Skipping sync of table "table" due to transaction in flight.")))) table-names) (sqlite3:execute dbh1 "DETACH auxdb;")))) ;;====================================================================== ;; Moved from dbfile ;;====================================================================== ) |
Modified rmtmod.scm from [0b08c253ff] to [7e567e8daa].
| ︙ | ︙ | |||
92 93 94 95 96 97 98 |
(if (null? runs)
(rmtmod:send-receive 'insert-run #f (list target runname run-meta))
(simple-run-id (car runs)))))
(define (rmt:insert-test run-id test-rec)
(let* ((testname (alist-ref "testname" test-rec equal?))
(item-path (alist-ref "item_path" test-rec equal?)))
| | | 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 |
(if (null? runs)
(rmtmod:send-receive 'insert-run #f (list target runname run-meta))
(simple-run-id (car runs)))))
(define (rmt:insert-test run-id test-rec)
(let* ((testname (alist-ref "testname" test-rec equal?))
(item-path (alist-ref "item_path" test-rec equal?)))
(debug:print 0 *default-log-port* " Insert test in run "run-id": "testname"/"item-path)
(rmtmod:send-receive 'insert-test run-id test-rec)))
;;======================================================================
;; return the handle struct for sending queries to a specific database
;; - initializes the connection object if this is the first access
;; - finds the "captain" and asks who to talk to for the given dbfname
;; - establishes the connection to the current dbowner
|
| ︙ | ︙ |