;; -*- lexical-binding: t; -*-

(defun make-client ()
  (make-network-process
   :name "bug-client"
   :type 'datagram
   :host "127.0.0.1"
   :service 10000
   :family 'ipv4
   :coding 'binary))

(defvar client (make-client))

(process-send-string client "hello")
(process-send-string client "")
(process-send-string client "world")

(while t
  (accept-process-output nil 0.01))