diff options
Diffstat (limited to 'test-suite/tests/00-socket.test')
-rw-r--r-- | test-suite/tests/00-socket.test | 6 |
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))) |