70
71
72
73
74
75
76
77
78
79
80
81
82
83
|
-rerun FAIL,WARN... : re-run if called on a test that previously ran (nullified
if -keepgoing is also specified)
-rebuild-db : bring the database schema up to date
-rollup : fill run (set by :runname) with latest test(s) from
prior runs with same keys
-rename-run <runb> : rename run (set by :runname) to <runb>, requires keys
-update-meta : update the tests metadata for all tests
Helpers
-runstep stepname ... : take remaining params as comand and execute as stepname
log will be in stepname.log. Best to put command in quotes
-logpro file : with -exec apply logpro file to stepname.log, creates
stepname.html and sets log to same
If using make use stepname_logpro.log as your target
|
>
|
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
|
-rerun FAIL,WARN... : re-run if called on a test that previously ran (nullified
if -keepgoing is also specified)
-rebuild-db : bring the database schema up to date
-rollup : fill run (set by :runname) with latest test(s) from
prior runs with same keys
-rename-run <runb> : rename run (set by :runname) to <runb>, requires keys
-update-meta : update the tests metadata for all tests
-extract-ods : extract an open document spreadsheet from the database
Helpers
-runstep stepname ... : take remaining params as comand and execute as stepname
log will be in stepname.log. Best to put command in quotes
-logpro file : with -exec apply logpro file to stepname.log, creates
stepname.html and sets log to same
If using make use stepname_logpro.log as your target
|
115
116
117
118
119
120
121
122
123
124
125
126
127
128
|
":first_err"
":first_warn"
":value"
":expected_value"
":tol"
":units"
;; misc
"-debug" ;; for *verbosity* > 2
)
(list "-h"
"-force"
"-xterm"
"-showkeys"
"-test-status"
|
>
|
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
|
":first_err"
":first_warn"
":value"
":expected_value"
":tol"
":units"
;; misc
"-extract-ods"
"-debug" ;; for *verbosity* > 2
)
(list "-h"
"-force"
"-xterm"
"-showkeys"
"-test-status"
|
310
311
312
313
314
315
316
317
318
319
320
321
322
323
|
(general-run-call
"-rollup"
"rollup tests"
(lambda (db keys keynames keyvallst)
(let ((n (args:get-arg "-rollup")))
(runs:rollup-run db keys)))))
;;======================================================================
;; run one test
;;======================================================================
;; 1. find the config file
;; 2. change to the test directory
;; 3. update the db with "test started" status, set running host
|
>
>
>
>
>
>
>
>
>
>
>
>
>
>
|
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
|
(general-run-call
"-rollup"
"rollup tests"
(lambda (db keys keynames keyvallst)
(let ((n (args:get-arg "-rollup")))
(runs:rollup-run db keys)))))
;;======================================================================
;; Extract a spreadsheet from the runs database
;;======================================================================
(if (args:get-arg "-extract-ods")
(general-run-call
"-extract-ods"
"Make ods spreadsheet"
(lambda (db keys keynames keyvallst)
(let ((outputfile (args:get-arg "-extract-ods"))
(runspatt (args:get-arg ":runname"))
(keyvalalist (keys->alist keys "%")))
(db:extract-ods-file db outputfile keyvalalist (if runspatt runspatt "%"))))))
;;======================================================================
;; run one test
;;======================================================================
;; 1. find the config file
;; 2. change to the test directory
;; 3. update the db with "test started" status, set running host
|