diff options
author | Kazu Yamamoto <kazu@iij.ad.jp> | 2011-07-19 14:25:18 +0900 |
---|---|---|
committer | Kazu Yamamoto <kazu@iij.ad.jp> | 2011-07-19 14:25:18 +0900 |
commit | c8549adbbc36f5a4efcce0c49f07ed079f8ae4ae (patch) | |
tree | 4783ccdbac507d550541b9a6d2d38feda03bb5e1 | |
parent | 80e15f031cebe3a9aeb8fc792cf0bc3dbb4eca47 (diff) |
IP iteral.
-rw-r--r-- | Test.hs | 9 |
1 files changed, 4 insertions, 5 deletions
@@ -2,7 +2,6 @@ module Test where -import Data.IP import Data.List import Network.DNS as DNS import Test.Framework (defaultMain, testGroup, Test) @@ -27,7 +26,7 @@ test_lookupA :: IO () test_lookupA = do rs <- makeResolvSeed defaultResolvConf withResolver rs $ \resolver -> - DNS.lookupA resolver "www.mew.org" ?= Just [toIPv4 [202,232,15,101]] + DNS.lookupA resolver "www.mew.org" ?= Just ["202.232.15.101"] (??=) :: (Ord a, Show a) => IO (Maybe [a]) -> [a] -> IO () a ??= bs = do @@ -41,7 +40,7 @@ test_lookupAAAA = do rs <- makeResolvSeed defaultResolvConf withResolver rs $ \resolver -> do DNS.lookupAAAA resolver "mew.org" ?= Nothing - DNS.lookupAAAA resolver "www.mew.org" ?= Just [read "2001:240:11e:c00::101"] + DNS.lookupAAAA resolver "www.mew.org" ?= Just ["2001:240:11e:c00::101"] test_lookupTXT :: IO () test_lookupTXT = do @@ -53,13 +52,13 @@ test_lookupAviaMX :: IO () test_lookupAviaMX = do rs <- makeResolvSeed defaultResolvConf withResolver rs $ \resolver -> - DNS.lookupAviaMX resolver "mixi.jp" ??= [read "202.32.29.4", read "202.32.29.5"] + DNS.lookupAviaMX resolver "mixi.jp" ??= ["202.32.29.4", "202.32.29.5"] test_lookupAviaCNAME :: IO () test_lookupAviaCNAME = do rs <- makeResolvSeed defaultResolvConf withResolver rs $ \resolver -> - DNS.lookupA resolver "foundry1.hongo.wide.ad.jp" ??= [read "203.178.135.1", read "203.178.138.230"] + DNS.lookupA resolver "ghs.google.com" ??= ["64.233.183.121"] main :: IO () main = defaultMain tests |