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

[guix-commits]

apteryx pushed a commit to branch master
in repository guix.

commit df568fc41104b7172a7735e95f2387918cc610b1
Author: Maxim Cournoyer <maxim.courno...@gmail.com>
AuthorDate: Fri Nov 1 10:51:31 2024 +0900

    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
---
 gnu/tests/web.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/gnu/tests/web.scm b/gnu/tests/web.scm
index df937f38d4..509ca33692 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)))))))))