Megatest

Check-in [1a7d31cc57]
Login
Overview
Comment:More tuning of module references
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.80-revolution-remodularization | passes-many-tests
Files: files | file ages | folders
SHA1: 1a7d31cc57db3baeee23f12144186547402c7d51
User & Date: matt on 2024-02-04 09:01:45
Other Links: branch diff | manifest | tags
Context
2024-02-04
21:21
wip check-in: d44e27b773 user: matt tags: v1.80-revolution-remodularization
09:01
More tuning of module references check-in: 1a7d31cc57 user: matt tags: v1.80-revolution-remodularization, passes-many-tests
09:00
Bug hidden in db_records ... check-in: cd9be98ea8 user: matt tags: v1.80-revolution-remodularization
Changes

Modified ezsteps.scm from [c9e7819612] to [b4aa33c583].

25
26
27
28
29
30
31

32
33
34
35
36
37
38
39
40



41
42
43
44
45
46
47
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40

41
42
43
44
45
46
47
48
49
50







+








-
+
+
+







(declare (uses common))
(declare (uses configfmod))
(declare (uses debugprint))
(declare (uses items))
(declare (uses runconfig))
(declare (uses rmtmod))
(declare (uses mtargs))
(declare (uses tasksmod))

(use srfi-1 posix regex srfi-69 directory-utils call-with-environment-variables posix-extras
     z3 csv typed-records pathname-expand matchable)

(import commonmod
	configfmod
	debugprint
	rmtmod
	(prefix mtargs args:))
	(prefix mtargs args:)
	tasksmod
	)

(include "common_records.scm")
(include "key_records.scm")
(include "db_records.scm")
(include "run_records.scm")


Modified megatest.scm from [a7bedfccb1] to [0272e9ba5b].

35
36
37
38
39
40
41


42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71


72







73
74
75
76
77
78
79
35
36
37
38
39
40
41
42
43
44
45
46
47








48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82







+
+




-
-
-
-
-
-
-
-


















+
+

+
+
+
+
+
+
+







(declare (uses stml2.import))
(declare (uses commonmod))
(declare (uses commonmod.import))
(declare (uses processmod))
(declare (uses processmod.import))
(declare (uses configfmod))
(declare (uses configfmod.import))
(declare (uses pgdb))
(declare (uses pgdb.import))
(declare (uses mtmod))
(declare (uses mtmod.import))
(declare (uses servermod))
(declare (uses servermod.import))

(declare (uses tdb))
(declare (uses mt))
(declare (uses api))
(declare (uses tasks)) ;; only used for debugging.
(declare (uses env))
(declare (uses diff-report))
(declare (uses db))
(declare (uses dbfile))
(declare (uses dbfile.import))
(declare (uses dbmod))
(declare (uses dbmod.import))
(declare (uses portlogger))
(declare (uses portlogger.import))
(declare (uses tcp-transportmod))
(declare (uses tcp-transportmod.import))
(declare (uses megatestmod))
(declare (uses megatestmod.import))
(declare (uses apimod))
(declare (uses apimod.import))
(declare (uses rmtmod))
(declare (uses rmtmod.import))
(declare (uses fsmod))
(declare (uses fsmod.import))
(declare (uses cpumod))
(declare (uses cpumod.import))
(declare (uses tasksmod))
(declare (uses tasksmod.import))

(declare (uses tdb))
(declare (uses mt))
(declare (uses api))
(declare (uses tasks)) ;; only used for debugging.
(declare (uses env))
(declare (uses diff-report))
(declare (uses db))
(declare (uses runs))
(declare (uses launch))
(declare (uses server))
(declare (uses tests))
(declare (uses genexample))
;; (declare (uses daemon))

97
98
99
100
101
102
103

104
105
106
107
108
109
110
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114







+







	tcp-transportmod
	rmtmod
	apimod
	stml2
	mtmod
	megatestmod
	servermod
	tasksmod
        )

(define *db* #f) ;; this is only for the repl, do not use in general!!!!

(include "common_records.scm")
(include "key_records.scm")
(include "db_records.scm")

Modified subrun.scm from [4da269535b] to [00d947ab03].

15
16
17
18
19
20
21

22
23
24
25
26
27







28
29
30
31
32
33
34
35


36
37
38
39
40
41
42
15
16
17
18
19
20
21
22
23





24
25
26
27
28
29
30
31
32
33
34
35
36
37

38
39
40
41
42
43
44
45
46







+

-
-
-
-
-
+
+
+
+
+
+
+







-
+
+







;; 
;;     You should have received a copy of the GNU General Public License
;;     along with Megatest.  If not, see <http://www.gnu.org/licenses/>.

;;  strftime('%m/%d/%Y %H:%M:%S','now','localtime')

(declare (unit subrun))

(declare (uses debugprint))
(declare (uses db))
(declare (uses common))
(declare (uses commonmod))
(declare (uses configfmod))
(declare (uses mt))
(declare (uses commonmod))
(declare (uses configfmod))
(declare (uses tasksmod))

(declare (uses mt))
(declare (uses db))
(declare (uses common))

(use (prefix sqlite3 sqlite3:) srfi-1 posix regex regex-case srfi-69 (srfi 18) 
     posix-extras directory-utils pathname-expand typed-records format
     call-with-environment-variables)

(import commonmod
	configfmod
	debugprint)
	debugprint
	tasksmod)

;(include "common_records.scm")
;;(include "key_records.scm")
(include "db_records.scm") ;; provides db:test-get-id
;;(include "run_records.scm")
;;(include "test_records.scm")