Megatest

Check-in [cacc323b1a]
Login
☰Home Timeline Files Branches Tags Tickets Wiki Login
Overview
Comment:wip
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.70-refactor02 | v1.70-defunct-try
Files: files | file ages | folders
SHA1: cacc323b1afe30b0b467d623cf11f691b7a7185a
User & Date: mrwellan on 2019-12-31 09:16:11
Other Links: branch diff | manifest | tags
Context
2019-12-31
09:38
wip check-in: fc751975b3 user: mrwellan tags: v1.70-refactor02, v1.70-defunct-try
09:16
wip check-in: cacc323b1a user: mrwellan tags: v1.70-refactor02, v1.70-defunct-try
2019-12-30
23:09
wip check-in: 7697c27dfd user: matt tags: v1.70-refactor02, v1.70-defunct-try
Changes
Hide Diffs Side-by-Side Diffs Ignore Whitespace Patch

Modified Makefile from [39870f25b1] to [b166d2ccee].

︙
28
29
30
31
32
33
34
35

36
37
38
39
40
41
42

28
29
30
31
32
33
34

35
36
37
38
39
40
41
42








-
+








# module source files

MSRCFILES = dbmod.scm rmtmod.scm commonmod.scm apimod.scm		\
archivemod.scm clientmod.scm envmod.scm ezstepsmod.scm itemsmod.scm	\
keysmod.scm launchmod.scm odsmod.scm processmod.scm runconfigmod.scm	\
runsmod.scm servermod.scm subrunmod.scm tasksmod.scm testsmod.scm	\
pkts.scm mtargs.scm mtconfigf.scm ducttape-lib.scm ulex.scm		\
stml2.scm cookie.scm megamod.scm mutils.scm
stml2.scm cookie.scm megamod.scm mutils.scm pgdbmod.scm mtmod.scm 

GMSRCFILES = dcommonmod.scm vgmod.scm treemod.scm gutilsmod.scm

# Eggs to install (straightforward ones)

EGGS=matchable readline apropos base64 regex-literals format		\
regex-case test coops trace csv dot-locking posix-utils posix-extras	\
︙
188
189
190
191
192
193
194
195

196
197
198
199
200
201
202

188
189
190
191
192
193
194

195
196
197
198
199
200
201
202








-
+








mofiles/apimod.o    : mofiles/dbmod.o mofiles/commonmod.o mofiles/servermod.o
mofiles/runsmod.o   : mofiles/testsmod.o mofiles/mtmod.o
mofiles/mtmod.o     : mofiles/mtconfigf.o mofiles/rmtmod.o mofiles/tasksmod.o \
                      mofiles/dbmod.o mofiles/pgdbmod.o mofiles/launchmod.o \
                      mofiles/subrunmod.o
mofiles/servermod.o : mofiles/commonmod.o mofiles/dbmod.o
mofiles/testsmod.o  : mofiles/servermod.o mofiles/dbmod.o
// mofiles/launchmod.o : mofiles/subrunmod.o
mofiles/launchmod.o : mofiles/subrunmod.o mofiles/testsmod.o

# Removed from megamod.o dep:   mofiles/ftail.o
mofiles/megamod.o   : \
   mofiles/rmtmod.o \
   mofiles/commonmod.o \
   mofiles/apimod.o \
   mofiles/archivemod.o \
︙
360
361
362
363
364
365
366


367
368


369
370
371
372
373
374


375

376
377
378
379
380
381
382

360
361
362
363
364
365
366
367
368


369
370
371
372
373
374
375
376
377
378

379
380
381
382
383
384
385
386








+
+
-
-
+
+






+
+
-
+









# install dashboard as dboard so wrapper script can be called dashboard
$(PREFIX)/bin/.$(ARCHSTR)/dboard : dboard $(FILES) utils/mk_wrapper
	utils/mk_wrapper $(PREFIX) dboard $(PREFIX)/bin/dashboard
	chmod a+x $(PREFIX)/bin/dashboard
	$(INSTALL) dboard $(PREFIX)/bin/.$(ARCHSTR)/dboard

install : minstall dinstall

