ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-25 22:08:16 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: serf: Disable expired SSL tests.

Browse source 
Fixes <https://bugs.gnu.org/26671>.

* gnu/packages/web.scm (serf)[arguments]<#:phases>: Add 'disable-broken-tests'.
This commit is contained in:
Marius Bakke 2017-04-27 17:48:28 +02:00
parent 0d29f5aac5
commit decb4c26fa
No known key found for this signature in database
GPG key ID: A2A06DF2A33A54FA
1 changed files with 28 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

28
gnu/packages/web.scm
View file

@ -18,6 +18,7 @@
;;; Copyright © 2016 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2016 Bake Timmons <b3timmons@speedymail.org>
;;; Copyright © 2017 Thomas Danckaert <post@thomasdanckaert.be>
;;; Copyright © 2017 Marius Bakke <mbakke@fastmail.com>
;;;
;;; This file is part of GNU Guix.
;;;
@ -861,6 +862,33 @@ (define-public serf
;;(string-append "GSSAPI=" gss)
(string-append "ZLIB=" zlib)
(string-append "PREFIX=" out))))))
(add-before 'check 'disable-broken-tests
(lambda _
;; These tests rely on SSL certificates that expired 2017-04-18.
;; While there are newer certs available upstream, we don't want
;; this package to suddenly "expire" some time in the future.
;; https://bugs.gnu.org/26671
(let ((broken-tests
'("test_ssl_trust_rootca"
"test_ssl_certificate_chain_with_anchor"
"test_ssl_certificate_chain_all_from_server"
"test_ssl_no_servercert_callback_allok"
"test_ssl_large_response"
"test_ssl_large_request"
"test_ssl_client_certificate"
"test_ssl_future_server_cert"
"test_setup_ssltunnel"
"test_ssltunnel_basic_auth"
"test_ssltunnel_basic_auth_server_has_keepalive_off"
"test_ssltunnel_basic_auth_proxy_has_keepalive_off"
"test_ssltunnel_basic_auth_proxy_close_conn_on_200resp"
"test_ssltunnel_digest_auth")))
(for-each
(lambda (test)
(substitute* "test/test_context.c"
(((string-append "SUITE_ADD_TEST\\(suite, " test "\\);")) "")))
broken-tests)
#t)))
(replace 'check (lambda _ (zero? (system* "scons" "check"))))
(replace 'install (lambda _ (zero? (system* "scons" "install")))))))
(home-page "https://serf.apache.org/")