Megatest

Check-in [0b3b04d806]
Login
Overview
Comment:wip
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.90-proper-interface-lists
Files: files | file ages | folders
SHA1: 0b3b04d806eabb24913b4eb4084195e23530fcb3
User & Date: matt on 2024-02-12 19:10:52
Other Links: branch diff | manifest | tags
Context
2024-02-12
20:23
wip check-in: 9debf04bc8 user: matt tags: v1.90-proper-interface-lists
19:10
wip check-in: 0b3b04d806 user: matt tags: v1.90-proper-interface-lists
18:23
wip check-in: f0cac027b6 user: matt tags: v1.90-proper-interface-lists
Changes

Modified Makefile from [8fe4d25af9] to [c7da45c614].

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

SHELL=/bin/bash
PREFIX=$(PWD)
CSCOPTS=
INSTALL=install
SRCFILES = launch.scm runconfig.scm	\
           server.scm configf.scm keys.scm		\
           process.scm runs.scm genexample.scm	\
           tdb.scm mt.scm	\
           ezsteps.scm api.scm		\
           subrun.scm archive.scm env.scm		\
           diff-report.scm

# cgisetup/models/pgdb.scm

# module source files
MSRCFILES = dbfile.scm debugprint.scm mtargs.scm commonmod.scm dbmod.scm \
            tcp-transportmod.scm rmtmod.scm portlogger.scm apimod.scm \
	    configfmod.scm processmod.scm servermod.scm megatestmod.scm \
	    stml2.scm fsmod.scm cpumod.scm mtmod.scm odsmod.scm \
            pkts.scm testsmod.scm pgdb.scm cookie.scm launchmod.scm \
            subrunmod.scm runsmod.scm tasksmod.scm archivemod.scm \
            ezstepsmod.scm mtbody.scm envmod.scm

transport-mode.scm : transport-mode.scm.template
	cp transport-mode.scm.template transport-mode.scm

dashboard-transport-mode.scm : dashboard-transport-mode.scm.template
	cp dashboard-transport-mode.scm.template dashboard-transport-mode.scm

mtest : transport-mode.scm
dboard : dashboard-transport-mode.scm

# dbmod.import.o is just a hack here

mofiles/mtbody.o     : mofiles/launchmod.o readline-fix.scm mofiles/envmod.o
process.o            : mofiles/processmod.o
mofiles/configfmod.o : mofiles/processmod.o
mofiles/processmod.o : mofiles/commonmod.o
mofiles/servermod.o  : mofiles/commonmod.o
mofiles/rmtmod.o     : mofiles/mtmod.o mofiles/apimod.o
mofiles/dbmod.o      : mofiles/mtmod.o
# mofiles/mtmod.o      : mofiles/tcp-transportmod.o







|














|












|







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

SHELL=/bin/bash
PREFIX=$(PWD)
CSCOPTS=
INSTALL=install
SRCFILES = launch.scm runconfig.scm	\
           server.scm configf.scm keys.scm		\
           process.scm runs.scm \
           tdb.scm mt.scm	\
           ezsteps.scm api.scm		\
           subrun.scm archive.scm env.scm		\
           diff-report.scm

# cgisetup/models/pgdb.scm

# module source files
MSRCFILES = dbfile.scm debugprint.scm mtargs.scm commonmod.scm dbmod.scm \
            tcp-transportmod.scm rmtmod.scm portlogger.scm apimod.scm \
	    configfmod.scm processmod.scm servermod.scm megatestmod.scm \
	    stml2.scm fsmod.scm cpumod.scm mtmod.scm odsmod.scm \
            pkts.scm testsmod.scm pgdb.scm cookie.scm launchmod.scm \
            subrunmod.scm runsmod.scm tasksmod.scm archivemod.scm \
            ezstepsmod.scm mtbody.scm envmod.scm genexample.scm

transport-mode.scm : transport-mode.scm.template
	cp transport-mode.scm.template transport-mode.scm

dashboard-transport-mode.scm : dashboard-transport-mode.scm.template
	cp dashboard-transport-mode.scm.template dashboard-transport-mode.scm

mtest : transport-mode.scm
dboard : dashboard-transport-mode.scm

# dbmod.import.o is just a hack here

mofiles/mtbody.o     : mofiles/launchmod.o readline-fix.scm mofiles/envmod.o mofiles/genexample.o
process.o            : mofiles/processmod.o
mofiles/configfmod.o : mofiles/processmod.o
mofiles/processmod.o : mofiles/commonmod.o
mofiles/servermod.o  : mofiles/commonmod.o
mofiles/rmtmod.o     : mofiles/mtmod.o mofiles/apimod.o
mofiles/dbmod.o      : mofiles/mtmod.o
# mofiles/mtmod.o      : mofiles/tcp-transportmod.o

