Megatest

Check-in [f6e1202aa2]
Login
☰Home Timeline Files Branches Tags Tickets Wiki Login
Overview
Comment:Most ordering stuff fixed
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.6569-multi-db-wip
Files: files | file ages | folders
SHA1: f6e1202aa299c84cd16c4e32ab40d17db1bb5d88
User & Date: matt on 2021-02-14 23:10:15
Other Links: branch diff | manifest | tags
Context
2021-02-14
23:13
Most ordering stuff fixed check-in: fee7fc00b7 user: matt tags: v1.6569-multi-db-wip (unpublished)
23:10
Most ordering stuff fixed check-in: f6e1202aa2 user: matt tags: v1.6569-multi-db-wip (unpublished)
22:34
Sync bunch of minor changes with v1.65-real check-in: 0bf123a8c3 user: matt tags: v1.6569-multi-db-wip (unpublished)
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Modified Makefile from [5e0bb65eca] to [86d02cd5a4].

︙︙
154
155
156
157
158
159
160
161






162
163
164
165
166
167
168

	mkdir -p $(PREFIX)/share/db
	$(INSTALL) mt-pg.sql $(PREFIX)/share/db/mt-pg.sql

# Special dependencies for the module includes
$(MOFILE) $(MOIMPFILES) : megatest-fossil-hash.scm
megatest.o : $(MOIMPFILES)
mofiles/commonmod.o : megatest-fossil-hash.scm
mofiles/dbmod.o mofiles/servermod.o mofiles/apimod.o mofiles/dcommonmod.o : mofiles/commonmod.o






mofiles/rmtmod.o : mofiles/apimod.o
common.o : mofiles/commonmod.o
# commonmod.o dashboard.o megatest.o tcmt.o apimod.o : megatest-fossil-hash.scm

tests.o db.o launch.o runs.o dashboard-tests.o				\
dashboard-context-menu.o dashboard-guimonitor.o dashboard-main.o	\
monitor.o dashboard.o archive.o megatest.o : db_records.scm megatest-fossil-hash.scm








|
>
>
>
>
>
>








154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174

	mkdir -p $(PREFIX)/share/db
	$(INSTALL) mt-pg.sql $(PREFIX)/share/db/mt-pg.sql

# Special dependencies for the module includes
$(MOFILE) $(MOIMPFILES) : megatest-fossil-hash.scm
megatest.o : $(MOIMPFILES)
mofiles/commonmod.o : megatest-fossil-hash.scm
mofiles/dbmod.o \
      mofiles/servermod.o \
      mofiles/apimod.o \
      mofiles/dcommonmod.o \
      mofiles/configfmod.o \
      mofiles/ods.o : mofiles/commonmod.o

mofiles/rmtmod.o : mofiles/apimod.o
common.o : mofiles/commonmod.o
# commonmod.o dashboard.o megatest.o tcmt.o apimod.o : megatest-fossil-hash.scm

tests.o db.o launch.o runs.o dashboard-tests.o				\
dashboard-context-menu.o dashboard-guimonitor.o dashboard-main.o	\
monitor.o dashboard.o archive.o megatest.o : db_records.scm megatest-fossil-hash.scm
︙︙

Modified common.scm from [105fd55e89] to [1de0232341].

︙︙
49
50
51
52
53
54
55



56
57
58
59
60
61
62

(declare (unit common))
(declare (uses commonmod))
(import commonmod)

;; dbr:dbstruct is used here. should move it
(declare (uses dbmod))
(import dbmod)




(include "common_records.scm")

;;======================================================================
;; (require-library margs)
;; (include "margs.scm")









>
>
>








49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65

(declare (unit common))
(declare (uses commonmod))
(import commonmod)

;; dbr:dbstruct is used here. should move it
(declare (uses dbmod))
(import dbmod)

(declare (uses configfmod))
(import configfmod)

(include "common_records.scm")

;;======================================================================
;; (require-library margs)
;; (include "margs.scm")
︙︙

Modified configf.scm from [bb55db8e45] to [8646fab334].

︙︙
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125

				((mtrah)      (conc "(lambda (ht)"
                                                    "    (let ((extra \"" cmd "\"))"
						    "       (conc (or *toppath* (get-environment-variable \"MT_RUN_AREA_HOME\"))"
						    "             (if (string-null? extra) \"\" \"/\")"
						    "             extra)))"))
				((get g)   
				 (match (string-split cmd)
					((sect var)(conc "(lambda (ht)(configf:lookup ht \"" sect "\" \"" var "\"))"))
					(else
					 (debug:print-error 0 *default-log-port* "#{get ...} used with only one parameter, \"" cmd "\", two needed.")
					 "(lambda (ht) #f)")))
				((runconfigs-get rget) (conc "(lambda (ht)(runconfigs-get ht \"" cmd "\"))"))
				;; ((rget)           (conc "(lambda (ht)(runconfigs-get ht \"" cmd "\"))"))
				(else "(lambda (ht)(print \"ERROR\") \"ERROR\")"))))
		;; (print "fullcmd=" fullcmd)








|








111
112
113
114
115
116
117
118
119
120
121
122
123
124
125

				((mtrah)      (conc "(lambda (ht)"
                                                    "    (let ((extra \"" cmd "\"))"
						    "       (conc (or *toppath* (get-environment-variable \"MT_RUN_AREA_HOME\"))"
						    "             (if (string-null? extra) \"\" \"/\")"
						    "             extra)))"))
				((get g)   
				 (match (string-split cmd)
					((sect var)(conc "(lambda (ht)(configfmod#configf:lookup ht \"" sect "\" \"" var "\"))"))
					(else
					 (debug:print-error 0 *default-log-port* "#{get ...} used with only one parameter, \"" cmd "\", two needed.")
					 "(lambda (ht) #f)")))
				((runconfigs-get rget) (conc "(lambda (ht)(runconfigs-get ht \"" cmd "\"))"))
				;; ((rget)           (conc "(lambda (ht)(runconfigs-get ht \"" cmd "\"))"))
				(else "(lambda (ht)(print \"ERROR\") \"ERROR\")"))))
		;; (print "fullcmd=" fullcmd)
