diff options
| author | Andy Wingo <wingo@pobox.com> | 2019-08-02 15:30:13 +0200 |
|---|---|---|
| committer | Andy Wingo <wingo@pobox.com> | 2019-08-02 15:30:13 +0200 |
| commit | 8ee6e766b8274726b341973c4132cec137dfd013 (patch) | |
| tree | 1c69dd8460e7600a6167ecd115ab7fc25f100a7e /test-suite/tests | |
| parent | aad64cf3813ac96a67a7e50fb6aa81fcb6a86f8a (diff) | |
| parent | 043ed2ae5b7e69c6048f37fd0fd3344479c84349 (diff) | |
| download | guile-8ee6e766b8274726b341973c4132cec137dfd013.tar.gz | |
Merge from stable-2.2
Diffstat (limited to 'test-suite/tests')
| -rw-r--r-- | test-suite/tests/web-http.test | 11 |
1 files changed, 1 insertions, 10 deletions
diff --git a/test-suite/tests/web-http.test b/test-suite/tests/web-http.test index c1cf0882e..63377349c 100644 --- a/test-suite/tests/web-http.test +++ b/test-suite/tests/web-http.test @@ -1,6 +1,6 @@ ;;;; web-http.test --- HTTP library -*- mode: scheme; coding: utf-8; -*- ;;;; -;;;; Copyright (C) 2010-2011, 2014-2017, 2019 Free Software Foundation, Inc. +;;;; Copyright (C) 2010-2011, 2014-2017 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 @@ -242,15 +242,6 @@ (pass-if-round-trip "Cache-Control: acme-cache-extension=100 quux\r\n") (pass-if-round-trip "Cache-Control: acme-cache-extension=\"100, quux\"\r\n") - (let ((str "Cache-Control: acme-cache-extension=\"100,\r\n\t foo,\r\n quux\"\r\n") - (val '(cache-control . ((acme-cache-extension . "100, foo, quux"))))) - (pass-if-equal "continuation lines" - val - (call-with-values (lambda () - (read-header (open-input-string str))) - (lambda (sym val) - (cons sym val))))) - (pass-if-parse connection "close" '(close)) (pass-if-parse connection "Content-Encoding" '(content-encoding)) |