summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2020-03-21 18:26:31 +0100
committerLudovic Courtès <ludo@gnu.org>2020-03-21 18:26:31 +0100
commit87bf38c93a7baa4f2c060c24d8e2d354f4771861 (patch)
treece452e41e8c6f53f74f22667343bf94d8b1959c1
parent865d48058e6b1604b95a5da49334aaf80a6d6471 (diff)
downloadguile-87bf38c93a7baa4f2c060c24d8e2d354f4771861.tar.gz
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).
-rw-r--r--test-suite/tests/web-server.test5
1 files changed, 3 insertions, 2 deletions
diff --git a/test-suite/tests/web-server.test b/test-suite/tests/web-server.test
index e2a563499..486c99b58 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"