︙︙

Modified dashboard.scm from [e51c1fddd0] to [bc3ddeb08d].

︙︙
64
65
66
67
68
69
70

71
72
73
74
75
76
77

;; 
(declare (uses dbmod))
(import dbmod)
;; (declare (uses dbmod.import))

(declare (uses configfmod))
(import configfmod)


(include "common_records.scm")
(include "db_records.scm")
(include "run_records.scm")
(include "task_records.scm")
(include "megatest-version.scm")
;; (include "megatest-fossil-hash.scm")








>








64
65
66
67
68
69
70
71
72
73
74
75
76
77
78

;; 
(declare (uses dbmod))
(import dbmod)
;; (declare (uses dbmod.import))

(declare (uses configfmod))
(import configfmod)
(declare (uses configfmod.import))

(include "common_records.scm")
(include "db_records.scm")
(include "run_records.scm")
(include "task_records.scm")
(include "megatest-version.scm")
;; (include "megatest-fossil-hash.scm")
︙︙

Modified dcommon.scm from [60e0e06882] to [8800f225a9].

︙︙
31
32
33
34
35
36
37



38
39
40
41
42
43
44

(declare (uses db))

(declare (uses commonmod))
(import commonmod)

(declare (uses dbmod))
(import dbmod)




(declare (uses dcommonmod))
(import dcommonmod)

;; (declare (uses synchash))

(include "megatest-version.scm")








>
>
>








31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47

(declare (uses db))

(declare (uses commonmod))
(import commonmod)

(declare (uses dbmod))
(import dbmod)

(declare (uses configfmod))
(import configfmod)

(declare (uses dcommonmod))
(import dcommonmod)

;; (declare (uses synchash))

(include "megatest-version.scm")
︙︙

Modified megatest.scm from [09f7c5d29d] to [8e862aec17].

︙︙
41
42
43
44
45
46
47


48
49
50
51




52
53
54
55
56
57
58

(declare (uses tasks)) ;; only used for debugging.
(declare (uses env))
(declare (uses diff-report))
;; (declare (uses ftail))
;; (import ftail)

;; Needed for repl even if not used here in megatest.scm


(declare (uses commonmod))
(import commonmod)
(declare (uses commonmod.import))





(declare (uses ods))
(import ods)
(declare (uses ods.import))

(declare (uses dbmod))
(import dbmod)
(declare (uses dbmod.import))








>
>




>
>
>
>








41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64

(declare (uses tasks)) ;; only used for debugging.
(declare (uses env))
(declare (uses diff-report))
;; (declare (uses ftail))
;; (import ftail)

;; Needed for repl even if not used here in megatest.scm
;; ORDER MATTERS!

(declare (uses commonmod))
(import commonmod)
(declare (uses commonmod.import))

(declare (uses configfmod))
(import configfmod)
(declare (uses configfmod.import))

(declare (uses ods))
(import ods)
(declare (uses ods.import))

(declare (uses dbmod))
(import dbmod)
(declare (uses dbmod.import))
︙︙

Modified rmt.scm from [b5361867f1] to [d1d372ed55].

︙︙
32
33
34
35
36
37
38



39
40
41
42
43
44
45


(declare (uses rmtmod))
(import rmtmod)

;; should not be here
(declare (uses dbmod))
(import dbmod)




(include "common_records.scm")
;; (declare (uses rmtmod))

;; (import rmtmod)

;;








>
>
>








32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48


(declare (uses rmtmod))
(import rmtmod)

;; should not be here
(declare (uses dbmod))
(import dbmod)

(declare (uses configfmod))
(import configfmod)

(include "common_records.scm")
;; (declare (uses rmtmod))

;; (import rmtmod)

;;
︙︙

Modified server.scm from [fe68ceb7c8] to [5aa342d9e3].

︙︙
35
36
37
38
39
40
41



42
43
44
45
46
47
48

;; (declare (uses daemon))

(declare (uses commonmod))
(import commonmod)

(declare (uses dbmod))
(import dbmod)




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

(define (server:make-server-url hostport)
  (if (not hostport)
      #f








>
>
>








35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51

;; (declare (uses daemon))

(declare (uses commonmod))
(import commonmod)

(declare (uses dbmod))
(import dbmod)

(declare (uses configfmod))
(import configfmod)

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

(define (server:make-server-url hostport)
  (if (not hostport)
      #f
︙︙

Modified tests.scm from [128718a68e] to [9f0819548e].

︙︙
39
40
41
42
43
44
45



46
47
48
49
50
51
52

(require-library stml)

(declare (uses commonmod))
(import commonmod)

(declare (uses dbmod))
(import dbmod)




(include "common_records.scm")
(include "key_records.scm")
(include "db_records.scm")
(include "run_records.scm")
(include "test_records.scm")
(include "js-path.scm")








>
>
>








39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55

(require-library stml)

(declare (uses commonmod))
(import commonmod)

(declare (uses dbmod))
(import dbmod)

(declare (uses configfmod))
(import configfmod)

(include "common_records.scm")
(include "key_records.scm")
(include "db_records.scm")
(include "run_records.scm")
(include "test_records.scm")
(include "js-path.scm")
︙︙

This page was generated in about 0.137s by Fossil 2.24 [452f8e1ffc] 2024-03-26 15:36:00