1
0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2026-04-06 21:20:33 +02:00

tests: web: Have the retry-on-error throw on exhausted attempts.

Previously, it'd simply return the error arguments, which would not always
fail a 'test-assert' test, for example.

* gnu/tests/web.scm (retry-on-error): Re-throw the error when the attempts
have been exhausted.

Change-Id: Ic1468d8ba23f0f78377e90d19bccb2878dc56f0e
This commit is contained in:
Maxim Cournoyer
2024-11-01 10:51:31 +09:00
parent b78794f96d
commit df568fc411

View File

@@ -83,7 +83,7 @@
return-value)
((#f . error-args)
(if (>= attempt times)
error-args
(apply throw error-args)
(begin
(sleep delay)
(loop (+ 1 attempt)))))))))