282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
|
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
|
-
+
|
-list-run-time : list time requered to complete runs. It supports following switches
-run-patt <patt> -target-patt <patt> -dumpmode <csv,json,plain-text>
-list-test-time : list time requered to complete each test in a run. It following following arguments
-runname <patt> -target <patt> -dumpmode <csv,json,plain-text>
-syscheck : do some very basic checks; write access and space in tmp, home, runs, links and
is $DISPLAY valid
-list-waivers : dump waivers for specified target, runname, testpatt to stdout
-db2db : sync db to db, use -from and -to to specify the databases
-db2db : sync db to db, use -from, -to for dbs, -period and -timeout for continuous sync
Diff report
-diff-rep : generate diff report (must include -src-target, -src-runname, -target, -runname
and either -diff-email or -diff-html)
-src-target <target>
-src-runname <target>
-diff-email <emails> : comma separated list of email addresses to send diff report
|
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
|
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
|
-
+
|
":state"
"-state"
":status"
"-status"
"-list-runs"
"-testdata-csv"
"-testpatt"
"--modepatt"
;; "--modepatt"
"-modepatt"
"-tagexpr"
"-itempatt"
"-setlog"
"-set-toplog"
"-runstep"
"-logpro"
|
378
379
380
381
382
383
384
385
386
387
388
389
390
391
|
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
|
+
+
|
"-pathmod"
"-env2file"
"-envcap"
"-envdelta"
"-setvars"
"-set-state-status"
"-import-sexpr"
"-period" ;; sync period in seconds
"-timeout" ;; exit sync if timeout in seconds exceeded since last change
;; move runs stuff here
"-remove-keep"
"-set-run-status"
"-age"
;; archive
|
2577
2578
2579
2580
2581
2582
2583
2584
2585
2586
2587
2588
2589
2590
2591
2592
2593
2594
2595
|
2579
2580
2581
2582
2583
2584
2585
2586
2587
2588
2589
2590
2591
2592
2593
2594
2595
2596
2597
2598
2599
2600
|
+
-
+
+
-
+
+
|
)
(if (and src-db dest-db)
(begin
(debug:print-info 0 *default-log-port* "Attempting to sync data from "src-db" to "dest-db"...")
;; (if (common:simple-file-lock lockfile)
;; (begin
(if (and (file-exists? src-db)
(if (not (file-exists? dest-db)) ;; use copy to get going
(not (file-exists? dest-db))) ;; use copy to get going
(file-copy src-db dest-db))
(let ((res (dbmod:db-to-db-sync src-db dest-db 0 (dbfile:db-init-proc) keys)))
;; (common:simple-file-release-lock lockfile)
(if res
(debug:print 0 *default-log-port* "Synced " res " records from "src-db" to "dest-db)))
(debug:print 0 *default-log-port* "Synced " res " records from "src-db" to "dest-db)
(debug:print 0 *default-log-port* "No sync due to permissions or non-existant source db."))))
(debug:print 0 *default-log-port* "Skipping sync, there is a sync in progress."))
(set! *didsomething* #t))
(debug:print 0 *default-log-port* "Usage for -db2db; -to and -from must be specified"))
(if (args:get-arg "-list-test-time")
(let* ((toppath (launch:setup)))
(task:get-test-times)
|