Megatest

Check-in [5f97e5ae8d]
Login
☰Home Timeline Files Branches Tags Tickets Wiki Login
Overview
Comment:wip
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.65-try3
Files: files | file ages | folders
SHA1: 5f97e5ae8d8d44f424886e7dce0224698a157516
User & Date: matt on 2019-11-03 22:38:37
Other Links: branch diff | manifest | tags
Context
2019-11-04
04:29
repl works check-in: 8fb98dda5f user: matt tags: v1.65-try3
2019-11-03
22:38
wip check-in: 5f97e5ae8d user: matt tags: v1.65-try3
22:05
wip-compiles check-in: 566a3b0cf8 user: matt tags: v1.65-try3
Changes
Hide Diffs Side-by-Side Diffs Ignore Whitespace Patch

Modified Makefile from [c3cc2fa09a] to [8f26a1afe2].

︙
234
235
236
237
238
239
240
241
242


243
244
245
246
247
248
249

234
235
236
237
238
239
240


241
242
243
244
245
246
247
248
249








-
-
+
+









$(PREFIX)/bin/mtutil : $(PREFIX)/bin/.$(ARCHSTR)/mtut utils/mk_wrapper
	utils/mk_wrapper $(PREFIX) mtut $(PREFIX)/bin/mtutil
	chmod a+x $(PREFIX)/bin/mtutil

# mtexec

mtexec: $(OFILES) $(MOFILES) megatest-fossil-hash.scm mtexec.scm
	csc $(CSCOPTS) $(OFILES) $(MOFILES) mtexec.scm -o mtexec
mtexec: $(MOFILES) megatest-fossil-hash.scm mtexec.scm
	csc $(CSCOPTS) $(MOFILES) mtexec.scm -o mtexec

$(PREFIX)/bin/.$(ARCHSTR)/mtexec : mtexec
	$(INSTALL) mtexec $(PREFIX)/bin/.$(ARCHSTR)/mtexec

$(PREFIX)/bin/mtexec : $(PREFIX)/bin/.$(ARCHSTR)/mtexec utils/mk_wrapper
	utils/mk_wrapper $(PREFIX) mtexec $(PREFIX)/bin/mtexec
	chmod a+x $(PREFIX)/bin/mtexec
︙

Modified http-transport-inc.scm from [06fb34d171] to [7456c8c216].

︙
13
14
15
16
17
18
19
20
21


22
23
24
25
26
27
28

13
14
15
16
17
18
19


20
21
22
23
24
25
26
27
28








-
-
+
+








;;     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
;;     GNU General Public License for more details.
;; 
;;     You should have received a copy of the GNU General Public License
;;     along with Megatest.  If not, see <http://www.gnu.org/licenses/>.

;; Configurations for server
(tcp-buffer-size 2048)
(max-connections 2048) 
;; (tcp-buffer-size 2048)
;; (max-connections 2048) 

(define (http-transport:make-server-url hostport)
  (if (not hostport)
      #f
      (conc "http://" (car hostport) ":" (cadr hostport))))

(define *server-loop-heart-beat* (current-seconds))
︙

Modified megamod.scm from [c04176f17d] to [f09fea9964].

︙
46
47
48
49
50
51
52
53

54
55
56
57
58
59
60
61
62
63
64
65
66
67

46
47
48
49
50
51
52

53
54
55
56
57
58
59

60
61
62
63
64
65
66








-
+






-








;; (declare (uses testsmod))
;; (declare (uses vgmod))

(module megamod
	*
	
(import scheme chicken data-structures extras)
(import
(use 
 (prefix base64 base64:)
 (prefix dbi dbi:)
 (prefix nanomsg nmsg:)
 (prefix sqlite3 sqlite3:)
 call-with-environment-variables
 canvas-draw
 canvas-draw-iup
 csv
 csv-xml
 data-structures
 directory-utils
 dot-locking
 extras
 files
︙
97
98
99
100
101
102
103



104
105
106
107
108
109
110

96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112








+
+
+








 stml2
 tcp
 typed-records
 udp
 uri-common
 z3
 )

(import canvas-draw-iup spiffy)


;; (import apimod)
;; (import archivemod)
;; (import clientmod)
;; (import commonmod)
;; (import configfmod)
;; (import dbmod)
︙
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145

133
134
135
136
137
138
139

140
141
142
143
144
145
146








-








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

;;======================================================================
;; L O C K I N G   M E C H A N I S M S 
;;======================================================================

(include "megatest-fossil-hash.scm")
(include "megatest-version.scm")
︙
191
192
193
194
195
196
197

198
199
200
201

192
193
194
195
196
197
198
199
200
201
202
203








+





(include "runs-inc.scm")
(include "server-inc.scm")
(include "subrun-inc.scm")
(include "tasks-inc.scm")
(include "tdb-inc.scm")
(include "tests-inc.scm")
(include "vg-inc.scm")
(include "js-path.scm") ;; load last as it sets a global

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

Modified mtexec.scm from [63fcb68d27] to [b5282235db].

︙
26
27
28
29
30
31
32
33





34
35
36
37
38
39
40

26
27
28
29
30
31
32

33
34
35
36
37
38
39
40
41
42
43
44








-
+
+
+
+
+








   srfi-19  srfi-18 extras format pkts regex regex-case
     (prefix dbi dbi:)
     )

;; (declare (uses common))
(declare (uses megatest-version))
(declare (uses margs))
(declare (uses configf))
;; (declare (uses configf))

(declare (uses megamod))
(import megamod)

;; (declare (uses rmt))

;; (use ducttape-lib)

(include "megatest-fossil-hash.scm")

;; (require-library stml)
︙

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