Megatest

Check-in [6771ae5be3]
Login
☰Home Timeline Files Branches Tags Tickets Wiki Login
Overview
Comment:wip
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.80-revolution-remodularization
Files: files | file ages | folders
SHA1: 6771ae5be3a582a61409ae71b66c1bfda839170b
User & Date: matt on 2024-02-03 21:48:18
Other Links: branch diff | manifest | tags
Context
2024-02-04
09:00
Bug hidden in db_records ... check-in: cd9be98ea8 user: matt tags: v1.80-revolution-remodularization
2024-02-03
21:48
wip check-in: 6771ae5be3 user: matt tags: v1.80-revolution-remodularization
20:40
Dashboard and test control panel work check-in: c4f43bb65c user: matt tags: v1.80-revolution-remodularization
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Modified launch.scm from [89f90416db] to [7ceaa30a8a].

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

(declare (uses configfmod))
(declare (uses configf))
(declare (uses db))
(declare (uses rmtmod))
(declare (uses ezsteps))
;; (declare (uses dbmod))
(declare (uses dbfile))

(declare (uses mtargs))
(declare (uses mtmod))
(declare (uses megatestmod))


(use regex regex-case base64 sqlite3 srfi-18 directory-utils posix posix-extras z3
     call-with-environment-variables csv hostinfo 
     typed-records pathname-expand matchable)

(import (prefix base64 base64:)
	(prefix sqlite3 sqlite3:)
	(prefix mtargs args:)
)

(include "common_records.scm")
(include "key_records.scm")
(include "db_records.scm")
(include "megatest-fossil-hash.scm")

(import commonmod
	processmod
	configfmod
	rmtmod
	debugprint
	;; dbmod
	dbfile
	mtmod
	megatestmod

	)

;;======================================================================
;; ezsteps
;;======================================================================

;; ezsteps were going to be coded as








>



>




















|



>








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

(declare (uses configfmod))
(declare (uses configf))
(declare (uses db))
(declare (uses rmtmod))
(declare (uses ezsteps))
;; (declare (uses dbmod))
(declare (uses dbfile))
(declare (uses dbmod))
(declare (uses mtargs))
(declare (uses mtmod))
(declare (uses megatestmod))
(declare (uses tasksmod))

(use regex regex-case base64 sqlite3 srfi-18 directory-utils posix posix-extras z3
     call-with-environment-variables csv hostinfo 
     typed-records pathname-expand matchable)

(import (prefix base64 base64:)
	(prefix sqlite3 sqlite3:)
	(prefix mtargs args:)
)

(include "common_records.scm")
(include "key_records.scm")
(include "db_records.scm")
(include "megatest-fossil-hash.scm")

(import commonmod
	processmod
	configfmod
	rmtmod
	debugprint
	dbmod
	dbfile
	mtmod
	megatestmod
	tasksmod
	)

;;======================================================================
;; ezsteps
;;======================================================================

;; ezsteps were going to be coded as
︙︙

Modified rmtmod.scm from [21ad49452d] to [43bee36f88].

︙︙
940
941
942
943
944
945
946
947


948
949
950
951
952
953

954
955
956
957
958
959
960

	       ro-mode))))))


;;======================================================================
;;  S U P P O R T   F U N C T I O N S
;;======================================================================

(define (rmt:on-homehost? runremote)


  (let* ((hh-dat (remote-hh-dat runremote)))
    (if (pair? hh-dat)
	(cdr hh-dat)
	(begin
	  (debug:print-info 0 *default-log-port* "hh-dat="hh-dat)
	  #f))))


(define (make-and-init-remote areapath)
   (case (rmt:transport-mode)
     ((http)(make-remote))
     ((tcp) (tt:make-remote areapath))
     (else #f)))









|
>
>
|
|
|
|
|
|
>








940
941
942
943
944
945
946
947
948
949
950
951
952
953
954
955
956
957
958
959
960
961
962
963

	       ro-mode))))))


;;======================================================================
;;  S U P P O R T   F U N C T I O N S
;;======================================================================

(define (rmt:on-homehost? #!optional (runremote-in #f))
  (let* ((runremote (or runremote-in *runremote*)))
    (if runremote
	(let* ((hh-dat (remote-hh-dat runremote)))
	  (if (pair? hh-dat)
	      (cdr hh-dat)
	      (begin
		(debug:print-info 0 *default-log-port* "hh-dat="hh-dat)
		#f)))
	#f))) ;; not true strickly speaking, might be runremote was not yet initialized.

(define (make-and-init-remote areapath)
   (case (rmt:transport-mode)
     ((http)(make-remote))
     ((tcp) (tt:make-remote areapath))
     (else #f)))
︙︙

Modified runs.scm from [f4571037f1] to [1eb8ab2373].

︙︙
21
22
23
24
25
26
27

28



29
30
31
32
33
34
35

(declare (uses debugprint))
(declare (uses commonmod))
(declare (uses processmod))
(declare (uses configfmod))
(declare (uses mtargs))
(declare (uses rmtmod))
(declare (uses dbfile))

(declare (uses megatestmod))




(declare (uses db))
(declare (uses common))
(declare (uses items))
(declare (uses runconfig))
(declare (uses tests))
(declare (uses server))








>

>
>
>








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

(declare (uses debugprint))
(declare (uses commonmod))
(declare (uses processmod))
(declare (uses configfmod))
(declare (uses mtargs))
(declare (uses rmtmod))
(declare (uses dbfile))
(declare (uses dbmod))
(declare (uses megatestmod))
(declare (uses mtmod))
(declare (uses tasksmod))
(declare (uses servermod))

(declare (uses db))
(declare (uses common))
(declare (uses items))
(declare (uses runconfig))
(declare (uses tests))
(declare (uses server))
︙︙
52
53
54
55
56
57
58

59
60




61
62
63
64
65
66
67


(import commonmod
	processmod
	configfmod
	debugprint
	rmtmod
	dbfile

	megatestmod
	(prefix mtargs args:))





;; use this struct to facilitate refactoring
;;

(defstruct runs:dat
  reglen regfull
  runname max-concurrent-jobs run-id








>

|
>
>
>
>








56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76


(import commonmod
	processmod
	configfmod
	debugprint
	rmtmod
	dbfile
	dbmod
	megatestmod
	(prefix mtargs args:)
	mtmod
	tasksmod
	servermod
	)

;; use this struct to facilitate refactoring
;;

(defstruct runs:dat
  reglen regfull
  runname max-concurrent-jobs run-id
︙︙

Modified utils/plot-uses.scm from [39edbe170d] to [fc6b8a9e1d].

︙︙
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93

       (for-each
	(lambda (fname)
	  (print "// Filename: "fname)
	  (process-file ignores fname))
	files)
       (print "}")))
    (else
     (print-err "Usage: plot-uses u1,u2... file1.scm ...")
     (print-err "    where u1,u2... are units to ignore and file1.scm... are the files to process."))))

(main)

)
;; 
;; ;; Gather the usages








|








79
80
81
82
83
84
85
86
87
88
89
90
91
92
93

       (for-each
	(lambda (fname)
	  (print "// Filename: "fname)
	  (process-file ignores fname))
	files)
       (print "}")))
    (else
     (print-err "Usage: plot-uses todot u1,u2... file1.scm ...")
     (print-err "    where u1,u2... are units to ignore and file1.scm... are the files to process."))))

(main)

)
;; 
;; ;; Gather the usages
︙︙

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