1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
|
{-# LANGUAGE CPP #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE ScopedTypeVariables #-}
module Snap.Internal.Http.Server.Address.Tests (tests) where
------------------------------------------------------------------------------
import Network.Socket (Family (AF_INET, AF_INET6), SockAddr (SockAddrInet, SockAddrInet6, SockAddrUnix))
------------------------------------------------------------------------------
import Test.Framework (Test)
import Test.Framework.Providers.HUnit (testCase)
import Test.HUnit (assertEqual)
------------------------------------------------------------------------------
import Snap.Internal.Http.Server.Address (AddressNotSupportedException (..), getAddress, getAddressImpl, getHostAddrImpl, getSockAddr, getSockAddrImpl)
import Snap.Test.Common (coverShowInstance, coverTypeableInstance, expectException)
------------------------------------------------------------------------------
tests :: [Test]
tests = [ testGetNameInfoFails
, testGetAddressUnix
, testGetAddressIPv6
, testGetSockAddr
, testTrivials
]
------------------------------------------------------------------------------
testGetNameInfoFails :: Test
testGetNameInfoFails = testCase "address/getNameInfo-fails" $ do
x <- getHostAddrImpl (\_ _ _ _ -> return (Nothing, Nothing)) undefined
assertEqual "when getNameInfo fails, getHostAddr should return empty" "" x
------------------------------------------------------------------------------
testGetAddressUnix :: Test
testGetAddressUnix = testCase "address/getAddress-unix-socket" $ do
(port, addr) <- getAddress $ SockAddrUnix "/foo/bar"
assertEqual "unix port" (-1) port
assertEqual "unix address" "unix:/foo/bar" addr
------------------------------------------------------------------------------
testGetAddressIPv6 :: Test
testGetAddressIPv6 = testCase "address/getAddress-IPv6" $ do
let x = SockAddrInet6 10 0 (0,0,0,0) 0
(y, _) <- getAddressImpl (const $ return "") x
assertEqual "ipv6 port" 10 y
------------------------------------------------------------------------------
testGetSockAddr :: Test
testGetSockAddr = testCase "address/getSockAddr" $ do
(f1, a1) <- getSockAddr 10 "*"
assertEqual "" f1 AF_INET
assertEqual "" a1 $ SockAddrInet 10 iNADDR_ANY
(f2, a2) <- getSockAddr 10 "::"
assertEqual "" f2 AF_INET6
assertEqual "" a2 $ SockAddrInet6 10 0 iN6ADDR_ANY 0
expectException $ getSockAddrImpl (\_ _ _ -> return []) 10 "foo"
where
iNADDR_ANY = 0
iN6ADDR_ANY = (0,0,0,0)
------------------------------------------------------------------------------
testTrivials :: Test
testTrivials = testCase "address/trivials" $ do
coverTypeableInstance (undefined :: AddressNotSupportedException)
coverShowInstance (AddressNotSupportedException "ok")
|
