From: Eugene Crosser Date: Sun, 13 Apr 2014 18:16:13 +0000 (+0400) Subject: test for SRV X-Git-Tag: 0.9.0.0~73 X-Git-Url: http://www.average.org/gitweb/?p=pdns-pipe-nmc.git;a=commitdiff_plain;h=9215cada18937561801da2d0a42b916669f8fa1a;ds=sidebyside test for SRV --- 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