[project @ 2001-05-01 11:46:56 by simonmar]

[ghc-hetmet.git] / ghc / tests / lib / net / net001.hs

diff --git a/ghc/tests/lib/net/net001.hs b/ghc/tests/lib/net/net001.hs
new file mode 100644 (file)
index 0000000..e5621c3
--- /dev/null
+++ b/ghc/tests/lib/net/net001.hs
@@ -0,0 +1,20 @@
+module Main where
+
+import Socket
+import Concurrent
+import IO
+
+main = do
+   forkIO server
+   yield
+   h <- connectTo "localhost" (PortNumber 22222)
+   l <- hGetLine h
+   hClose h
+   print l
+ where
+   server = do
+         s <- listenOn (PortNumber 22222)
+         (h, host, port) <- accept s
+         hPutStrLn h "hello"
+         hClose h
+