Modified commonmod.scm from [ff1b512a5e] to [fbed9e11d0].

77
78
79
80
81
82
83


84
85
86
87
88
89
90
	 common:with-env-vars
	 common:nice-path
	 common:get-fields

	 common:get-normalized-cpu-load
	 common:unix-ping
	 common:get-normalized-cpu-load



	 ;; globals
	 *common:badly-ended-states*
	 *common:dont-roll-up-states*
	 *common:ended-states*
	 *common:not-started-ok-statuses*
	 *common:running-states*







>
>







77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
	 common:with-env-vars
	 common:nice-path
	 common:get-fields

	 common:get-normalized-cpu-load
	 common:unix-ping
	 common:get-normalized-cpu-load
	 common:raw-get-remote-host-load
	 common:to-alist

	 ;; globals
	 *common:badly-ended-states*
	 *common:dont-roll-up-states*
	 *common:ended-states*
	 *common:not-started-ok-statuses*
	 *common:running-states*

Modified genexample.scm from [706bcbab51] to [570b3e311e].

21
22
23
24
25
26
27



28
29















30
31
32

33
34


35
36
37
38
39
40
41
(declare (unit genexample))
(declare (uses mtargs))
(declare (uses debugprint))
;; (declare (uses common))
(declare (uses commonmod))
(declare (uses configfmod))
(declare (uses rmtmod))




(use posix regex matchable)















(import (prefix mtargs args:)
	commonmod
	configfmod

	rmtmod
	debugprint)



;; (include "db_records.scm")

(define genexample:example-logpro
#<<EOF
  ;; You should have at least one expect:required. This ensures that your process ran
  ;; comment out the line below and replace "put pattern here" with a pattern that will







>
>
>


>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
|


>

|
>
>







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
(declare (unit genexample))
(declare (uses mtargs))
(declare (uses debugprint))
;; (declare (uses common))
(declare (uses commonmod))
(declare (uses configfmod))
(declare (uses rmtmod))
(declare (uses testsmod))
(declare (uses dbfile))
(declare (uses tasksmod))

(use posix regex matchable)

(module genexample
	*
	
(import scheme
	chicken

	data-structures
	extras
	srfi-1
	srfi-13
	srfi-69
	posix
	regex
	matchable
	(prefix mtargs args:)
	commonmod
	configfmod
	testsmod
	rmtmod
	debugprint
	tasksmod
	dbfile)

;; (include "db_records.scm")

(define genexample:example-logpro
#<<EOF
  ;; You should have at least one expect:required. This ensures that your process ran
  ;; comment out the line below and replace "put pattern here" with a pattern that will
524
525
526
527
528
529
530

		      (if (not (equal? item-path ""))
			  (system (conc "refdb set " miscrdb " itemsinfo " (obfuscate testname) " " (obfuscate item-path) " x")))

		      ))))
	    tests-data)))
       (map (lambda (runrec)(simple-run-id runrec)) runs)))
    ))








>
545
546
547
548
549
550
551
552
		      (if (not (equal? item-path ""))
			  (system (conc "refdb set " miscrdb " itemsinfo " (obfuscate testname) " " (obfuscate item-path) " x")))

		      ))))
	    tests-data)))
       (map (lambda (runrec)(simple-run-id runrec)) runs)))
    ))
)

Modified megatestmod.scm from [f7a970e626] to [18a9d991bb].

56
57
58
59
60
61
62

63
64
65
66
67
68
69
	 tests:get-global-waitons
	 tests:get-tests-search-path
	 tests:filter-test-names
	 common:args-get-testpatt
	 tests:filter-test-names-not-matched
	 common:args-get-runname
	 common:load-views-config

	 common:get-runconfig-targets
	 )

(import scheme)
(cond-expand
 (chicken-4
  







>







56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
	 tests:get-global-waitons
	 tests:get-tests-search-path
	 tests:filter-test-names
	 common:args-get-testpatt
	 tests:filter-test-names-not-matched
	 common:args-get-runname
	 common:load-views-config
	 common:args-get-state
	 common:get-runconfig-targets
	 )

(import scheme)
(cond-expand
 (chicken-4
  

Modified mtbody.scm from [d7a4b50c71] to [91f45efc86].

27
28
29
30
31
32
33




34
35
36
37
38
39
40
(declare (uses mtargs))
(declare (uses commonmod))
(declare (uses configfmod))
(declare (uses dbmod))
(declare (uses dbfile))
(declare (uses envmod))
(declare (uses apimod))





(use srfi-69)

(module mtbody
	*
	
(import scheme)







>
>
>
>







27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
(declare (uses mtargs))
(declare (uses commonmod))
(declare (uses configfmod))
(declare (uses dbmod))
(declare (uses dbfile))
(declare (uses envmod))
(declare (uses apimod))
(declare (uses genexample))
(declare (uses rmtmod))
(declare (uses archivemod))
(declare (uses mutils))

(use srfi-69)

(module mtbody
	*
	
(import scheme)
103
104
105
106
107
108
109

110
111
112
113
114
115

116
117
118
119
120
121
122
123
	  srfi-1
	  srfi-18
	  srfi-69
	  typed-records
	  system-information

	  debugprint

  )))

;; imports common to chk5 and ck4
(import srfi-13)

(import (prefix mtargs args:)

        debugprint
	dbmod
	commonmod
	processmod
	configfmod
	dbfile
	dbmod
	portlogger







>






>
|







107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
	  srfi-1
	  srfi-18
	  srfi-69
	  typed-records
	  system-information

	  debugprint
	  mutils
  )))

