dns-3.0.3: test2/IOSpec.hs

{-# LANGUAGE OverloadedStrings #-}

module IOSpec where

import Network.DNS.IO as DNS
import Network.DNS.Types as DNS
import Network.Socket hiding (send)
import Test.Hspec

spec :: Spec
spec = describe "send/receive" $ do

    it "resolves well with UDP" $ do
        let hints = defaultHints { addrFamily = AF_INET, addrSocketType = Datagram, addrFlags = [AI_NUMERICHOST]}
        addr:_ <- getAddrInfo (Just hints) (Just "8.8.8.8") (Just "domain")
        sock <- socket (addrFamily addr) (addrSocketType addr) (addrProtocol addr)
        connect sock $ addrAddress addr
        let qry = encodeQuestions 1 [Question "www.mew.org" A] [] False
        send sock qry
        ans <- receive sock
        identifier (header ans) `shouldBe` 1

    it "resolves well with TCP" $ do
        let hints = defaultHints { addrFamily = AF_INET, addrSocketType = Stream, addrFlags = [AI_NUMERICHOST]}
        addr:_ <- getAddrInfo (Just hints) (Just "8.8.8.8") (Just "domain")
        sock <- socket (addrFamily addr) (addrSocketType addr) (addrProtocol addr)
        connect sock $ addrAddress addr
        let qry = encodeQuestions 1 [Question "www.mew.org" A] [] False
        sendVC sock qry
        ans <- receiveVC sock
        identifier (header ans) `shouldBe` 1