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)
-- 


<option value='committer'>committer</option>
<option value='range'>range</option>
</select>
<input class='txt' type='search' size='10' name='q' value=''/>
<input type='submit' value='search'/>
</form>
</td></tr></table>
<div class='path'>path: <a href='/guix/log/?id=4ef6cb1bba612ecf43c267e8656904f2eb7f0a99'>root</a>/<a href='/guix/log/tests?id=4ef6cb1bba612ecf43c267e8656904f2eb7f0a99'>tests</a>/<a href='/guix/log/tests/store.scm?id=4ef6cb1bba612ecf43c267e8656904f2eb7f0a99'>store.scm</a></div><div class='content'><table class='list nowrap'><tr class='nohover'><th class='left'>Age</th><th class='left'>Commit message (<a href='/guix/log/tests/store.scm?id=4ef6cb1bba612ecf43c267e8656904f2eb7f0a99&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2021-06-08 09:25:50 +0200'>2021-06-08</span></td><td><a href='/guix/commit/tests/store.scm?id=2725f0463421dfb446bce393b87a13139922f1cc'>store: Remove 'references/substitutes'.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2021-03-18 15:16:07 -0400'>2021-03-18</span></td><td><a href='/guix/commit/tests/store.scm?id=0d8d499036f632e03f63bdaf36b02861ea52b3e6'>tests: Make the STORE test more robust in a "pure" environment.</a><span class='msg-avail'>...</span></td><td>Leo Famulari</td></tr>
<tr><td><span title='2021-01-22 08:36:03 +0100'>2021-01-22</span></td><td><a href='/guix/commit/tests/store.scm?id=7df3ab0f0d21e6414a22b113c832dc18475f34a7'>store: Add 'find-roots' RPC.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2020-12-19 23:25:01 +0100'>2020-12-19</span></td><td><a href='/guix/commit/tests/store.scm?id=3c799ccb98ba2ea4c19747306289586e42ae493b'>tests: Make sure substituted items are deduplicated.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2020-12-19 23:25:01 +0100'>2020-12-19</span></td><td><a href='/guix/commit/tests/store.scm?id=77a1efed9e12ce0e2c470d7b0601ae70c72b010b'>tests: Check the mtime and permissions of substituted items.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2020-12-19 23:25:00 +0100'>2020-12-19</span></td><td><a href='/guix/commit/tests/store.scm?id=6d955f1731dc593a51625b455882102a67d95e1a'>tests: Check the build trace for hash mismatches on substitutes.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>