1 files changed, 31 insertions, 0 deletions
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"))))