install : $(PREFIX)/bin/.$(ARCHSTR) $(PREFIX)/bin/.$(ARCHSTR)/mtest $(PREFIX)/bin/megatest \
          $(PREFIX)/bin/.$(ARCHSTR)/dboard $(PREFIX)/bin/dashboard $(HELPERS) $(PREFIX)/bin/nbfake \
minstall : $(PREFIX)/bin/.$(ARCHSTR) $(PREFIX)/bin/.$(ARCHSTR)/mtest $(PREFIX)/bin/megatest \
           $(HELPERS) $(PREFIX)/bin/nbfake \
          $(PREFIX)/bin/.$(ARCHSTR)/mtexec $(PREFIX)/bin/mtexec $(PREFIX)/bin/serialize-env \
	  $(PREFIX)/bin/nbfind $(PREFIX)/bin/loadrunner $(PREFIX)/bin/viewscreen $(PREFIX)/bin/mt_xterm \
	  $(PREFIX)/share/docs/megatest_manual.html $(PREFIX)/bin/remrun \
	  $(PREFIX)/share/docs/megatest_manual.html $(PREFIX)/bin/remrun $(PREFIX)/bin/mtutil \
	  $(PREFIX)/bin/tcmt $(PREFIX)/share/db/mt-pg.sql \
          $(PREFIX)/share/js/jquery-3.1.0.slim.min.js 

dinstall : $(PREFIX)/bin/.$(ARCHSTR) $(PREFIX)/bin/.$(ARCHSTR)/dboard $(PREFIX)/bin/dashboard
#         $(PREFIX)/bin/.$(ARCHSTR)/ndboard
#          $(PREFIX)/bin/.$(ARCHSTR)/ndboard

# $(PREFIX)/bin/newdashboard

$(PREFIX)/bin/.$(ARCHSTR) : 
	mkdir -p $(PREFIX)/bin/.$(ARCHSTR)
	mkdir -p $(PREFIX)/bin/.$(ARCHSTR)/lib
︙

Modified client-inc.scm from [2ba0002628] to [072b10337c].

︙
32
33
34
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

32
33
34
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








-
+



















-
+








  (http-transport:client-connect iface port)
  #;(case (server:get-transport)
    ((rpc)  (rpc:client-connect  iface port))
    ((http) (http:client-connect iface port))
    ((zmq)  (zmq:client-connect  iface port))
    (else   (rpc:client-connect  iface port))))

(define (client:setup areapath #!key (remaining-tries 100) (failed-connects 0))
#;(define (client:setup areapath #!key (remaining-tries 100) (failed-connects 0))
  (client:setup-http areapath remaining-tries: remaining-tries failed-connects: failed-connects)
  #;(case (server:get-transport)
    ((rpc) (rpc-transport:client-setup remaining-tries: remaining-tries failed-connects: failed-connects)) ;;(client:setup-rpc run-id))
    ((http)(client:setup-http areapath remaining-tries: remaining-tries failed-connects: failed-connects))
    (else  (rpc-transport:client-setup remaining-tries: remaining-tries failed-connects: failed-connects)))) ;; (client:setup-rpc run-id))))

;; Do all the connection work, look up the transport type and set up the
;; connection if required.
;;
;; There are two scenarios. 
;;   1. We are a test manager and we received *transport-type* and *runremote* via cmdline
;;   2. We are a run tests, list runs or other interactive process and we must figure out
;;      *transport-type* and *runremote* from the monitor.db
;;
;; client:setup
;;
;; lookup_server, need to remove *runremote* stuff
;;

