︙ | | | ︙ | |
17
18
19
20
21
22
23
24
25
26
27
28
29
30
|
(declare (uses common))
(declare (uses megatest-version))
(declare (uses margs))
(declare (uses runs))
(declare (uses launch))
(declare (uses server))
(declare (uses tests))
(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")
|
>
|
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
|
(declare (uses common))
(declare (uses megatest-version))
(declare (uses margs))
(declare (uses runs))
(declare (uses launch))
(declare (uses server))
(declare (uses tests))
(declare (uses genexample))
(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")
|
︙ | | | ︙ | |
97
98
99
100
101
102
103
104
105
106
107
108
109
110
|
Spreadsheet generation
-extract-ods fname.ods : extract an open document spreadsheet from the database
-pathmod path : insert path, i.e. path/runame/itempath/logfile.html
will clear the field if no rundir/testname/itempath/logfile
if it contains forward slashes the path will be converted
to windows style
Examples
# Get test path, the '.' is required, could use '*' or a specific path/file
megatest -test-path . -target ubuntu/n%/no% :runname w49% -testpatt test_mt%
Called as " (string-intersperse (argv) " ")))
|
>
>
>
|
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
|
Spreadsheet generation
-extract-ods fname.ods : extract an open document spreadsheet from the database
-pathmod path : insert path, i.e. path/runame/itempath/logfile.html
will clear the field if no rundir/testname/itempath/logfile
if it contains forward slashes the path will be converted
to windows style
Getting started
-gen-megatest-area : create a skeleton megatest area. You will be prompted for paths
-gen-megatest-test : create a skeleton megatest test. You will be prompted for info
Examples
# Get test path, the '.' is required, could use '*' or a specific path/file
megatest -test-path . -target ubuntu/n%/no% :runname w49% -testpatt test_mt%
Called as " (string-intersperse (argv) " ")))
|
︙ | | | ︙ | |
149
150
151
152
153
154
155
156
157
158
159
160
161
162
|
"-server"
"-extract-ods"
"-pathmod"
"-env2file"
"-setvars"
"-set-state-status"
"-debug" ;; for *verbosity* > 2
"-override-timeout"
)
(list "-h"
"-force"
"-xterm"
"-showkeys"
"-test-status"
|
>
|
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
|
"-server"
"-extract-ods"
"-pathmod"
"-env2file"
"-setvars"
"-set-state-status"
"-debug" ;; for *verbosity* > 2
"-gen-megatest-test"
"-override-timeout"
)
(list "-h"
"-force"
"-xterm"
"-showkeys"
"-test-status"
|
︙ | | | ︙ | |
175
176
177
178
179
180
181
182
183
184
185
186
187
188
|
"-runall" ;; run all tests
"-remove-runs"
"-usequeue"
"-rebuild-db"
"-rollup"
"-update-meta"
"-v" ;; verbose 2, more than normal (normal is 1)
"-q" ;; quiet 0, errors/warnings only
)
args:arg-hash
0))
|
>
|
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
|
"-runall" ;; run all tests
"-remove-runs"
"-usequeue"
"-rebuild-db"
"-rollup"
"-update-meta"
"-gen-megatest-area"
"-v" ;; verbose 2, more than normal (normal is 1)
"-q" ;; quiet 0, errors/warnings only
)
args:arg-hash
0))
|
︙ | | | ︙ | |
751
752
753
754
755
756
757
758
759
760
761
762
763
764
|
(set! *didsomething* #t)))
(if (args:get-arg "-gui")
(begin
(debug:print 0 "Look at the dashboard for now")
;; (megatest-gui)
(set! *didsomething* #t)))
;;======================================================================
;; Update the database schema on request
;;======================================================================
(if (args:get-arg "-rebuild-db")
(begin
|
>
>
>
>
>
>
>
>
>
>
|
757
758
759
760
761
762
763
764
765
766
767
768
769
770
771
772
773
774
775
776
777
778
779
780
|
(set! *didsomething* #t)))
(if (args:get-arg "-gui")
(begin
(debug:print 0 "Look at the dashboard for now")
;; (megatest-gui)
(set! *didsomething* #t)))
(if (args:get-arg "-gen-megatest-area")
(begin
(genexample:mk-megatest.config)
(set! *didsomething* #t)))
(if (args:get-arg "-gen-megatest-test")
(let ((testname (args:get-arg "-gen-megatest-test")))
(genexample:mk-megatest-test testname)
(set! *didsomething* #t)))
;;======================================================================
;; Update the database schema on request
;;======================================================================
(if (args:get-arg "-rebuild-db")
(begin
|
︙ | | | ︙ | |