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
|
{-# LANGUAGE OverloadedStrings #-}
module LookupSpec where
import Test.Hspec
import Network.DNS as DNS
spec :: Spec
spec = describe "lookup" $ do
it "lookupA" $ do
rs <- makeResolvSeed defaultResolvConf
withResolver rs $ \resolver -> do
addrs <- DNS.lookupA resolver "mew.org"
-- mew.org has one or more IPv6 addresses
fmap null addrs `shouldBe` Right False
it "lookupAAAA" $ do
rs <- makeResolvSeed defaultResolvConf
withResolver rs $ \resolver -> do
-- google.com has one or more IPv6 addresses
addrs <- DNS.lookupAAAA resolver "google.com"
fmap null addrs `shouldBe` Right False
it "lookupAAAA with emty result" $ do
rs <- makeResolvSeed defaultResolvConf
withResolver rs $ \resolver -> do
addrs <- DNS.lookupAAAA resolver "ipv4.tlund.se"
-- mew.org does not have any IPv6 addresses
fmap null addrs `shouldBe` Right True
it "lookupMX" $ do
rs <- makeResolvSeed defaultResolvConf
withResolver rs $ \resolver -> do
addrs <- DNS.lookupMX resolver "mew.org"
-- mew.org has one or more MX records.
fmap null addrs `shouldBe` Right False
it "lookupTXT" $ do
rs <- makeResolvSeed defaultResolvConf
withResolver rs $ \resolver -> do
addrs <- DNS.lookupTXT resolver "mew.org"
-- mew.org has one or more TXT records.
fmap null addrs `shouldBe` Right False
it "lookupSOA" $ do
rs <- makeResolvSeed defaultResolvConf
withResolver rs $ \resolver -> do
addrs <- DNS.lookupTXT resolver "mew.org"
-- mew.org has a SOA record.
fmap null addrs `shouldBe` Right False
it "lookupNS" $ do
rs <- makeResolvSeed defaultResolvConf
withResolver rs $ \resolver -> do
addrs <- DNS.lookupNS resolver "mew.org"
-- mew.org has one or more NS records.
fmap null addrs `shouldBe` Right False
|
