49
50
51
52
53
54
55
56
57
58
59
60
61
62
|
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
|
+
|
(declare (uses tdb))
(declare (uses mt))
(declare (uses api))
(declare (uses tasks)) ;; only used for debugging.
(declare (uses env))
(declare (uses diff-report))
(declare (uses redo-logpro))
(declare (uses ftail))
(import ftail)
(define *db* #f) ;; this is only for the repl, do not use in general!!!!
(include "common_records.scm")
(include "key_records.scm")
|
113
114
115
116
117
118
119
120
121
122
123
124
125
126
|
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
|
+
|
Optionally use :state and :status, use -keep-records to remove only
the run data.
-set-state-status X,Y : set state to X and status to Y, requires controls per -remove-runs
-rerun FAIL,WARN... : force re-run for tests with specificed status(s)
-rerun-clean : set all tests not COMPLETED+PASS,WARN,WAIVED to NOT_STARTED,n/a
and then run the specified testpatt with -preclean
-rerun-all : set all tests to NOT_STARTED,n/a and run with -preclean
-redo-logpro : do not rerun tests, but reapply logpro rules (ez-step flavor tests only)
-lock : lock run specified by target and runname
-unlock : unlock run specified by target and runname
-set-run-status status : sets status for run to status, requires -target and -runname
-get-run-status : gets status for run specified by target and runname
-run-wait : wait on run specified by target and runname
-preclean : remove the existing test directory before running the test
-clean-cache : remove the cached megatest.config and runconfigs.config files
|
289
290
291
292
293
294
295
296
297
298
299
300
301
302
|
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
|
+
|
"-itempatt"
"-setlog"
"-set-toplog"
"-runstep"
"-logpro"
"-m"
"-rerun"
"-redo-logpro"
"-days"
"-rename-run"
"-to"
;; values and messages
":category"
":variable"
":value"
|
1241
1242
1243
1244
1245
1246
1247
1248
1249
1250
1251
1252
1253
1254
|
1244
1245
1246
1247
1248
1249
1250
1251
1252
1253
1254
1255
1256
1257
1258
1259
1260
1261
1262
1263
1264
1265
1266
1267
1268
1269
1270
|
+
+
+
+
+
+
+
+
+
+
+
+
+
|
table-rows))))
(set! *didsomething* #t)
(set! *time-to-exit* #t))
;; redo logpro
(if (args:get-arg "-redo-logpro")
(let* ((result (redo-logpro:redo-logpro)))
(set! *didsomething* #t)
(set! *time-to-exit* #t)
(cond
((not result)
(exit 1))
(else
#t))))
;; NOTE: list-runs and list-db-targets operate on local db!!!
;;
;; IDEA: megatest list -runname blah% ...
;;
(if (or (args:get-arg "-list-runs")
(args:get-arg "-list-db-targets"))
|