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

(defun test-many-connections () 
  (let* ((connection (open-network-stream 
                      "localhost" nil "localhost" 12345))
         (str (let ((var "")) 
                (dotimes (i 5000 var) 
                  (setq var (concat "aaaaaaaaaaaaaaaaaaaaaaaaaa" var))))))
    (dotimes (i 30 connection)
      (run-with-idle-timer 
       0.0001 nil (lambda () 
                    (with-temp-buffer  
                      (insert str)
                      (insert "\n")
                      (insert (number-to-string i))
                      (message "Sending: %S" i )
                      (process-send-region connection 
                                           (point-min) 
                                           (point-max))
                      (message "%S sent" i)))))))

(setq our-test-process
      (progn (when (boundp 'our-test-process) (delete-process our-test-process)) 
	     (test-many-connections)))