Megatest

Check-in [78ea3ef6e3]
Login
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: 78ea3ef6e3c8895263f3e218b8a4825082b5c0bd
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
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
99

100
101
102
103
104
105
106
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: "testname"/"item-path)
    (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