Megatest

Check-in [8bbcfd893f]
Login
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: 8bbcfd893fd412518c6168af13fcc081e7a85feb
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
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
3209



3210
3211
3212
3213
3214
3215
3216
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)))
	(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
46
47
48
49
50
51
52
53
54
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))

(use srfi-69)

(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
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)