;; imports common to chk5 and ck4
(import srfi-13)

(import (prefix mtargs args:)
        archivemod
	debugprint
	dbmod
	commonmod
	processmod
	configfmod
	dbfile
	dbmod
	portlogger
131
132
133
134
135
136
137

138


139
140
141
142
143
144
145
	tasksmod
	runsmod
	rmtmod
	launchmod
	fsmod
	envmod
	apimod

        )



(define *db* #f) ;; this is only for the repl, do not use in general!!!!

;; (include "common_records.scm")
;; (include "key_records.scm")
;; (include "db_records.scm")
(include "run_records.scm")







>

>
>







137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
	tasksmod
	runsmod
	rmtmod
	launchmod
	fsmod
	envmod
	apimod
	genexample
        )

(include "common_records.scm")

(define *db* #f) ;; this is only for the repl, do not use in general!!!!

;; (include "common_records.scm")
;; (include "key_records.scm")
;; (include "db_records.scm")
(include "run_records.scm")

Modified runsmod.scm from [28e45b97f9] to [fcbbf29735].

52
53
54
55
56
57
58

59
60
61
62
63
64
65
	 launch:setup
	 launch:end-of-run-check
	 launch:test-copy

	 set-item-env-vars
	 runs:set-megatest-env-vars
	 full-runconfigs-read

	 )

(import scheme)
(cond-expand
 (chicken-4
  
  (import chicken







>







52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
	 launch:setup
	 launch:end-of-run-check
	 launch:test-copy

	 set-item-env-vars
	 runs:set-megatest-env-vars
	 full-runconfigs-read
	 runs:operate-on
	 )

(import scheme)
(cond-expand
 (chicken-4
  
  (import chicken

Modified servermod.scm from [92c0957b7c] to [cad826e462].

26
27
28
29
30
31
32


33
34
35
36
37
38
39

(module servermod
	(
	 remote-hh-dat
	 server:mk-signature
	 common:wait-for-normalized-load
	 server:expiration-timeout


	 )

(import scheme
	chicken)
	
(use (srfi 18) extras s11n)
(use srfi-1 posix regex regex-case srfi-69 hostinfo md5 message-digest)







>
>







26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41

(module servermod
	(
	 remote-hh-dat
	 server:mk-signature
	 common:wait-for-normalized-load
	 server:expiration-timeout
	 server:get-best-guess-address
	 
	 )

(import scheme
	chicken)
	
(use (srfi 18) extras s11n)
(use srfi-1 posix regex regex-case srfi-69 hostinfo md5 message-digest)

Modified tasksmod.scm from [1d99e1d940] to [a65b2ea9fd].

48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
	 tests:test-set-status!
	 common:get-launcher
	 tasks:kill-runner
	 tests:get-testconfig
	 tests:get-waitons

	 tests:get-test-path-from-environment

	 )

(import scheme)
(cond-expand
 (chicken-4
  
  (import chicken







|







48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
	 tests:test-set-status!
	 common:get-launcher
	 tasks:kill-runner
	 tests:get-testconfig
	 tests:get-waitons

	 tests:get-test-path-from-environment
	 common:exit-on-version-changed
	 )

(import scheme)
(cond-expand
 (chicken-4
  
  (import chicken

Modified testsmod.scm from [70de32f7f8] to [53cbd4fb1c].

46
47
48
49
50
51
52

53
54
55
56
57
58
59
	 tests:filter-non-runnable
	 tests:sort-by-priority-and-waiton

	 tests:summarize-test
	 tests:save-final-status
	 tests:update-central-meta-info
	 tests:set-full-meta-info

	 )

(import scheme)
(cond-expand
 (chicken-4
  
  (import chicken







>







46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
	 tests:filter-non-runnable
	 tests:sort-by-priority-and-waiton

	 tests:summarize-test
	 tests:save-final-status
	 tests:update-central-meta-info
	 tests:set-full-meta-info
	 tests:get-compressed-steps
	 )

(import scheme)
(cond-expand
 (chicken-4
  
  (import chicken