1 files changed, 58 insertions, 0 deletions
diff --git a/testsuite/tests/lib/socket/socket001.hs b/testsuite/tests/lib/socket/socket001.hs
new file mode 100644
index 0000000000..0af7afa0d7
--- /dev/null
+++ b/testsuite/tests/lib/socket/socket001.hs
@@ -0,0 +1,58 @@
+{- server
+
+The purpose of this test driver is to test TCP Stream sockets.
+All values have been hard coded since the BSD library is not used to
+query the databases for the values.  In therory this code is thus not
+portable but net007/Main.hs provides a portable version using the BSD
+module.
+
+This creates a stream socket bound to port 5000 and waits for incoming
+messages it then reads all available data before closing the
+connection to that peer.
+
+No form of error checking is provided other than that already provided
+by module SocketPrim.
+
+
+TESTS:
+    socket
+    bindSocket
+    listen
+    accept
+    readSocket
+    sClose
+
+-}
+
+
+module Main where
+
+import SocketPrim
+
+main = do
+    s <- socket AF_INET Stream 6
+    bindSocket s (SockAddrInet (fromIntegral 5000) iNADDR_ANY)
+    listen s 5
+
+    let 
+      loop = 
+	accept s				>>= \ (s',peerAddr) ->
+	putStr "*** Start of Transfer ***\n"	>>
+	h <- socketToHandle s'
+	let 
+	  read_all = 
+	    b <- hEOF h
+	    c <- hGetChar h
+	    putChar c
+
+	    if nbytes /= 0 then
+		putStr str			>>
+		read_all
+	    else
+		putStr "\n*** End of Transfer ***\n" >>
+		sClose s'
+	in
+	    read_all    
+
+    loop
+