diff options
Diffstat (limited to 'testsuite/tests/lib/socket/socket006.hs')
| -rw-r--r-- | testsuite/tests/lib/socket/socket006.hs | 27 |
1 files changed, 27 insertions, 0 deletions
diff --git a/testsuite/tests/lib/socket/socket006.hs b/testsuite/tests/lib/socket/socket006.hs new file mode 100644 index 0000000000..e2ad13ae49 --- /dev/null +++ b/testsuite/tests/lib/socket/socket006.hs @@ -0,0 +1,27 @@ +{- client + +Client side of net005 + +TESTS: + socket + connect + writeSocket + shutdown + sClose +-} + + +module Main where + +import SocketPrim + +message = "Hello World" + + +main = + socket AF_UNIX Datagram 0 >>= \ s -> + connect s (SockAddrUnix "sock") >> + + writeSocket s message >> + shutdown s ShutdownBoth >> + sClose s |