Add testcase for TLSA record access

4 files changed, 28 insertions, 0 deletions

diff --git a/test/confs/5890 b/test/confs/5890
new file mode 100644
index 000000000..bd0b77df2
--- /dev/null
+++ b/test/confs/5890
@@ -0,0 +1,10 @@
+# Exim test configuration 5890
+# DANE common
+
+exim_path = EXIM_PATH
+host_lookup_order = bydns
+primary_hostname = myhost.test.ex
+spool_directory = DIR/spool
+
+# ----- Main settings -----
+
diff --git a/test/scripts/5890-DANE/5890 b/test/scripts/5890-DANE/5890
new file mode 100644
index 000000000..fd7b6d6d3
--- /dev/null
+++ b/test/scripts/5890-DANE/5890
@@ -0,0 +1,12 @@
+# Expansion test for DANE.
+#
+# Some systems seem to use 1-byte fields for the leading
+# 3 fields in a TLSA record, others 2-bytes.
+# We need the result to match the string in dnszones-src/db.test.ex
+
+exim -be
+
+dnslookup tpda: ${lookup dnsdb {tlsa=_1225._tcp.dane512ee.test.ex} \
+                        {$value}{none}}
+
+****
diff --git a/test/scripts/5890-DANE/REQUIRES b/test/scripts/5890-DANE/REQUIRES
new file mode 100644
index 000000000..2314a3236
--- /dev/null
+++ b/test/scripts/5890-DANE/REQUIRES
@@ -0,0 +1,2 @@
+support Experimental_DANE
+running IPv4
diff --git a/test/stdout/5890 b/test/stdout/5890
new file mode 100644
index 000000000..815d95942
--- /dev/null
+++ b/test/stdout/5890
@@ -0,0 +1,4 @@
+> 
+> dnslookup tpda: 3 1 2 3d5eb81b1dfc3f93c1fa8819e3fb3fdb41bb590441d5f3811db17772f4bc6de29bdd7c4f4b723750dda871b99379192b3f979f03db1252c4f08b03ef7176528d000000
+> 
+>