tools.test: rethrow any restart failures from tests.
parent
95dc2f89e5
commit
57f434b80e
|
@ -125,7 +125,9 @@ PRIVATE>
|
||||||
: run-test-file ( path -- )
|
: run-test-file ( path -- )
|
||||||
dup current-test-file [
|
dup current-test-file [
|
||||||
test-failures get current-test-file get +test-failure+ delete-file-errors
|
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 ;
|
] with-variable ;
|
||||||
|
|
||||||
SYMBOL: forget-tests?
|
SYMBOL: forget-tests?
|
||||||
|
|
Loading…
Reference in New Issue