114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
|
Examples
# Get test path, use '.' to get a single path or a specific path/file pattern
megatest -test-files 'logs/*.log' -target ubuntu/n%/no% :runname w49% -testpatt test_mt%
Called as " (string-intersperse (argv) " ") "
Built from " megatest-fossil-hash ))
;; -gui : start a gui interface
;; -config fname : override the runconfig file with fname
;; -kill-server host:port|pid : kill server specified by host:port or pid
;; process args
(define remargs (args:get-args
|
|
|
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
|
Examples
# Get test path, use '.' to get a single path or a specific path/file pattern
megatest -test-files 'logs/*.log' -target ubuntu/n%/no% :runname w49% -testpatt test_mt%
Called as " (string-intersperse (argv) " ") "
Version " megatest-version ", built from " megatest-fossil-hash ))
;; -gui : start a gui interface
;; -config fname : override the runconfig file with fname
;; -kill-server host:port|pid : kill server specified by host:port or pid
;; process args
(define remargs (args:get-args
|
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
|
(if (args:get-arg "-runall")
(general-run-call
"-runall"
"run all tests"
(lambda (target runname keys keynames keyvallst)
(runs:run-tests target
runname
(if (args:get-arg "-testpatt")
(args:get-arg "-testpatt")
"%/%")
user
args:arg-hash))))
;;======================================================================
;; run one test
;;======================================================================
|
|
|
<
|
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
|
(if (args:get-arg "-runall")
(general-run-call
"-runall"
"run all tests"
(lambda (target runname keys keynames keyvallst)
(runs:run-tests target
runname
"%"
(args:get-arg "-testpatt")
user
args:arg-hash))))
;;======================================================================
;; run one test
;;======================================================================
|
500
501
502
503
504
505
506
507
508
509
510
511
512
513
|
(general-run-call
"-runtests"
"run a test"
(lambda (target runname keys keynames keyvallst)
(runs:run-tests target
runname
(args:get-arg "-runtests")
user
args:arg-hash))))
;;======================================================================
;; Rollup into a run
;;======================================================================
|
>
|
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
|
(general-run-call
"-runtests"
"run a test"
(lambda (target runname keys keynames keyvallst)
(runs:run-tests target
runname
(args:get-arg "-runtests")
(args:get-arg "-testpatt")
user
args:arg-hash))))
;;======================================================================
;; Rollup into a run
;;======================================================================
|