diff options
| -rw-r--r-- | gnu/local.mk | 1 | ||||
| -rw-r--r-- | gnu/packages/patches/clisp-remove-failing-test.patch | 43 |
2 files changed, 0 insertions, 44 deletions
diff --git a/gnu/local.mk b/gnu/local.mk index c14e2aa56d..3a3919b5d4 100644 --- a/gnu/local.mk +++ b/gnu/local.mk @@ -887,7 +887,6 @@ dist_patch_DATA = \ %D%/packages/patches/clementine-fix-sqlite.patch \ %D%/packages/patches/clementine-remove-crypto++-dependency.patch \ %D%/packages/patches/clementine-use-openssl.patch \ - %D%/packages/patches/clisp-remove-failing-test.patch \ %D%/packages/patches/clucene-pkgconfig.patch \ %D%/packages/patches/cmake-curl-certificates.patch \ %D%/packages/patches/coda-use-system-libs.patch \ diff --git a/gnu/packages/patches/clisp-remove-failing-test.patch b/gnu/packages/patches/clisp-remove-failing-test.patch deleted file mode 100644 index e44ce80f74..0000000000 --- a/gnu/packages/patches/clisp-remove-failing-test.patch +++ /dev/null @@ -1,43 +0,0 @@ -This test doesn't ever complete or timeout - ---- - tests/socket.tst | 24 ------------------------ - 1 file changed, 24 deletions(-) - -diff --git a/tests/socket.tst b/tests/socket.tst -index 93c6310..1d976ff 100644 ---- a/tests/socket.tst -+++ b/tests/socket.tst -@@ -551,30 +551,6 @@ T - interfaces)) - ("0.0.0.0" "127.0.0.1" "0.0.0.0" "127.0.0.1") - --(multiple-value-bind (run args) (cmd-args) -- (let ((se (socket:socket-server))) -- (ext:run-program run :arguments (append args (list "-q" "-q" "-x" (format nil "(close (socket:socket-connect ~D))" (socket:socket-server-port se)))) -- :wait nil :input nil :output nil) -- (unwind-protect -- (with-open-stream (so (socket:socket-accept se)) -- (list -- (socket:socket-status so) -- (write-line "foo" so) -- (socket:socket-status so) -- #+macos (handler-case (read-char so) -- (end-of-file (c) -- (princ 'read-char) (princ-error c) t)) -- #-macos (check-os-error (read-char so) (:ECONNRESET 104)) -- (null (member (socket:socket-status so) '(:EOF :APPEND))) -- #+macos (string= (write-line "bar" so) "bar") -- #-macos (check-os-error (write-line "bar" so) (:EPIPE 32)) -- (null (member (socket:socket-status so) '(:EOF :APPEND))) -- (handler-case (read-char so) -- (end-of-file (c) -- (princ 'read-char) (princ-error c) 'end-of-file)))) -- (socket:socket-server-close se)))) --(:OUTPUT "foo" :OUTPUT T NIL T NIL END-OF-FILE) -- - ;; https://sourceforge.net/p/clisp/feature-requests/46/ - (check-os-error (socket:socket-connect 0) - #-(or win32 macos) (:ECONNREFUSED 111) --- - |