tools.test: rethrow any restart failures from tests.

2016-03-30 16:38:38 -07:00 · 2016-03-30 16:38:38 -07:00 · 57f434b80e
parent 95dc2f89e5
commit 57f434b80e
1 changed files with 3 additions and 1 deletions
--- a/basis/tools/test/test.factor
+++ b/basis/tools/test/test.factor
@ -125,7 +125,9 @@ PRIVATE>
 : run-test-file ( path -- )
    dup current-test-file [
        test-failures get current-test-file get +test-failure+ delete-file-errors
-        '[ _ run-file ] [ file-failure ] recover
+        '[ _ run-file ] [
+            dup condition? [ rethrow ] [ file-failure ] if
+        ] recover
    ] with-variable ;

 SYMBOL: forget-tests?