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

View File

@ -101,6 +101,8 @@ M: method word-vocabulary "method-generic" word-prop word-vocabulary ;
user-init-errors get-global assoc-empty?
[ f ] [ :user-init-errors t ] if ;
SYMBOL: skip-mason-benchmarks
: do-all ( -- )
f parser-quiet? 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
[ do-tests ] benchmark test-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
] with-directory ;