diff options
author | Ludovic Courtès <ludo@gnu.org> | 2020-03-21 18:26:31 +0100 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2020-03-21 18:26:31 +0100 |
commit | 87bf38c93a7baa4f2c060c24d8e2d354f4771861 (patch) | |
tree | ce452e41e8c6f53f74f22667343bf94d8b1959c1 | |
parent | 865d48058e6b1604b95a5da49334aaf80a6d6471 (diff) | |
download | guile-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.test | 5 |
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" |