Megatest

Check-in [50e6a59d65]
Login
Overview
Comment:Added level hints to megamod.scm
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.70-defunct-try
Files: files | file ages | folders
SHA1: 50e6a59d6504f9f34e64d23dff41c9b1f0511006
User & Date: mrwellan on 2019-12-10 19:11:38
Other Links: branch diff | manifest | tags
Context
2019-12-10
20:37
Added re-reload of testconfig at begining of run:test. It will likely need to be tweaked - especially it will need some additional variables set. check-in: ad3f2a1d6f user: matt tags: v1.70-defunct-try
19:11
Added level hints to megamod.scm check-in: 50e6a59d65 user: mrwellan tags: v1.70-defunct-try
2019-12-09
10:21
Added missing import in megatest check-in: 0ecec8fde8 user: mrwellan tags: v1.70-defunct-try
Changes

Modified common-inc.scm from [3fea723fa6] to [b0ac284799].

581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598
599
600
581
582
583
584
585
586
587






588
589
590
591
592
593
594







-
-
-
-
-
-







				       "/megatest_localdb/"
				       (common:get-testsuite-name) "/"
				       (string-translate *toppath* "/" ".")))))) ;;  #t))))
	      (set! *db-cache-path* dbpath)
	      dbpath))
	  #f)))

(define (common:get-area-path-signature)
  (message-digest-string (md5-primitive) *toppath*))

(define (common:get-signature str)
  (message-digest-string (md5-primitive) str))

;;======================================================================
;; E X I T   H A N D L I N G
;;======================================================================

(define (common:run-sync?)
    (and (common:on-homehost?)
	 (args:get-arg "-server")))

Modified commonmod.scm from [4de3b53470] to [f35a4b6429].

21
22
23
24
25
26
27

28
29
30
31
32
33



34
35
36
37
38
39
40
21
22
23
24
25
26
27
28
29
30
31
32
33

34
35
36
37
38
39
40
41
42
43







+





-
+
+
+







(declare (unit commonmod))
;; (declare (uses processmod))

(module commonmod
	*
	
(import scheme chicken data-structures extras)
	
(import (prefix sqlite3 sqlite3:) posix typed-records srfi-18
	srfi-1 files format srfi-13 matchable 
	srfi-69 ports
	regex-case regex hostinfo srfi-4
	pkts (prefix dbi dbi:)
	stack)
	stack
	md5
	message-digest)

;; (import processmod)
(import stml2)

(include "common_records.scm")
(include "megatest-fossil-hash.scm")
(include "megatest-version.scm")
1479
1480
1481
1482
1483
1484
1485


1486





1482
1483
1484
1485
1486
1487
1488
1489
1490

1491
1492
1493
1494
1495







+
+
-
+
+
+
+
+


;; if a value is printable (i.e. string or number) return the value
;; else return an empty string
(define-inline (printable val)
  (if (or (number? val)(string? val)) val ""))

(define (common:get-area-path-signature)
  (message-digest-string (md5-primitive) *toppath*))
)

(define (common:get-signature str)
  (message-digest-string (md5-primitive) str))

)

Modified megamod.scm from [8a4d41c4e0] to [bd34f0cc6b].

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







-
-
+
+

-
-
+
+




-
+


-
+


-
-
+
+

-
+







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

(include "api-inc.scm")
(include "archive-inc.scm")
(include "api-inc.scm")       ;; L3 
(include "archive-inc.scm")  
(include "client-inc.scm")
(include "common-inc.scm")
(include "db-inc.scm")
(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")
(include "launch-inc.scm")     ;; L1
(include "margs-inc.scm")
(include "mt-inc.scm")
(include "ods-inc.scm")
(include "ods-inc.scm")        ;; L1
(include "pgdb-inc.scm")
(include "portlogger-inc.scm")
(include "process-inc.scm")
(include "rmt-inc.scm")
(include "process-inc.scm")    ;; L6
(include "rmt-inc.scm")        ;; L2
(include "runconfig-inc.scm")
(include "runs-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 "js-path.scm") ;; moved into init procedure in tests-inc.scm

Modified tasksmod.scm from [0296dff086] to [761314b3f9].

27
28
29
30
31
32
33


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







+
+


(import scheme chicken data-structures extras)
(import (prefix sqlite3 sqlite3:) posix typed-records srfi-18 srfi-69 format ports srfi-1 matchable)
(import commonmod)
;; (use (prefix ulex ulex:))

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

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

)