[Guile-commits] 01/01: fix repl server test to allow for ECONNABORTED

[Mike Gran]

mike121 pushed a commit to branch master
in repository guile.

commit cee0e3f966aad6d6275dc248d6028ecebdb2dae9
Author: Mike Gran <address@hidden>
Date:   Fri Mar 31 21:38:08 2017 -0700

    fix repl server test to allow for ECONNABORTED
    
    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
---
 test-suite/tests/00-repl-server.test | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/test-suite/tests/00-repl-server.test 
b/test-suite/tests/00-repl-server.test
index 8570ca3..c4c3825 100644
--- a/test-suite/tests/00-repl-server.test
+++ b/test-suite/tests/00-repl-server.test
@@ -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)