93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
|
Version " megatest-version ", built from " megatest-fossil-hash ))
;; process args
(define remargs (args:get-args
(argv)
(list "-run" ;; run a specific test
"-target"
"-runname"
"-state"
"-status"
"-testpatt"
"-modepatt"
"-tagexpr"
"-itempatt"
;; misc
"-start-dir"
"-setvars"
"-debug" ;; for *verbosity* > 2
"-load" ;; load and exectute a scheme file
"-log"
)
(list "-h" "-help" "--help"
"-manual"
"-version"
|
|
|
|
|
|
|
|
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
|
Version " megatest-version ", built from " megatest-fossil-hash ))
;; process args
(define remargs (args:get-args
(argv)
(list "-run" ;; run a specific test
"-target"
"-run-name"
"-state"
"-status"
"-test-patt" ;; idea, enhance margs ("-test-patt" "-testpatt") => yields one value in "-test-patt"
"-mode-patt"
"-tag-expr"
"-item-patt"
;; misc
"-start-dir"
"-set-vars"
"-debug" ;; for *verbosity* > 2
"-load" ;; load and exectute a scheme file
"-log"
)
(list "-h" "-help" "--help"
"-manual"
"-version"
|