diff options
| author | Maxim Cournoyer <maxim.cournoyer@gmail.com> | 2024-11-01 10:51:31 +0900 |
|---|---|---|
| committer | Maxim Cournoyer <maxim.cournoyer@gmail.com> | 2025-02-13 00:07:21 +0900 |
| commit | df568fc41104b7172a7735e95f2387918cc610b1 (patch) | |
| tree | 2ce7de1b10ffd64e8733610248a1e2f353bcd40f /gnu/tests/web.scm | |
| parent | b78794f96d070c8df42276398743808cf3ed4853 (diff) | |
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
Diffstat (limited to 'gnu/tests/web.scm')
| -rw-r--r-- | gnu/tests/web.scm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gnu/tests/web.scm b/gnu/tests/web.scm index df937f38d4e..509ca336926 100644 --- a/gnu/tests/web.scm +++ b/gnu/tests/web.scm @@ -83,7 +83,7 @@ return-value) ((#f . error-args) (if (>= attempt times) - error-args + (apply throw error-args) (begin (sleep delay) (loop (+ 1 attempt))))))))) |