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

tools.test: Make the flag public. Finish porting tester changes to fuzzer.

char-rename unmaintained
Doug Coleman 2017-06-04 14:47:35 -05:00
parent 1708c8011f
commit 9e76899dbd
2 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
basis/tools/test/fuzz/fuzz.factor
View File

@ -31,10 +31,10 @@ M: fuzz-test-failure summary
" trials" % " trials" %
] "" make ; ] "" make ;
: (fuzz-test) ( generator predicate -- error ? ) : (fuzz-test) ( generator predicate -- error/f failed? tested? )
[ fuzz-test-failures [ f f ] ] [ fuzz-test-failures [ f f ] ]
[ '[ _ fuzz-test-trials get <fuzz-test-failure> t ] ] bi [ '[ _ fuzz-test-trials get <fuzz-test-failure> t ] ] bi
if-empty ; inline if-empty t ; inline
PRIVATE> PRIVATE>

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

@ -43,6 +43,9 @@ t restartable-tests? set-global
swap >>error swap >>error
error-continuation get >>continuation ; error-continuation get >>continuation ;
SYMBOL: long-unit-tests-enabled?
long-unit-tests-enabled? [ t ] initialize
<PRIVATE <PRIVATE
: notify-test-failed ( error experiment path line# -- ) : notify-test-failed ( error experiment path line# -- )
@ -58,9 +61,6 @@ SYMBOL: current-test-file
:: (unit-test) ( output input -- error/f failed? tested? ) :: (unit-test) ( output input -- error/f failed? tested? )
[ { } input with-datastack output assert-sequence= f f ] [ t ] recover t ; [ { } input with-datastack output assert-sequence= f f ] [ t ] recover t ;
SYMBOL: long-unit-tests-enabled?
long-unit-tests-enabled? [ t ] initialize
: (long-unit-test) ( output input -- error/f failed? tested? ) : (long-unit-test) ( output input -- error/f failed? tested? )
long-unit-tests-enabled? get [ (unit-test) ] [ 2drop f f f ] if ; long-unit-tests-enabled? get [ (unit-test) ] [ 2drop f f f ] if ;