From 9215cada18937561801da2d0a42b916669f8fa1a Mon Sep 17 00:00:00 2001 From: Eugene Crosser Date: Sun, 13 Apr 2014 22:16:13 +0400 Subject: [PATCH] test for SRV --- d/extra2 | 2 +- d/root | 2 +- test.hs | 4 ++-- 3 files changed, 4 insertions(+), 4 deletions(-) diff --git a/d/extra2 b/d/extra2 index 2978b78..c899105 100644 --- a/d/extra2 +++ b/d/extra2 @@ -1 +1 @@ -{"import":"d/extra1","ip":["5.6.7.8"],"alias":"extra2alias","service":[["imap", "tcp", 0, 0, 143, "mail.host.com."]]} +{"ip":["5.6.7.8"],"alias":"extra2alias","service":[["imap", "tcp", 0, 0, 143, "mail.host.com."]]} diff --git a/d/root b/d/root index 915ee35..d3027c9 100644 --- a/d/root +++ b/d/root @@ -1 +1 @@ -{"info":{"description":"Dot-BIT Project - Official Website","registrar":"http://register.dot-bit.org"},"fingerprint":["30:B0:60:94:32:08:EC:F5:BE:DF:F4:BB:EE:52:90:2C:5D:47:62:46"],"ns":["ns0.web-sweet-web.net","ns1.web-sweet-web.net"],"map":{"":{"ns":["ns2.web-sweet-web.net","ns3.web-sweet-web.net"]}},"email":"register@dot-bit.org","import":"d/extra1"} +{"info":{"description":"Dot-BIT Project - Official Website","registrar":"http://register.dot-bit.org"},"fingerprint":["30:B0:60:94:32:08:EC:F5:BE:DF:F4:BB:EE:52:90:2C:5D:47:62:46"],"map":{"":{"ip6":["2001:4860:0:1001::68"]}},"email":"register@dot-bit.org","import":"d/extra1"} diff --git a/test.hs b/test.hs index 1f19426..3bcd4bc 100644 --- a/test.hs +++ b/test.hs @@ -15,6 +15,6 @@ queryOp key = catch (readFile key >>= return . Right) (\e -> return (Left (show (e :: IOException)))) main = do - d <- descendNmcDom queryOp [] $ seedNmcDom "root" - putStrLn $ show d + descendNmcDom queryOp [] (seedNmcDom "root") >>= print + descendNmcDom queryOp ["_tcp","_smtp"] (seedNmcDom "root") >>= print -- 2.39.2