;; https://issues.guix.gnu.org/58631

(define %command
  (list "/bin/sh" "-c"
        (string-append "while true; do "
                       (string-concatenate
                        (make-list 30
                                   (string-append
                                    "echo "
                                    (string-concatenate
                                     (make-list 8 "logging "))
                                    "; ")))
                       "sleep 0.2; "
                       " done")))

(define %echo-server
  ;; Simple echo server.
  '("/bin/sh" "-c" "echo hello; read line; echo line; echo done"))

(define loss
  (make-vector (* 10 (expt 2 20))))

(register-services
 (make <service>
   #:provides '(test-logging)
   #:start (make-forkexec-constructor %command
                                      #:log-file "/tmp/service.log")
   #:stop (make-kill-destructor))
  (make <service>
   #:provides '(test-inetd)
   #:start (make-inetd-constructor %echo-server
                                   (list
                                    (endpoint (make-socket-address
                                               AF_INET
                                               INADDR_LOOPBACK
                                               4567))))
   #:stop  (make-inetd-destructor)))

(start 'test-logging)
(start 'test-inetd)
(pk 'init-gc (gc-stats))