97
98
99
100
101
102
103
104
105
106
107
108
109
110
|
-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.
-server -|hostname : start the server (reduces contention on megatest.db), use
- to automatically figure out hostname
-list-servers : list the servers
-repl : start a repl (useful for extending megatest)
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
|
>
>
|
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
|
-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.
-server -|hostname : start the server (reduces contention on megatest.db), use
- to automatically figure out hostname
-list-servers : list the servers
-repl : start a repl (useful for extending megatest)
-debug N : increase verbosity to N. (try 10 for lots of noise)
-logging : turn on logging all debug output to logging.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
|
202
203
204
205
206
207
208
209
210
211
212
213
214
215
|
"-rollup"
"-update-meta"
"-gen-megatest-area"
"-logging"
"-v" ;; verbose 2, more than normal (normal is 1)
"-q" ;; quiet 0, errors/warnings only
)
args:arg-hash
0))
(if (args:get-arg "-h")
(begin
(print help)
|
>
|
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
|
"-rollup"
"-update-meta"
"-gen-megatest-area"
"-logging"
"-v" ;; verbose 2, more than normal (normal is 1)
"-q" ;; quiet 0, errors/warnings only
"-logging"
)
args:arg-hash
0))
(if (args:get-arg "-h")
(begin
(print help)
|
253
254
255
256
257
258
259
260
261
262
263
264
265
266
|
;; (debug:print 0 " old: " old-testpatt ", new: " (args:get-arg "-testpatt"))
(if (args:get-arg "-runtests")
(begin
;; (debug:print 0 "NOTE: Also modifying -runtests")
(hash-table-set! args:arg-hash "-runtests" (tack-on-patt (args:get-arg "-runtests")
(args:get-arg "-itempatt")))))
))
;;======================================================================
;; Misc general calls
;;======================================================================
(if (args:get-arg "-env2file")
(begin
|
>
>
|
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
|
;; (debug:print 0 " old: " old-testpatt ", new: " (args:get-arg "-testpatt"))
(if (args:get-arg "-runtests")
(begin
;; (debug:print 0 "NOTE: Also modifying -runtests")
(hash-table-set! args:arg-hash "-runtests" (tack-on-patt (args:get-arg "-runtests")
(args:get-arg "-itempatt")))))
))
(if (args:get-arg "-logging")(set! *logging* #t))
;;======================================================================
;; Misc general calls
;;======================================================================
(if (args:get-arg "-env2file")
(begin
|