~ruther/guix-local: tests: web: Have the retry-on-error throw on exhausted attempts.

~ruther/guix-local

df568fc41104b7172a7735e95f2387918cc610b1 — Maxim Cournoyer 1 year, 4 months ago b78794f

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

patch browse .tar.gz

1 files changed, 1 insertions(+), 1 deletions(-)

M gnu/tests/web.scm

M gnu/tests/web.scm => gnu/tests/web.scm +1 -1

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