From c8865a0d524f3d545836bd4581329089a357661e Mon Sep 17 00:00:00 2001
From: Sergey Poznyakoff <gray@gnu.org.ua>
Date: Mon, 16 May 2011 19:31:53 +0300
Subject: Add bind testsuite.

* README.submodule: Update URL.
* src/bind-lex.l (grecs_bind_new_source): Scan include path.
* src/grecs.h (grecs_find_include_file): new proto.
* src/preproc.c (try_file): Rename to grecs_find_include_file. Change
signature and return type. All uses updated.
* tests/Makefile.am (EXTRA_DIST): Add new configs.
(TESTSUITE_AT): Add parser-bind.at.
* tests/gcffmt.c: Add -I (-include) option.
* tests/testsuite.at: Include parser-bind.at.

* tests/bind.conf: New file.
* tests/bind.dlz: New file.
* tests/bind.ext.conf: New file.
* tests/bind.int.conf: New file.
* tests/bind.keys: New file.
* tests/parser-bind.at: New file.
---
 tests/bind.dlz | 33 +++++++++++++++++++++++++++++++++
 1 file changed, 33 insertions(+)
 create mode 100644 tests/bind.dlz

(limited to 'tests/bind.dlz')

diff --git a/tests/bind.dlz b/tests/bind.dlz
new file mode 100644
index 0000000..ffbbfc9
--- /dev/null
+++ b/tests/bind.dlz
@@ -0,0 +1,33 @@
+# Sample Bind configuration include file (3) for Grecs testsuite.
+# This is a typical (?) DLZ configuraton for BIND.
+# 
+dlz "DLZ" {
+   database "mysql
+   {host=localhost socket=/var/run/mysql/mysql.sock dbname=Foo user=bind ssl=false}
+   {select r.zone from dns_soa r, dns_acl a where r.zone = '%zone%'
+      and a.network <= inet_aton('%client%') and inet_aton('%client%') <=
+      a.bcast
+      and a.view = r.view }
+   {select r.ttl, r.type, r.mx_priority,
+      case when r.type='TXT' then concat('\"', r.data, '\"') else r.data end
+      from dns_records r, dns_acl a,
+      where r.zone = '%zone%' and r.host = '%record%'
+      and not (r.type = 'SOA' or r.type = 'NS')
+      and a.network <= inet_aton('%client%') and inet_aton('%client%') <=
+      a.bcast
+      and a.view = r.view }
+   {select r.ttl, r.type, r.data, r.resp_person, r.serial,
+           r.refresh, r.retry, r.expire, r.minimum
+        from dns_soa r, dns_acl a where r.zone = '%zone%'
+         and (r.type = 'SOA' or r.type='NS')
+      and a.network <= inet_aton('%client%') and
+      inet_aton('%client%') <= a.bcast
+      and a.view = r.view }
+   {select r.ttl, r.type, r.host, r.mx_priority, case when r.type='TXT' then
+        concat('\"', r.data, '\"') else r.data end
+        from dns_records r, dns_acl a where r.zone = '%zone%' 
+      and a.network <= inet_aton('%client%') and
+      inet_aton('%client%') <= a.bcast
+      and a.view = r.view }
+   {select zone from dns_xfr where zone = '%zone%' and client = '%client%'}";
+};
-- 
cgit v1.2.1