Add regression test for chat server issues. Address #1496

This commit is contained in:
Calvin Rose
2024-09-06 08:05:56 -05:00
parent 4f65c2707e
commit e4f4a42751
3 changed files with 92 additions and 3 deletions
-1
View File
@@ -30,7 +30,6 @@
(printf "STARTING SERVER...")
(flush)
(def my-server (net/listen "127.0.0.1" "8000"))
'(handler (net/accept my-server))
(forever
(def connection (net/accept my-server))
(ev/call handler connection)))