test for SRV

diff --git a/d/extra2 b/d/extra2
index 2978b78e771ee773046f65c09e3995acb9e8b004..c89910506ebaa1c6a5f571d9c861b0506fa77d1c 100644 (file)
--- 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 915ee35ae74861d22770b89a3a7d0b1d319b22dc..d3027c920c7f70ae13a0cb04b109dbad7b4e4382 100644 (file)
--- 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 1f19426c139401552e0b9f066df0f9c1382376dd..3bcd4bc12187fffcbe08faff6f915540d50ebb46 100644 (file)
--- 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
                     (\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