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

tools.test: add silent-tests? that hides unit-tests.

clean-macosx-x86-64
John Benediktsson 2019-11-07 13:13:05 -08:00
parent 69849bc925
commit ec71ef22ee
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
basis/tools/test/test.factor
View File

@ -29,6 +29,9 @@ T{ error-type-holder
{ quot [ test-failures get ] } { quot [ test-failures get ] }
} define-error-type } define-error-type
SYMBOL: silent-tests?
f silent-tests? set-global
SYMBOL: verbose-tests? SYMBOL: verbose-tests?
t verbose-tests? set-global t verbose-tests? set-global
@ -112,7 +115,7 @@ MACRO: <experiment> ( word -- quot )
:: experiment ( word: ( -- error/f failed? tested? ) line# -- ) :: experiment ( word: ( -- error/f failed? tested? ) line# -- )
word <experiment> :> e word <experiment> :> e
e experiment. silent-tests? get [ e experiment. ] unless
word execute [ word execute [
[ [
current-test-file get [ current-test-file get [