89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
|
-rollup : fill run (set by :runname) with latest test(s) from
prior runs with same keys
-update-meta : update the tests metadata for all tests
-env2file fname : write the environment to fname.csh and fname.sh
-setvars VAR1=val1,VAR2=val2 : Add environment variables to a run NB// these are
overwritten by values set in config files.
-archive : archive tests, use -target, :runname, -itempatt and -testpatt
-server : start the server (reduces contention on megatest.db)
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
|
|
>
|
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
|
-rollup : fill run (set by :runname) with latest test(s) from
prior runs with same keys
-update-meta : update the tests metadata for all tests
-env2file fname : write the environment to fname.csh and fname.sh
-setvars VAR1=val1,VAR2=val2 : Add environment variables to a run NB// these are
overwritten by values set in config files.
-archive : archive tests, use -target, :runname, -itempatt and -testpatt
-server -|hostname : start the server (reduces contention on megatest.db), use
- to automatically figure out hostname
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
|
149
150
151
152
153
154
155
156
157
158
159
160
161
162
|
":category"
":variable"
":value"
":expected"
":tol"
":units"
;; misc
"-extract-ods"
"-pathmod"
"-env2file"
"-setvars"
"-debug" ;; for *verbosity* > 2
)
(list "-h"
|
>
|
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
|
":category"
":variable"
":value"
":expected"
":tol"
":units"
;; misc
"-server"
"-extract-ods"
"-pathmod"
"-env2file"
"-setvars"
"-debug" ;; for *verbosity* > 2
)
(list "-h"
|
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
|
"-runall" ;; run all tests
"-remove-runs"
"-keepgoing"
"-usequeue"
"-rebuild-db"
"-rollup"
"-update-meta"
"-server"
"-v" ;; verbose 2, more than normal (normal is 1)
"-q" ;; quiet 0, errors/warnings only
)
args:arg-hash
0))
|
<
|
178
179
180
181
182
183
184
185
186
187
188
189
190
191
|
"-runall" ;; run all tests
"-remove-runs"
"-keepgoing"
"-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))
|
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
|
;;======================================================================
;; Start the server
;;======================================================================
(if (args:get-arg "-server")
(let* ((toppath (setup-for-run))
(db (if toppath (open-db) #f)))
(if db
(server:start db)
(debug:print 0 "ERROR: Failed to setup for megatest"))))
;;;======================================================================
;; Rollup into a run
;;======================================================================
(if (args:get-arg "-rollup")
(general-run-call
|
|
|
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
|
;;======================================================================
;; Start the server
;;======================================================================
(if (args:get-arg "-server")
(let* ((toppath (setup-for-run))
(db (if toppath (open-db) #f)))
(if db
(server:start db (args:get-arg "-server"))
(debug:print 0 "ERROR: Failed to setup for megatest"))))
;;;======================================================================
;; Rollup into a run
;;======================================================================
(if (args:get-arg "-rollup")
(general-run-call
|