[Guile-commits] 02/02: tests: Skip web server test when thread support is missing.

[Ludovic Courtès]

civodul pushed a commit to branch master
in repository guile.

commit 87bf38c93a7baa4f2c060c24d8e2d354f4771861
Author: Ludovic Courtès <address@hidden>
AuthorDate: Sat Mar 21 18:26:31 2020 +0100

    tests: Skip web server test when thread support is missing.
    
    * test-suite/tests/web-server.test ("GET with keep-alive"): Throw
    'unresolved when not (provided? 'threads).
---
 test-suite/tests/web-server.test | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/test-suite/tests/web-server.test b/test-suite/tests/web-server.test
index e2a5634..486c99b 100644
--- a/test-suite/tests/web-server.test
+++ b/test-suite/tests/web-server.test
@@ -1,6 +1,6 @@
 ;;;; web-server.test --- HTTP server       -*- mode: scheme; coding: utf-8; -*-
 ;;;;
-;;;;   Copyright (C) 2019 Free Software Foundation, Inc.
+;;;;   Copyright (C) 2019, 2020 Free Software Foundation, Inc.
 ;;;;
 ;;;; This library is free software; you can redistribute it and/or
 ;;;; modify it under the terms of the GNU Lesser General Public
@@ -111,7 +111,8 @@
                         body)))
                '("/" "/latin1" "/user-agent")))
         (close-port port)
-        result)))
+        result)
+      (throw 'unresolved)))
 
 (pass-if-equal "POST /"
     "forbidden"