summaryrefslogtreecommitdiff
path: root/test-suite/tests/00-socket.test
diff options
context:
space:
mode:
Diffstat (limited to 'test-suite/tests/00-socket.test')
-rw-r--r--test-suite/tests/00-socket.test6
1 files changed, 3 insertions, 3 deletions
diff --git a/test-suite/tests/00-socket.test b/test-suite/tests/00-socket.test
index e74d376e5..7b13c5f8c 100644
--- a/test-suite/tests/00-socket.test
+++ b/test-suite/tests/00-socket.test
@@ -339,7 +339,7 @@
(if (not server-pid)
(throw 'unresolved)
(let ((status (cdr (waitpid server-pid))))
- (eq? 0 (status:exit-val status)))))
+ (eqv? 0 (status:exit-val status)))))
(false-if-exception (delete-file path))
@@ -412,7 +412,7 @@
(if (not server-pid)
(throw 'unresolved)
(let ((status (cdr (waitpid server-pid))))
- (eq? 0 (status:exit-val status)))))
+ (eqv? 0 (status:exit-val status)))))
(false-if-exception (delete-file path))
@@ -508,7 +508,7 @@
(if (not server-pid)
(throw 'unresolved)
(let ((status (cdr (waitpid server-pid))))
- (eq? 0 (status:exit-val status)))))
+ (eqv? 0 (status:exit-val status)))))
#t)))