mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-30 08:50:23 +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; -*- ;;;; 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 ;;;; This library is free software; you can redistribute it and/or
;;;; modify it under the terms of the GNU Lesser General Public ;;;; modify it under the terms of the GNU Lesser General Public
@ -145,7 +145,7 @@ reached."
(loop (+ 1 n)))))) (loop (+ 1 n))))))
(lambda args (lambda args
(->bool (memv (system-error-errno args) (->bool (memv (system-error-errno args)
(list ECONNRESET EPIPE)))))))) (list ECONNRESET EPIPE ECONNABORTED))))))))
;;; Local Variables: ;;; Local Variables:
;;; eval: (put 'with-repl-server 'scheme-indent-function 1) ;;; eval: (put 'with-repl-server 'scheme-indent-function 1)