94
95
96
97
98
99
100
101
102
103
104
105
106
107
|
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
|
+
+
|
-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.
-server -|hostname : start the server (reduces contention on megatest.db), use
- to automatically figure out hostname
-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
|
188
189
190
191
192
193
194
195
196
197
198
199
200
201
|
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
|
+
|
"-rebuild-db"
"-rollup"
"-update-meta"
"-gen-megatest-area"
"-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)
|
213
214
215
216
217
218
219
220
221
222
223
224
225
226
|
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
|
+
+
|
((args:get-arg "-q") 0)
(else 1)))
(if (not (number? *verbosity*))
(begin
(print "ERROR: Invalid debug value " (args:get-arg "-debug"))
(exit)))
(if (args:get-arg "-logging")(set! *logging* #t))
;;======================================================================
;; Misc general calls
;;======================================================================
(if (args:get-arg "-env2file")
(begin
|