mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-29 00:10:21 +02:00
Code Activity

fix repl server test to allow for ECONNABORTED

Browse source 
For some systems, ECONNABORTED is a failure condition for reading from closed sockets.

* test-suite/tests/00-repl-server.test (HTTP inter-protocol attack): modified
This commit is contained in:
Mike Gran 2017-03-31 21:38:08 -07:00
parent ce934bcd43
commit cee0e3f966
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
test-suite/tests/00-repl-server.test
View file

@ -1,6 +1,6 @@
;;;; 00-repl-server.test --- REPL server. -*- mode: scheme; coding: utf-8; -*-
;;;;
;;;; Copyright (C) 2016 Free Software Foundation, Inc.
;;;; Copyright (C) 2016, 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
@ -145,7 +145,7 @@ reached."
(loop (+ 1 n))))))
(lambda args
(->bool (memv (system-error-errno args)
(list ECONNRESET EPIPE))))))))
(list ECONNRESET EPIPE ECONNABORTED))))))))
;;; Local Variables:
;;; eval: (put 'with-repl-server 'scheme-indent-function 1)