Basic regression test case for sockets.

* Makefile: suppress --gc-debug for tst/tests/014 directory.

* tests/014/socket-basic.tl: New file.

* tests/014/socket-basic.expected: New file.

* tests/sock-common.tl: New file.

2 files changed, 31 insertions, 0 deletions

diff --git a/tests/014/socket-basic.expected b/tests/014/socket-basic.expected
new file mode 100644
index 00000000..e69de29b
--- /dev/null
+++ b/tests/014/socket-basic.expected
diff --git a/tests/014/socket-basic.tl b/tests/014/socket-basic.tl
new file mode 100644
index 00000000..efeed2d6
--- /dev/null
+++ b/tests/014/socket-basic.tl
@@ -0,0 +1,31 @@
+(load "../sock-common.tl")
+
+(defvar socktype)
+
+(defun client (addr)
+  (with-stream (cli-sock (open-socket af-inet socktype))
+    (sock-connect cli-sock addr)
+    (put-string "5000" cli-sock)
+    (sock-shutdown cli-sock)
+    (equal (read cli-sock) (range 1 5000))))
+
+(defun server (svc-sock)
+  (let* ((acc-sock (sock-accept svc-sock))
+         (query (read acc-sock)))
+    (print (range 1 5000) acc-sock)
+    (close-stream acc-sock)))
+
+(defun test ()
+  (let* ((svc-sock (open-socket af-inet socktype))
+         (svc-addr (bindfree svc-sock 1025 65535))
+         (child-pid (fork)))
+    (cond
+      ((null child-pid) (error "fork failed"))
+      ((zerop child-pid) (server svc-sock) (exit* t))
+      (t (prog1 (client svc-addr) (wait child-pid))))))
+
+(if (and (fboundp 'open-socket)
+         (fboundp 'fork))
+  (each ((socktype (list sock-dgram sock-stream)))
+    (unless (test)
+      (error "test failed"))))