(define sock1-port "3005")
(define sock2-port "3006")

(define-c-library libc `("stdlib.h") libc-name '((additional-versions ("0" "6"))))
(define-c-procedure c-system libc 'system 'int '(pointer))

(display "Testing TCP socket")
(newline)

(debug (address-family inet))
(debug (address-info v4mapped addrconfig))
(debug (socket-domain stream))
(debug (ip-protocol ip))

(c-system (string->c-utf8 (string-append "echo \"lol\" | nc -l " sock1-port "&")))

(define sock1 (make-client-socket "127.0.0.1" sock1-port))

(debug sock1)
(debug (utf8->string (socket-recv sock1 3)))

(socket-send sock1 (string->utf8 "Hello from sock1\n"))

(socket-close sock1)


(define sock2 (make-server-socket sock2-port))
(debug sock2)

(display (string-append "run: echo \"lol\" | nc 127.0.0.1 " sock2-port))
(newline)

(define client-sock1 (socket-accept sock2))
(debug client-sock1)

(socket-send client-sock1 (string->utf8 "Hello from client-sock1\n"))

(debug (utf8->string (socket-recv client-sock1 3)))


(display "Testing UNIX socket")
(newline)

(debug (address-family unix))
(debug (address-info v4mapped addrconfig))
(debug (socket-domain stream))
(debug (ip-protocol ip))

(define sock-path "/tmp/demo.sock")
(c-system (string->c-utf8 (string-append "echo \"lol\" | nc -l -U " sock-path " &")))

(define usock1 (make-client-socket sock-path "3000" *af-unix*))

(debug usock1)
(debug (utf8->string (socket-recv usock1 3)))

(socket-send usock1 (string->utf8 "Hello from usock1\n"))

(socket-close usock1)


(define usock2-port "")
(define usock2 (make-server-socket usock2-port *af-unix*))
(debug usock2)

(display (string-append "run: echo \"lol\" | nc " sock-path " " usock2-port))
(newline)

(define client-usock1 (socket-accept usock2))
(debug client-usock1)

(socket-send client-sock1 (string->utf8 "Hello from client-usock1\n"))

(debug (utf8->string (socket-recv client-usock1 3)))