diff options
Diffstat (limited to 'testsuite/tests/lib/socket/socket002.hs')
| -rw-r--r-- | testsuite/tests/lib/socket/socket002.hs | 45 |
1 files changed, 45 insertions, 0 deletions
diff --git a/testsuite/tests/lib/socket/socket002.hs b/testsuite/tests/lib/socket/socket002.hs new file mode 100644 index 0000000000..1e7b19da0b --- /dev/null +++ b/testsuite/tests/lib/socket/socket002.hs @@ -0,0 +1,45 @@ +{- client + +Client side to net001/Main.hs. + +Note that the machine IP numbers have been hard coded into this +program so it is unlikely that you will be able to run this test if +you are not at dcs.gla.ac.uk :-( + +The reason for this is to aviod using the BSD module at this stage of +testing. + + +TESTS: + socket + connect + writeSocket + shutdown + inet_addr +-} + + +module Main where + +import SocketPrim + + +starbuck = "130.209.240.81" -- SunOS 4.1.3 1 sun4c +marcus = "130.209.247.2" -- SunOS 4.1.3 6 sun4m +avon = "130.209.247.4" -- OSF1 V2.0 240 alpha +karkar = "130.209.247.3" -- OSF1 V2.0 240 alpha +nauru = "130.209.247.5" -- Linux 2.0.30 (RH-4.2) x86 +easter = "130.209.247.6" -- Linux 2.0.30 (RH-4.2) x86 + +message = "Hello World" + + +main = + socket AF_INET Stream 6 >>= \ s -> + inet_addr easter >>= \ ia -> + connect s (SockAddrInet (mkPortNumber 5000) ia) >> + + writeSocket s message >> + shutdown s ShutdownBoth >> + sClose s + |