[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Guile-commits] 04/07: Fix socket test throw without catch
From: |
Mike Gran |
Subject: |
[Guile-commits] 04/07: Fix socket test throw without catch |
Date: |
Tue, 4 Apr 2017 12:16:47 -0400 (EDT) |
mike121 pushed a commit to branch wip-cygwin-guile-2.2
in repository guile.
commit 42b4a50ea0c73e125857c8cbd7dae4d8833966d8
Author: Michael Gran <address@hidden>
Date: Tue Apr 4 08:54:15 2017 -0700
Fix socket test throw without catch
* test-suite/tests/00-socket.test (AF_UNIX/SOCK_DGRAM,
AF_UNIX/SOCK_STREAM): don't throw 'unresolved
---
test-suite/tests/00-socket.test | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/test-suite/tests/00-socket.test b/test-suite/tests/00-socket.test
index 7f55ade..0df6f0a 100644
--- a/test-suite/tests/00-socket.test
+++ b/test-suite/tests/00-socket.test
@@ -268,7 +268,7 @@
(let ((pid (primitive-fork-if-available)))
;; Spawn a server process.
(case pid
- ((-1) (throw 'unresolved))
+ ((-1) (set! server-pid #f))
((0) ;; the kid: serve two connections and exit
(let serve ((conn
(false-if-exception (accept server-socket)))
@@ -348,7 +348,7 @@
(let ((pid (primitive-fork-if-available)))
;; Spawn a server process.
(case pid
- ((-1) (throw 'unresolved))
+ ((-1) (set! server-pid #f))
((0) ;; the kid: send MESSAGE and exit
(exit
(false-if-exception
@@ -446,7 +446,7 @@
(let ((pid (primitive-fork-if-available)))
;; Spawn a server process.
(case pid
- ((-1) (throw 'unresolved))
+ ((-1) (set! server-pid #f))
((0) ;; the kid: serve two connections and exit
(let serve ((conn
(false-if-exception (accept server-socket)))
- [Guile-commits] branch wip-cygwin-guile-2.2 created (now 1479125), Mike Gran, 2017/04/04
- [Guile-commits] 01/07: use fallback nl_langinfo on cygwin, Mike Gran, 2017/04/04
- [Guile-commits] 04/07: Fix socket test throw without catch,
Mike Gran <=
- [Guile-commits] 05/07: Don't run popen tests when popen not provided, Mike Gran, 2017/04/04
- [Guile-commits] 06/07: ports test tries to mutate a read-only string, Mike Gran, 2017/04/04
- [Guile-commits] 02/07: prefer producer/consumer to pipes on Cygwin, Mike Gran, 2017/04/04
- [Guile-commits] 07/07: Skip ports tests that require popen if popen not available, Mike Gran, 2017/04/04
- [Guile-commits] 03/07: Disable scm_fork on Cygwin, Mike Gran, 2017/04/04