Description: Fixes to the tests
 There seems to be a confusion in the tests, awaiting confirmation
Bug: https://github.com/usocket/usocket/issues/133
Last-Update: 2025-01-05
---
This patch header follows DEP-3: http://dep.debian.net/deps/dep3/
--- cl-usocket.orig/tests/test-usocket.lisp
+++ cl-usocket/tests/test-usocket.lisp
@@ -197,7 +197,7 @@
           (usocket:with-server-socket (server (usocket:socket-accept listen))
             (write-byte 42  client-stream)
             (force-output client-stream)
-            (read-byte  (usocket:socket server))))))
+            (read-byte  (usocket:socket-stream server))))))
   42)
 
 ;; Listening on all the IPv4 addresses, and connecting to localhost (by Pascal J. Bourguignon)
@@ -210,7 +210,7 @@
           (usocket:with-server-socket (server (usocket:socket-accept listen))
             (write-byte 42  client-stream)
             (force-output client-stream)
-            (read-byte  (usocket:socket server))))))
+            (read-byte  (usocket:socket-stream server))))))
   42)
 
 (defun run-usocket-tests ()
