From c8549adbbc36f5a4efcce0c49f07ed079f8ae4ae Mon Sep 17 00:00:00 2001 From: Kazu Yamamoto Date: Tue, 19 Jul 2011 14:25:18 +0900 Subject: IP iteral. --- Test.hs | 9 ++++----- 1 file changed, 4 insertions(+), 5 deletions(-) diff --git a/Test.hs b/Test.hs index 5641d36..86ffd5d 100644 --- a/Test.hs +++ b/Test.hs @@ -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 -- cgit v1.2.3