(define (client:setup-http areapath #!key (remaining-tries 100) (failed-connects 0)(area-dat #f))
#;(define (client:setup-http areapath #!key (remaining-tries 100) (failed-connects 0)(area-dat #f))
  (debug:print-info 2 *default-log-port* "client:setup remaining-tries=" remaining-tries)
  (server:start-and-wait areapath)
  (if (<= remaining-tries 0)
      (begin
	(debug:print-error 0 *default-log-port* "failed to start or connect to server")
	(exit 1))
      ;;
︙

Modified commonmod.scm from [f32438be93] to [d0192acf61].

︙
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
47
48
49

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
47
48








-
+




-
-
+
+


+



-
+


-
-
-
+









;;======================================================================

(declare (unit commonmod))
(declare (uses mtargs))
;; (declare (uses stml2))
(declare (uses mtconfigf))
	 

(module commonmod
	*
	
(import scheme chicken data-structures extras)
	
(import (prefix sqlite3 sqlite3:) posix typed-records srfi-18

(use (prefix sqlite3 sqlite3:) posix typed-records srfi-18
	srfi-1 files format srfi-13 matchable 
	srfi-69 ports
	(prefix base64 base64:)
	regex-case regex hostinfo srfi-4
	pkts (prefix dbi dbi:)
	stack
	md5
	md5 
	message-digest
	(prefix mtconfigf configf:)
	;; stml2
	;; (prefix margs args:)
	z3 (prefix base64 base64:)
	z3
	(prefix mtargs args:)
	directory-utils
	sparse-vectors)

(include "common_records.scm")
(include "megatest-fossil-hash.scm")
(include "megatest-version.scm")
︙

Modified dbmod.scm from [e2b43cf911] to [6d54c04c04].

︙
15
16
17
18
19
20
21

22
23
24
25
26
27
28
29






30
31
32
33
34
35
36

15
16
17
18
19
20
21
22
23
24






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








+


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








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

;;======================================================================

(declare (unit dbmod))

(declare (uses commonmod))
(declare (uses keysmod))
(declare (uses tasksmod))
(declare (uses odsmod))
;; (declare (uses testsmod))
(declare (uses mtargs))
(declare (uses mtconfigf))
;; (declare (uses servermod))
(declare (uses mtargs))
(declare (uses mtconfigf))
(declare (uses odsmod))
(declare (uses tasksmod))
;; (declare (uses servermod))
;; (declare (uses testsmod))

(module dbmod
	*
	
(import scheme chicken data-structures extras)
(import (prefix sqlite3 sqlite3:) posix typed-records srfi-18
	srfi-69 format ports srfi-1 matchable stack regex
︙

Modified megamod.scm from [b5e031b7f7] to [8bf7bf0491].

︙
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
47
48
49
50
51
52
53
54
55
56

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




47
48
49
50
51


52


53





54
55
56
57
58
59
60








+
+
+
+
+

-
-
-
+
+
+
+
+
+
+

-
-
-
+
+
+
+
+
+
+
+



-
-
-
-
+
+
+


-
-

-
-

-
-
-
-
-








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

;;======================================================================

(declare (unit megamod))

(declare (uses stml2))
(declare (uses mtargs))

(declare (uses apimod))
(declare (uses commonmod))
;; (declare (uses dbmod))
(declare (uses apimod))
;; (declare (uses ftail))
(declare (uses dbmod))
(declare (uses ducttape-lib))
(declare (uses itemsmod))
(declare (uses mtconfigf))
(declare (uses odsmod))
(declare (uses pgdbmod))
(declare (uses pkts))
(declare (uses rmtmod))
;; (declare (uses archivemod))
;; (declare (uses clientmod))
;; (declare (uses dbmod))
(declare (uses runsmod))
(declare (uses servermod))
(declare (uses tasksmod))
(declare (uses testsmod))
(declare (uses subrunmod))
(declare (uses itemsmod))
;; (declare (uses archivemod))
;; (declare (uses clientmod))
;; (declare (uses dcommonmod))
;; (declare (uses envmod))
;; (declare (uses ezstepsmod))
(declare (uses itemsmod))
;; (declare (uses keysmod))
;; (declare (uses launchmod))
;; (declare (uses odsmod))
;; (declare (uses ftail))
;; (declare (uses keysmod))
;; (declare (uses launchmod))
;; (declare (uses processmod))
;; (declare (uses runconfigmod))
(declare (uses runsmod))
;; (declare (uses servermod))
;; (declare (uses subrunmod))
;; (declare (uses tasksmod))
(declare (uses testsmod))
;; (declare (uses vgmod))
(declare (uses pkts))
(declare (uses mtargs))
(declare (uses mtconfigf))
(declare (uses ducttape-lib))
(declare (uses stml2))

(module megamod
	*
	
(import scheme chicken data-structures extras)
(use 
 (prefix base64 base64:)
︙
102
103
104
105
106
107
108

109

110
111

112
113
114
115














116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142

106
107
108
109
110
111
112
113
114
115
116
117
118




119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136

137
138
139
140

141


142


143



144
145
146
147
148
149
150








+

+


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




-




-

-
-

-
-

-
-
-









(import (prefix mtconfigf configf:))
(define read-config configf:read-config)
(define find-and-read-config configf:find-and-read-config)
;; (define config:eval-string-in-environment configf:eval-string-in-environment)

(import spiffy)

(import stml2)
(import (prefix mtargs args:))

(import apimod)
(import commonmod)
;; (import archivemod)
;; (import clientmod)
(import commonmod)
;; (import dbmod)
(import dbmod)
(import ducttape-lib)
(import itemsmod)
(import pkts)
(import pgdbmod)
(import rmtmod)
(import runsmod)
(import servermod)
(import tasksmod)
(import testsmod)
(import subrunmod)
(import itemsmod)
;; (import archivemod)
;; (import clientmod)
;; (import dcommonmod)
;; (import envmod)
;; (import ezstepsmod)
;; (import ftail)
(import itemsmod)
;; (import keysmod)
;; (import launchmod)
;; (import odsmod)
;; (import processmod)
(import rmtmod)
;; (import runconfigmod)
(import runsmod)
;; (import servermod)
;; (import subrunmod)
;; (import tasksmod)
(import testsmod)
;; (import vgmod)
(import pkts)
(import (prefix mtargs args:))
(import ducttape-lib)

;; (use (prefix ulex ulex:))

(include "common_records.scm")
(include "db_records.scm")
(include "key_records.scm")
(include "run_records.scm")
︙
164
165
166
167
168
169
170
171
172
173





174
175


176
177
178
179
180

181
182
183
184



185
186
187
188
189
190
191
192




193
194

195
196
197
198
199
200

172
173
174
175
176
177
178

179
180
181
182
183
184
185


186
187

188
189
190

191
192



193
194
195


196





197
198
199
200
201

202
203
204
205
206
207
208








-


+
+
+
+
+
-
-
+
+
-



-
+

-
-
-
+
+
+
-
-

-
-
-
-
-
+
+
+
+

-
+







			  exn
			  (begin
			    (print-call-chain)
			    (print " message: " ((condition-property-accessor 'exn 'message) exn)))
			(common:watchdog)))
		    "Watchdog thread"))

;; (include "api-inc.scm")       ;; L3 
(include "archive-inc.scm")  
(include "client-inc.scm")
(include "env-inc.scm")
(include "portlogger-inc.scm")
(include "process-inc.scm")    ;; L6
(include "runconfig-inc.scm")
;; (include "api-inc.scm")       ;; L3 
(include "common-inc.scm")    ;; L5
(include "db-inc.scm")        ;; L4
;; (include "common-inc.scm")    ;; L5
;; (include "db-inc.scm")        ;; L4
(include "env-inc.scm")
;; (include "http-transport-inc.scm")
;; (include "items-inc.scm")
;; (include "keys-inc.scm")
(include "launch-inc.scm")     ;; L1
;; (include "launch-inc.scm")     ;; L1
;; (include "margs-inc.scm")
(include "mt-inc.scm")
(include "ods-inc.scm")        ;; L1
(include "pgdb-inc.scm")
;; (include "mt-inc.scm")
;; (include "ods-inc.scm")        ;; L1
;; (include "pgdb-inc.scm")
(include "portlogger-inc.scm")
(include "process-inc.scm")    ;; L6
;; (include "rmt-inc.scm")        ;; L2
(include "runconfig-inc.scm")
(include "runs-inc.scm")       ;; L1.5
(include "server-inc.scm")
(include "subrun-inc.scm")
(include "tasks-inc.scm")
;; (include "runs-inc.scm")       ;; L1.5
;; (include "server-inc.scm")
;; (include "subrun-inc.scm")
;; (include "tasks-inc.scm")
;; (include "tdb-inc.scm")
(include "tests-inc.scm")
;; (include "tests-inc.scm")

;; (include "js-path.scm") ;; moved into init procedure in tests-inc.scm

)
;; http-transport:server-dat definition moved to common_records.scm
;; bunch of small functions factored out of send-receive to make debug easier

Modified megatest.scm from [72fb075d1d] to [f635d5f126].

︙
27
28
29
30
31
32
33
34
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
83
84
85
86

27
28
29
30
31
32
33

34
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
83
84
85
86
87
88
89






90




















91
92
93
94
95
96
97








-

+
+

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

+
+
+
+
+
+
+
+
+
+
+
+
+
+

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




-
-
-
-
-
-

-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-








     http-client srfi-18 extras format)

;; Added for csv stuff - will be removed
;;
(use sparse-vectors)

(declare (uses mtargs))
(import (prefix mtargs args:))
(declare (uses mtconfigf))

(import (prefix mtargs args:))
(import (prefix mtconfigf configf:))

(declare (uses apimod))
(declare (uses commonmod))
(declare (uses cookie))
(declare (uses ducttape-lib))
(import ducttape-lib)
(declare (uses pkts))
(import pkts)
(declare (uses dbmod))
(declare (uses ducttape-lib))
(declare (uses megamod))
(declare (uses mutils))
(declare (uses pgdbmod))
(declare (uses pkts))
(declare (uses rmtmod))
(declare (uses runsmod))
(declare (uses stml2))
(declare (uses tasksmod))
(declare (uses testsmod))
(declare (uses ulex))

(import apimod)
(import commonmod)
(import cookie)
(import dbmod)
(import ducttape-lib)
(import megamod)
(import mutils)
(import pgdbmod)
(import pkts)
(import rmtmod)
(import runsmod)
(import stml2)
(import testsmod)
(import ulex)

;; invoke the imports
(declare (uses apimod.import))
(declare (uses cookie))
(import cookie)
(declare (uses stml2))
(import stml2)
(declare (uses mutils))
(import mutils)
(declare (uses commonmod.import))
(declare (uses cookie.import))
(declare (uses dbmod))
(declare (uses ducttape-lib.import))
(declare (uses megamod.import))
(declare (uses mutils.import))
(declare (uses pkts.import))
(declare (uses pgdbmod.import))
(declare (uses rmtmod.import))
(declare (uses runsmod.import))
(declare (uses stml2.import))
(declare (uses tasksmod.import))
(declare (uses testsmod.import))
(declare (uses ulex.import))

;; invoke the imports
(declare (uses mtargs.import))
(declare (uses mtconfigf.import))
(declare (uses ducttape-lib.import))
(declare (uses pkts.import))
(declare (uses ulex.import))
(declare (uses cookie.import))
(declare (uses stml2.import))
(declare (uses mutils.import))

(declare (uses commonmod))
(import commonmod)

(declare (uses rmtmod))
(import rmtmod)
(declare (uses dbmod))
(import dbmod)
(declare (uses runsmod))
(import runsmod)
(declare (uses testsmod))
(import testsmod)
(declare (uses megamod))
(import megamod)

;; invoke the imports
(declare (uses commonmod.import))
(declare (uses testsmod.import))
(declare (uses rmtmod.import))
(declare (uses runsmod.import))
(declare (uses megamod.import))
(configf:set-debug-printers debug:print debug:print-info debug:print-error *default-log-port*)


(define *db* #f) ;; this is only for the repl, do not use in general!!!!
(define *default-log-port* (current-error-port))

(include "common_records.scm")
︙

Modified rmtmod.scm from [e41aad08c2] to [90119f80f9].

︙
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

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
47








+
-
-
-
-
-
+
+
+
+
+








-
-
-
-
-
+
+
+
+
+








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

;;======================================================================

(declare (unit rmtmod))

(declare (uses ulex))
(declare (uses itemsmod))
(declare (uses commonmod))
(declare (uses apimod))
(declare (uses dbmod))
(declare (uses apimod))
(declare (uses commonmod))
(declare (uses dbmod))
(declare (uses itemsmod))
(declare (uses ulex))

(module rmtmod
	*
	
(import scheme chicken data-structures extras)
(import (prefix sqlite3 sqlite3:) posix typed-records srfi-18 srfi-69 format ports srfi-1 matchable)

(import (prefix ulex ulex:))
(import
 commonmod
 itemsmod
 apimod
 dbmod)

(import commonmod)
(import itemsmod)
(import apimod)
(import dbmod)

;; (include "rmt-inc.scm")

;;
;; THESE ARE ALL CALLED ON THE CLIENT SIDE!!!
;;
︙

Modified runsmod.scm from [3489944182] to [4385dac738].

︙
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

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
83
84
85
86
87

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



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
83








-
-




















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








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

;;======================================================================

(declare (unit runsmod))


(declare (unit mtmod))
(declare (uses commonmod))
(declare (uses dbmod))
(declare (uses launchmod))
(declare (uses mtargs))
(declare (uses mtconfigf))
(declare (uses mtmod))
(declare (uses pgdbmod))
(declare (uses rmtmod))
(declare (uses servermod))
(declare (uses stml2))
(declare (uses subrunmod))
(declare (uses tasksmod))
(declare (uses testsmod))
(declare (uses itemsmod))

(module runsmod
	*
	
(import scheme chicken data-structures extras ports files)

(import
  (prefix base64 base64:)
(use (prefix base64 base64:)
  (prefix mtargs args:)
  (prefix mtconfigf configf:)
  (prefix sqlite3 sqlite3:)
  call-with-environment-variables
     (prefix sqlite3 sqlite3:)
     call-with-environment-variables
  commonmod
  csv
     csv
  dbmod
  directory-utils
  format
     directory-utils
     format
  itemsmod
  matchable
  message-digest
  md5
     matchable
     message-digest
     md5
  mtmod
  pgdbmod
  ports
  posix
  regex
     ports
     posix
     regex
  rmtmod
  servermod
  srfi-1
  srfi-1
  srfi-13
  srfi-18
  srfi-18
  srfi-69
     srfi-1
     srfi-1
     srfi-13
     srfi-18
     srfi-18
     srfi-69
  srfi-69
  stml2
  subrunmod
  tasksmod
  testsmod
  typed-records
  z3
  )
     typed-records
     z3)

(import commonmod)
(import dbmod)
(import itemsmod)
(import mtmod)
(import pgdbmod)
(import (prefix mtargs args:))
(import (prefix mtconfigf configf:))
(import rmtmod)
(import servermod)
(import stml2)
(import subrunmod)
(import tasksmod)
(import testsmod)

;; (use (prefix ulex ulex:))
(include "run_records.scm")
(include "db_records.scm")
(include "test_records.scm")
(include "key_records.scm")
︙

Modified tasksmod.scm from [c42856c3d0] to [f340b0fd3c].

︙
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

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








+








-
+

+
-
-
-
+
+
+
-
-








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

;;======================================================================

(declare (unit tasksmod))

(declare (uses commonmod))
(declare (uses pgdbmod))
(declare (uses mtconfigf))

(module tasksmod
	*
	
(import scheme chicken data-structures extras)
(import (prefix sqlite3 sqlite3:) posix typed-records srfi-18 srfi-69 format ports srfi-1 matchable
(use (prefix sqlite3 sqlite3:) posix typed-records srfi-18 srfi-69 format ports srfi-1 matchable
	regex)

(import commonmod
	(prefix mtconfigf configf:)
	pgdbmod
(import commonmod)
(import	(prefix mtconfigf configf:))
(import	pgdbmod)
	)
;; (use (prefix ulex ulex:))

(include "common_records.scm")
(include "task_records.scm")

;; (include "tasks-inc.scm")
︙

Modified testsmod.scm from [2c082f5fd9] to [c8d571e7fd].

︙
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
47
48
49
50

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
47
48
49
50
51
52
53








+












-
+


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








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

;;======================================================================

(declare (unit testsmod))

(declare (uses commonmod))
(declare (uses mtargs))
(declare (uses servermod))
(declare (uses mtconfigf))
(declare (uses itemsmod))
(declare (uses dbmod))

(module testsmod
	*
	
(import scheme chicken data-structures extras files)

(import (prefix sqlite3 sqlite3:) posix typed-records srfi-18 srfi-69
(use (prefix sqlite3 sqlite3:) posix typed-records srfi-18 srfi-69
	format ports srfi-1 matchable
	directory-utils
	regex srfi-13
	commonmod
	servermod
	itemsmod
	dbmod
	(prefix mtconfigf configf:)
	(prefix mtargs args:))
	regex srfi-13)


(import	commonmod)
(import	servermod)
(import	itemsmod)
(import	dbmod)
(import	(prefix mtconfigf configf:))
(import	(prefix mtargs args:))

(include "run_records.scm")
(include "test_records.scm")
(include "db_records.scm")

(define *java-script-lib* #f)
︙

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