tools.test: maybe "continue running tests" isn't a good idea.

locals-and-roots
John Benediktsson 2016-03-31 07:20:31 -07:00
parent a4b9e55987
commit beae638eab
1 changed files with 2 additions and 4 deletions
basis/tools/test

View File

@ -130,10 +130,8 @@ PRIVATE>
test-failures get current-test-file get +test-failure+ delete-file-errors
'[ _ run-file ] [
restartable-tests? get
[ dup compute-restarts empty? not ] [ f ] if [
"Continue running tests" over 2array 1array
rethrow-restarts
] when [ file-failure ] when*
[ dup compute-restarts empty? not ] [ f ] if
[ rethrow ] [ file-failure ] if
] recover
] with-variable ;