steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

mason.test: Add option to skip benchmarks to mason.

factor-shell
Doug Coleman 2017-12-17 17:09:43 -06:00
parent 75b88b33fb
commit 4f15a3a2d4
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
extra/mason/test/test.factor
View File

@ -101,6 +101,8 @@ M: method word-vocabulary "method-generic" word-prop word-vocabulary ;
user-init-errors get-global assoc-empty? user-init-errors get-global assoc-empty?
[ f ] [ :user-init-errors t ] if ; [ f ] [ :user-init-errors t ] if ;
SYMBOL: skip-mason-benchmarks
: do-all ( -- ) : do-all ( -- )
f parser-quiet? set-global f parser-quiet? set-global
f restartable-tests? set-global f restartable-tests? set-global
@ -112,7 +114,7 @@ M: method word-vocabulary "method-generic" word-prop word-vocabulary ;
[ generate-help ] benchmark html-help-time-file to-file [ generate-help ] benchmark html-help-time-file to-file
[ do-tests ] benchmark test-time-file to-file [ do-tests ] benchmark test-time-file to-file
[ do-help-lint ] benchmark help-lint-time-file to-file [ do-help-lint ] benchmark help-lint-time-file to-file
[ do-benchmarks ] benchmark benchmark-time-file to-file skip-mason-benchmarks get [ [ do-benchmarks ] benchmark benchmark-time-file to-file ] unless
do-compile-errors do-compile-errors
] with-directory ; ] with-directory ;