AAAA support

[haskell-dns.git] / DNSUnitTest.hs

diff --git a/DNSUnitTest.hs b/DNSUnitTest.hs
index c3975a4252c044e3bf45e6e70a79847a7006dd13..a77b049a40343cab60e89dbbc1f4170f7fbe229e 100644 (file)
--- a/DNSUnitTest.hs
+++ b/DNSUnitTest.hs
@@ -2,8 +2,7 @@ import           Data.Binary
 import qualified Data.ByteString.Lazy as LBS
 import           Data.Word
 import           Network.DNS.Message
-import           Network.Socket
-import           System.IO.Unsafe
+import           Network.Socket.IsString ()
 import           Test.HUnit
 
 
@@ -27,7 +26,7 @@ messages = [ ( [ 0x22, 0x79, 0x01, 0x00, 0x00, 0x01, 0x00, 0x00
                              }
                , msgQuestions   = [ wrapQuestion $
                                     Question {
-                                      qName  = mkDomainName "mail.cielonegro.org."
+                                      qName  = "mail.cielonegro.org."
                                     , qType  = CNAME
                                     , qClass = IN
                                     }
@@ -62,36 +61,36 @@ messages = [ ( [ 0x22, 0x79, 0x01, 0x00, 0x00, 0x01, 0x00, 0x00
                              }
                , msgQuestions   = [ wrapQuestion $
                                     Question {
-                                      qName  = mkDomainName "mail.cielonegro.org."
+                                      qName  = "mail.cielonegro.org."
                                     , qType  = CNAME
                                     , qClass = IN
                                     }
                                   ]
                , msgAnswers     = [ wrapRecord $
                                     ResourceRecord {
-                                      rrName  = mkDomainName "mail.cielonegro.org."
+                                      rrName  = "mail.cielonegro.org."
                                     , rrType  = CNAME
                                     , rrClass = IN
                                     , rrTTL   = 86400
-                                    , rrData  = mkDomainName "nem.cielonegro.org."
+                                    , rrData  = "nem.cielonegro.org."
                                     }
                                   ]
                , msgAuthorities = [ wrapRecord $
                                     ResourceRecord {
-                                      rrName  = mkDomainName "cielonegro.org."
+                                      rrName  = "cielonegro.org."
                                     , rrType  = NS
                                     , rrClass = IN
                                     , rrTTL   = 3600
-                                    , rrData  = mkDomainName "nem.cielonegro.org."
+                                    , rrData  = "nem.cielonegro.org."
                                     }
                                   ]
                , msgAdditionals = [ wrapRecord $
                                     ResourceRecord {
-                                      rrName  = mkDomainName "nem.cielonegro.org."
+                                      rrName  = "nem.cielonegro.org."
                                     , rrType  = A
                                     , rrClass = IN
                                     , rrTTL   = 3600
-                                    , rrData  = unsafePerformIO (inet_addr "219.94.130.139")
+                                    , rrData  = "219.94.130.139"
                                     }
                                   ]
                }
@@ -114,7 +113,7 @@ messages = [ ( [ 0x22, 0x79, 0x01, 0x00, 0x00, 0x01, 0x00, 0x00
                              }
                , msgQuestions   = [ wrapQuestion $
                                     Question {
-                                      qName  = mkDomainName "cielonegro.org."
+                                      qName  = "cielonegro.org."
                                     , qType  = SOA
                                     , qClass = IN
                                     }
@@ -152,20 +151,20 @@ messages = [ ( [ 0x22, 0x79, 0x01, 0x00, 0x00, 0x01, 0x00, 0x00
                              }
                , msgQuestions   = [ wrapQuestion $
                                     Question {
-                                      qName  = mkDomainName "cielonegro.org."
+                                      qName  = "cielonegro.org."
                                     , qType  = SOA
                                     , qClass = IN
                                     }
                                   ]
                , msgAnswers     = [ wrapRecord $
                                     ResourceRecord {
-                                      rrName  = mkDomainName "cielonegro.org."
+                                      rrName  = "cielonegro.org."
                                     , rrType  = SOA
                                     , rrClass = IN
                                     , rrTTL   = 3600
                                     , rrData  = SOAFields {
-                                                  soaMasterNameServer   = mkDomainName "nem.cielonegro.org."
-                                                , soaResponsibleMailbox = mkDomainName "root.nem.cielonegro.org."
+                                                  soaMasterNameServer   = "nem.cielonegro.org."
+                                                , soaResponsibleMailbox = "root.nem.cielonegro.org."
                                                 , soaSerialNumber       = 2008022148
                                                 , soaRefreshInterval    = 3600
                                                 , soaRetryInterval      = 900
@@ -176,20 +175,20 @@ messages = [ ( [ 0x22, 0x79, 0x01, 0x00, 0x00, 0x01, 0x00, 0x00
                                   ]
                , msgAuthorities = [ wrapRecord $
                                     ResourceRecord {
-                                      rrName  = mkDomainName "cielonegro.org."
+                                      rrName  = "cielonegro.org."
                                     , rrType  = NS
                                     , rrClass = IN
                                     , rrTTL   = 3600
-                                    , rrData  = mkDomainName "nem.cielonegro.org."
+                                    , rrData  = "nem.cielonegro.org."
                                     }
                                   ]
                , msgAdditionals = [ wrapRecord $
                                     ResourceRecord {
-                                      rrName  = mkDomainName "nem.cielonegro.org."
+                                      rrName  = "nem.cielonegro.org."
                                     , rrType  = A
                                     , rrClass = IN
                                     , rrTTL   = 3600
-                                    , rrData  = unsafePerformIO (inet_addr "219.94.130.139")
+                                    , rrData  = "219.94.130.139"
                                     }
                                   ]
                }