mirror of
https://github.com/kazu-yamamoto/dns.git
synced 2024-10-06 10:40:07 +03:00
59 lines
2.0 KiB
Haskell
59 lines
2.0 KiB
Haskell
{-# LANGUAGE OverloadedStrings #-}
|
|
|
|
module LookupSpec where
|
|
|
|
import Network.DNS as DNS
|
|
import Test.Hspec
|
|
|
|
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 "mew.org"
|
|
-- 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
|