Home | History | Annotate | Line # | Download | only in dns
rdata_test.c revision 1.2.2.2
      1 /*	$NetBSD: rdata_test.c,v 1.2.2.2 2024/02/25 15:47:40 martin Exp $	*/
      2 
      3 /*
      4  * Copyright (C) Internet Systems Consortium, Inc. ("ISC")
      5  *
      6  * SPDX-License-Identifier: MPL-2.0
      7  *
      8  * This Source Code Form is subject to the terms of the Mozilla Public
      9  * License, v. 2.0. If a copy of the MPL was not distributed with this
     10  * file, you can obtain one at https://mozilla.org/MPL/2.0/.
     11  *
     12  * See the COPYRIGHT file distributed with this work for additional
     13  * information regarding copyright ownership.
     14  */
     15 
     16 #include <inttypes.h>
     17 #include <sched.h> /* IWYU pragma: keep */
     18 #include <setjmp.h>
     19 #include <stdarg.h>
     20 #include <stdbool.h>
     21 #include <stddef.h>
     22 #include <stdlib.h>
     23 #include <string.h>
     24 #include <unistd.h>
     25 
     26 #define UNIT_TESTING
     27 
     28 #include <openssl_shim.h>
     29 
     30 #include <openssl/err.h>
     31 
     32 #include <isc/cmocka.h>
     33 #include <isc/commandline.h>
     34 #include <isc/hex.h>
     35 #include <isc/lex.h>
     36 #include <isc/print.h>
     37 #include <isc/stdio.h>
     38 #include <isc/types.h>
     39 #include <isc/util.h>
     40 
     41 #include <dns/rdata.h>
     42 
     43 #include <tests/dns.h>
     44 
     45 static bool debug = false;
     46 
     47 /*
     48  * An array of these structures is passed to compare_ok().
     49  */
     50 struct compare_ok {
     51 	const char *text1; /* text passed to fromtext_*() */
     52 	const char *text2; /* text passed to fromtext_*() */
     53 	int answer;	   /* -1, 0, 1 */
     54 	int lineno;	   /* source line defining this RDATA */
     55 };
     56 typedef struct compare_ok compare_ok_t;
     57 
     58 struct textvsunknown {
     59 	const char *text1;
     60 	const char *text2;
     61 };
     62 typedef struct textvsunknown textvsunknown_t;
     63 
     64 /*
     65  * An array of these structures is passed to check_text_ok().
     66  */
     67 typedef struct text_ok {
     68 	const char *text_in;  /* text passed to fromtext_*() */
     69 	const char *text_out; /* text expected from totext_*();
     70 			       * NULL indicates text_in is invalid */
     71 	unsigned int loop;
     72 } text_ok_t;
     73 
     74 /*
     75  * An array of these structures is passed to check_wire_ok().
     76  */
     77 typedef struct wire_ok {
     78 	unsigned char data[512]; /* RDATA in wire format */
     79 	size_t len;		 /* octets of data to parse */
     80 	bool ok;		 /* is this RDATA valid? */
     81 	unsigned int loop;
     82 } wire_ok_t;
     83 
     84 #define COMPARE(r1, r2, answer)          \
     85 	{                                \
     86 		r1, r2, answer, __LINE__ \
     87 	}
     88 #define COMPARE_SENTINEL()              \
     89 	{                               \
     90 		NULL, NULL, 0, __LINE__ \
     91 	}
     92 
     93 #define TEXT_VALID_CHANGED(data_in, data_out) \
     94 	{                                     \
     95 		data_in, data_out, 0          \
     96 	}
     97 #define TEXT_VALID(data)      \
     98 	{                     \
     99 		data, data, 0 \
    100 	}
    101 #define TEXT_VALID_LOOP(loop, data) \
    102 	{                           \
    103 		data, data, loop    \
    104 	}
    105 #define TEXT_VALID_LOOPCHG(loop, data_in, data_out) \
    106 	{                                           \
    107 		data_in, data_out, loop             \
    108 	}
    109 #define TEXT_INVALID(data)    \
    110 	{                     \
    111 		data, NULL, 0 \
    112 	}
    113 #define TEXT_SENTINEL() TEXT_INVALID(NULL)
    114 
    115 #define VARGC(...) (sizeof((unsigned char[]){ __VA_ARGS__ }))
    116 #define WIRE_TEST(ok, loop, ...)                              \
    117 	{                                                     \
    118 		{ __VA_ARGS__ }, VARGC(__VA_ARGS__), ok, loop \
    119 	}
    120 #define WIRE_VALID(...)		   WIRE_TEST(true, 0, __VA_ARGS__)
    121 #define WIRE_VALID_LOOP(loop, ...) WIRE_TEST(true, loop, __VA_ARGS__)
    122 /*
    123  * WIRE_INVALID() test cases must always have at least one octet specified to
    124  * distinguish them from WIRE_SENTINEL().  Use the 'empty_ok' parameter passed
    125  * to check_wire_ok() for indicating whether empty RDATA is allowed for a given
    126  * RR type or not.
    127  */
    128 #define WIRE_INVALID(FIRST, ...) WIRE_TEST(false, 0, FIRST, __VA_ARGS__)
    129 #define WIRE_SENTINEL()		 WIRE_TEST(false, 0)
    130 
    131 static void
    132 detect_uncleared_libcrypto_error(void) {
    133 	const char *file, *func, *data;
    134 	int line, flags;
    135 	long err;
    136 	bool leak = false;
    137 	while ((err = ERR_get_error_all(&file, &line, &func, &data, &flags)) !=
    138 	       0L)
    139 	{
    140 		fprintf(stderr,
    141 			"# Uncleared libcrypto error: %s:%d %s %s %ld %x\n",
    142 			file, line, func, data, err, flags);
    143 		leak = true;
    144 	}
    145 	assert_false(leak);
    146 }
    147 
    148 /*
    149  * Call dns_rdata_fromwire() for data in 'src', which is 'srclen' octets in
    150  * size and represents RDATA of given 'type' and 'class'.  Store the resulting
    151  * uncompressed wire form in 'dst', which is 'dstlen' octets in size, and make
    152  * 'rdata' refer to that uncompressed wire form.
    153  */
    154 static isc_result_t
    155 wire_to_rdata(const unsigned char *src, size_t srclen, dns_rdataclass_t rdclass,
    156 	      dns_rdatatype_t type, unsigned char *dst, size_t dstlen,
    157 	      dns_rdata_t *rdata) {
    158 	isc_buffer_t source, target;
    159 	dns_decompress_t dctx;
    160 	isc_result_t result;
    161 
    162 	/*
    163 	 * Set up len-octet buffer pointing at data.
    164 	 */
    165 	isc_buffer_constinit(&source, src, srclen);
    166 	isc_buffer_add(&source, srclen);
    167 	isc_buffer_setactive(&source, srclen);
    168 
    169 	/*
    170 	 * Initialize target buffer.
    171 	 */
    172 	isc_buffer_init(&target, dst, dstlen);
    173 
    174 	/*
    175 	 * Try converting input data into uncompressed wire form.
    176 	 */
    177 	dns_decompress_init(&dctx, -1, DNS_DECOMPRESS_ANY);
    178 	result = dns_rdata_fromwire(rdata, rdclass, type, &source, &dctx, 0,
    179 				    &target);
    180 	dns_decompress_invalidate(&dctx);
    181 	detect_uncleared_libcrypto_error();
    182 
    183 	return (result);
    184 }
    185 
    186 /*
    187  * Call dns_rdata_towire() for rdata and write to result to dst.
    188  */
    189 static isc_result_t
    190 rdata_towire(dns_rdata_t *rdata, unsigned char *dst, size_t dstlen,
    191 	     size_t *length) {
    192 	isc_buffer_t target;
    193 	dns_compress_t cctx;
    194 	isc_result_t result;
    195 
    196 	/*
    197 	 * Initialize target buffer.
    198 	 */
    199 	isc_buffer_init(&target, dst, dstlen);
    200 
    201 	/*
    202 	 * Try converting input data into uncompressed wire form.
    203 	 */
    204 	dns_compress_init(&cctx, -1, mctx);
    205 	result = dns_rdata_towire(rdata, &cctx, &target);
    206 	detect_uncleared_libcrypto_error();
    207 	dns_compress_invalidate(&cctx);
    208 
    209 	*length = isc_buffer_usedlength(&target);
    210 
    211 	return (result);
    212 }
    213 
    214 static isc_result_t
    215 additionaldata_cb(void *arg, const dns_name_t *name, dns_rdatatype_t qtype,
    216 		  dns_rdataset_t *found) {
    217 	UNUSED(arg);
    218 	UNUSED(name);
    219 	UNUSED(qtype);
    220 	UNUSED(found);
    221 	return (ISC_R_SUCCESS);
    222 }
    223 
    224 /*
    225  * call dns_rdata_additionaldata() for rdata.
    226  */
    227 static isc_result_t
    228 rdata_additionadata(dns_rdata_t *rdata) {
    229 	return (dns_rdata_additionaldata(rdata, dns_rootname, additionaldata_cb,
    230 					 NULL));
    231 }
    232 
    233 /*
    234  * Call dns_rdata_checknames() with various owner names chosen to
    235  * match well known forms.
    236  *
    237  * We are currently only checking that the calls do not trigger
    238  * assertion failures.
    239  *
    240  * XXXMPA A future extension could be to record the expected
    241  * result and the expected value of 'bad'.
    242  */
    243 static void
    244 rdata_checknames(dns_rdata_t *rdata) {
    245 	dns_fixedname_t fixed, bfixed;
    246 	dns_name_t *name, *bad;
    247 	isc_result_t result;
    248 
    249 	name = dns_fixedname_initname(&fixed);
    250 	bad = dns_fixedname_initname(&bfixed);
    251 
    252 	(void)dns_rdata_checknames(rdata, dns_rootname, NULL);
    253 	(void)dns_rdata_checknames(rdata, dns_rootname, bad);
    254 
    255 	result = dns_name_fromstring(name, "example.net", 0, NULL);
    256 	assert_int_equal(result, ISC_R_SUCCESS);
    257 	(void)dns_rdata_checknames(rdata, name, NULL);
    258 	(void)dns_rdata_checknames(rdata, name, bad);
    259 
    260 	result = dns_name_fromstring(name, "in-addr.arpa", 0, NULL);
    261 	assert_int_equal(result, ISC_R_SUCCESS);
    262 	(void)dns_rdata_checknames(rdata, name, NULL);
    263 	(void)dns_rdata_checknames(rdata, name, bad);
    264 
    265 	result = dns_name_fromstring(name, "ip6.arpa", 0, NULL);
    266 	assert_int_equal(result, ISC_R_SUCCESS);
    267 	(void)dns_rdata_checknames(rdata, name, NULL);
    268 	(void)dns_rdata_checknames(rdata, name, bad);
    269 }
    270 
    271 /*
    272  * Test whether converting rdata to a type-specific struct and then back to
    273  * rdata results in the same uncompressed wire form.  This checks whether
    274  * tostruct_*() and fromstruct_*() routines for given RR class and type behave
    275  * consistently.
    276  *
    277  * This function is called for every correctly processed input RDATA, from both
    278  * check_text_ok_single() and check_wire_ok_single().
    279  */
    280 static void
    281 check_struct_conversions(dns_rdata_t *rdata, size_t structsize,
    282 			 unsigned int loop) {
    283 	dns_rdataclass_t rdclass = rdata->rdclass;
    284 	dns_rdatatype_t type = rdata->type;
    285 	isc_result_t result;
    286 	isc_buffer_t target;
    287 	void *rdata_struct;
    288 	char buf[1024];
    289 	unsigned int count = 0;
    290 
    291 	rdata_struct = isc_mem_allocate(mctx, structsize);
    292 	assert_non_null(rdata_struct);
    293 
    294 	/*
    295 	 * Convert from uncompressed wire form into type-specific struct.
    296 	 */
    297 	result = dns_rdata_tostruct(rdata, rdata_struct, NULL);
    298 	detect_uncleared_libcrypto_error();
    299 	assert_int_equal(result, ISC_R_SUCCESS);
    300 
    301 	/*
    302 	 * Convert from type-specific struct into uncompressed wire form.
    303 	 */
    304 	isc_buffer_init(&target, buf, sizeof(buf));
    305 	result = dns_rdata_fromstruct(NULL, rdclass, type, rdata_struct,
    306 				      &target);
    307 	assert_int_equal(result, ISC_R_SUCCESS);
    308 
    309 	/*
    310 	 * Ensure results are consistent.
    311 	 */
    312 	assert_int_equal(isc_buffer_usedlength(&target), rdata->length);
    313 
    314 	assert_memory_equal(buf, rdata->data, rdata->length);
    315 
    316 	/*
    317 	 * Check that one can walk hip rendezvous servers and
    318 	 * https/svcb parameters.
    319 	 */
    320 	switch (type) {
    321 	case dns_rdatatype_hip: {
    322 		dns_rdata_hip_t *hip = rdata_struct;
    323 
    324 		for (result = dns_rdata_hip_first(hip); result == ISC_R_SUCCESS;
    325 		     result = dns_rdata_hip_next(hip))
    326 		{
    327 			dns_name_t name;
    328 			dns_name_init(&name, NULL);
    329 			dns_rdata_hip_current(hip, &name);
    330 			assert_int_not_equal(dns_name_countlabels(&name), 0);
    331 			assert_true(dns_name_isabsolute(&name));
    332 			count++;
    333 		}
    334 		assert_int_equal(result, ISC_R_NOMORE);
    335 		assert_int_equal(count, loop);
    336 		break;
    337 	}
    338 	case dns_rdatatype_https: {
    339 		dns_rdata_in_https_t *https = rdata_struct;
    340 
    341 		for (result = dns_rdata_in_https_first(https);
    342 		     result == ISC_R_SUCCESS;
    343 		     result = dns_rdata_in_https_next(https))
    344 		{
    345 			isc_region_t region;
    346 			dns_rdata_in_https_current(https, &region);
    347 			assert_true(region.length >= 4);
    348 			count++;
    349 		}
    350 		assert_int_equal(result, ISC_R_NOMORE);
    351 		assert_int_equal(count, loop);
    352 		break;
    353 	}
    354 	case dns_rdatatype_svcb: {
    355 		dns_rdata_in_svcb_t *svcb = rdata_struct;
    356 
    357 		for (result = dns_rdata_in_svcb_first(svcb);
    358 		     result == ISC_R_SUCCESS;
    359 		     result = dns_rdata_in_svcb_next(svcb))
    360 		{
    361 			isc_region_t region;
    362 			dns_rdata_in_svcb_current(svcb, &region);
    363 			assert_true(region.length >= 4);
    364 			count++;
    365 		}
    366 		assert_int_equal(result, ISC_R_NOMORE);
    367 		assert_int_equal(count, loop);
    368 		break;
    369 	}
    370 	}
    371 
    372 	isc_mem_free(mctx, rdata_struct);
    373 }
    374 
    375 /*
    376  * Check whether converting supplied text form RDATA into uncompressed wire
    377  * form succeeds (tests fromtext_*()).  If so, try converting it back into text
    378  * form and see if it results in the original text (tests totext_*()).
    379  */
    380 static void
    381 check_text_ok_single(const text_ok_t *text_ok, dns_rdataclass_t rdclass,
    382 		     dns_rdatatype_t type, size_t structsize) {
    383 	unsigned char buf_fromtext[1024], buf_fromwire[1024], buf_towire[1024];
    384 	dns_rdata_t rdata = DNS_RDATA_INIT, rdata2 = DNS_RDATA_INIT;
    385 	char buf_totext[1024] = { 0 };
    386 	isc_buffer_t target;
    387 	isc_result_t result;
    388 	size_t length = 0;
    389 
    390 	if (debug) {
    391 		fprintf(stdout, "#check_text_ok_single(%s)\n",
    392 			text_ok->text_in);
    393 	}
    394 	/*
    395 	 * Try converting text form RDATA into uncompressed wire form.
    396 	 */
    397 	result = dns_test_rdatafromstring(&rdata, rdclass, type, buf_fromtext,
    398 					  sizeof(buf_fromtext),
    399 					  text_ok->text_in, false);
    400 	/*
    401 	 * Check whether result is as expected.
    402 	 */
    403 	if (text_ok->text_out != NULL) {
    404 		if (debug && result != ISC_R_SUCCESS) {
    405 			fprintf(stdout, "# '%s'\n", text_ok->text_in);
    406 			fprintf(stdout, "# result=%s\n",
    407 				isc_result_totext(result));
    408 		}
    409 		assert_int_equal(result, ISC_R_SUCCESS);
    410 	} else {
    411 		if (debug && result == ISC_R_SUCCESS) {
    412 			fprintf(stdout, "#'%s'\n", text_ok->text_in);
    413 		}
    414 		assert_int_not_equal(result, ISC_R_SUCCESS);
    415 	}
    416 
    417 	/*
    418 	 * If text form RDATA was not parsed correctly, performing any
    419 	 * additional checks is pointless.
    420 	 */
    421 	if (result != ISC_R_SUCCESS) {
    422 		return;
    423 	}
    424 
    425 	/*
    426 	 * Try converting uncompressed wire form RDATA back into text form and
    427 	 * check whether the resulting text is the same as the original one.
    428 	 */
    429 	isc_buffer_init(&target, buf_totext, sizeof(buf_totext));
    430 	result = dns_rdata_totext(&rdata, NULL, &target);
    431 	detect_uncleared_libcrypto_error();
    432 	if (result != ISC_R_SUCCESS && debug) {
    433 		size_t i;
    434 		fprintf(stdout, "# dns_rdata_totext -> %s",
    435 			isc_result_totext(result));
    436 		for (i = 0; i < rdata.length; i++) {
    437 			if ((i % 16) == 0) {
    438 				fprintf(stdout, "\n#");
    439 			}
    440 			fprintf(stdout, " %02x", rdata.data[i]);
    441 		}
    442 		fprintf(stdout, "\n");
    443 	}
    444 	assert_int_equal(result, ISC_R_SUCCESS);
    445 	/*
    446 	 * Ensure buf_totext is properly NUL terminated as dns_rdata_totext()
    447 	 * may attempt different output formats writing into the apparently
    448 	 * unused part of the buffer.
    449 	 */
    450 	isc_buffer_putuint8(&target, 0);
    451 	if (debug && strcmp(buf_totext, text_ok->text_out) != 0) {
    452 		fprintf(stdout, "# '%s' != '%s'\n", buf_totext,
    453 			text_ok->text_out);
    454 	}
    455 	assert_string_equal(buf_totext, text_ok->text_out);
    456 
    457 	if (debug) {
    458 		fprintf(stdout, "#dns_rdata_totext -> '%s'\n", buf_totext);
    459 	}
    460 
    461 	/*
    462 	 * Ensure that fromtext_*() output is valid input for fromwire_*().
    463 	 */
    464 	result = wire_to_rdata(rdata.data, rdata.length, rdclass, type,
    465 			       buf_fromwire, sizeof(buf_fromwire), &rdata2);
    466 	assert_int_equal(result, ISC_R_SUCCESS);
    467 	assert_int_equal(rdata.length, rdata2.length);
    468 	assert_memory_equal(rdata.data, buf_fromwire, rdata.length);
    469 
    470 	/*
    471 	 * Ensure that fromtext_*() output is valid input for towire_*().
    472 	 */
    473 	result = rdata_towire(&rdata, buf_towire, sizeof(buf_towire), &length);
    474 	assert_int_equal(result, ISC_R_SUCCESS);
    475 	assert_int_equal(rdata.length, length);
    476 	assert_memory_equal(rdata.data, buf_towire, length);
    477 
    478 	/*
    479 	 * Test that additionaldata_*() succeeded.
    480 	 */
    481 	result = rdata_additionadata(&rdata);
    482 	assert_int_equal(result, ISC_R_SUCCESS);
    483 
    484 	/*
    485 	 * Exercise checknames_*().
    486 	 */
    487 	rdata_checknames(&rdata);
    488 
    489 	/*
    490 	 * Perform two-way conversion checks between uncompressed wire form and
    491 	 * type-specific struct.
    492 	 */
    493 	check_struct_conversions(&rdata, structsize, text_ok->loop);
    494 }
    495 
    496 /*
    497  * Test whether converting rdata to text form and then parsing the result of
    498  * that conversion again results in the same uncompressed wire form.  This
    499  * checks whether totext_*() output is parsable by fromtext_*() for given RR
    500  * class and type.
    501  *
    502  * This function is called for every input RDATA which is successfully parsed
    503  * by check_wire_ok_single() and whose type is not a meta-type.
    504  */
    505 static void
    506 check_text_conversions(dns_rdata_t *rdata) {
    507 	char buf_totext[1024] = { 0 };
    508 	unsigned char buf_fromtext[1024];
    509 	isc_result_t result;
    510 	isc_buffer_t target;
    511 	dns_rdata_t rdata2 = DNS_RDATA_INIT;
    512 
    513 	/*
    514 	 * Convert uncompressed wire form RDATA into text form.  This
    515 	 * conversion must succeed since input RDATA was successfully
    516 	 * parsed by check_wire_ok_single().
    517 	 */
    518 	isc_buffer_init(&target, buf_totext, sizeof(buf_totext));
    519 	result = dns_rdata_totext(rdata, NULL, &target);
    520 	detect_uncleared_libcrypto_error();
    521 	assert_int_equal(result, ISC_R_SUCCESS);
    522 	/*
    523 	 * Ensure buf_totext is properly NUL terminated as dns_rdata_totext()
    524 	 * may attempt different output formats writing into the apparently
    525 	 * unused part of the buffer.
    526 	 */
    527 	isc_buffer_putuint8(&target, 0);
    528 	if (debug) {
    529 		fprintf(stdout, "#'%s'\n", buf_totext);
    530 	}
    531 
    532 	/*
    533 	 * Try parsing text form RDATA output by dns_rdata_totext() again.
    534 	 */
    535 	result = dns_test_rdatafromstring(&rdata2, rdata->rdclass, rdata->type,
    536 					  buf_fromtext, sizeof(buf_fromtext),
    537 					  buf_totext, false);
    538 	if (debug && result != ISC_R_SUCCESS) {
    539 		fprintf(stdout, "# result = %s\n", isc_result_totext(result));
    540 		fprintf(stdout, "# '%s'\n", buf_fromtext);
    541 	}
    542 	assert_int_equal(result, ISC_R_SUCCESS);
    543 	assert_int_equal(rdata2.length, rdata->length);
    544 	assert_memory_equal(buf_fromtext, rdata->data, rdata->length);
    545 }
    546 
    547 /*
    548  * Test whether converting rdata to multi-line text form and then parsing the
    549  * result of that conversion again results in the same uncompressed wire form.
    550  * This checks whether multi-line totext_*() output is parsable by fromtext_*()
    551  * for given RR class and type.
    552  *
    553  * This function is called for every input RDATA which is successfully parsed
    554  * by check_wire_ok_single() and whose type is not a meta-type.
    555  */
    556 static void
    557 check_multiline_text_conversions(dns_rdata_t *rdata) {
    558 	char buf_totext[1024] = { 0 };
    559 	unsigned char buf_fromtext[1024];
    560 	isc_result_t result;
    561 	isc_buffer_t target;
    562 	dns_rdata_t rdata2 = DNS_RDATA_INIT;
    563 	unsigned int flags;
    564 
    565 	/*
    566 	 * Convert uncompressed wire form RDATA into multi-line text form.
    567 	 * This conversion must succeed since input RDATA was successfully
    568 	 * parsed by check_wire_ok_single().
    569 	 */
    570 	isc_buffer_init(&target, buf_totext, sizeof(buf_totext));
    571 	flags = dns_master_styleflags(&dns_master_style_default);
    572 	result = dns_rdata_tofmttext(rdata, dns_rootname, flags, 80 - 32, 4,
    573 				     "\n", &target);
    574 	detect_uncleared_libcrypto_error();
    575 	assert_int_equal(result, ISC_R_SUCCESS);
    576 	/*
    577 	 * Ensure buf_totext is properly NUL terminated as
    578 	 * dns_rdata_tofmttext() may attempt different output formats
    579 	 * writing into the apparently unused part of the buffer.
    580 	 */
    581 	isc_buffer_putuint8(&target, 0);
    582 	if (debug) {
    583 		fprintf(stdout, "#'%s'\n", buf_totext);
    584 	}
    585 
    586 	/*
    587 	 * Try parsing multi-line text form RDATA output by
    588 	 * dns_rdata_tofmttext() again.
    589 	 */
    590 	result = dns_test_rdatafromstring(&rdata2, rdata->rdclass, rdata->type,
    591 					  buf_fromtext, sizeof(buf_fromtext),
    592 					  buf_totext, false);
    593 	assert_int_equal(result, ISC_R_SUCCESS);
    594 	assert_int_equal(rdata2.length, rdata->length);
    595 	assert_memory_equal(buf_fromtext, rdata->data, rdata->length);
    596 }
    597 
    598 /*
    599  * Test whether supplied wire form RDATA is properly handled as being either
    600  * valid or invalid for an RR of given rdclass and type.
    601  */
    602 static void
    603 check_wire_ok_single(const wire_ok_t *wire_ok, dns_rdataclass_t rdclass,
    604 		     dns_rdatatype_t type, size_t structsize) {
    605 	unsigned char buf[1024], buf_towire[1024];
    606 	isc_result_t result;
    607 	dns_rdata_t rdata = DNS_RDATA_INIT;
    608 	size_t length = 0;
    609 
    610 	/*
    611 	 * Try converting wire data into uncompressed wire form.
    612 	 */
    613 	result = wire_to_rdata(wire_ok->data, wire_ok->len, rdclass, type, buf,
    614 			       sizeof(buf), &rdata);
    615 	/*
    616 	 * Check whether result is as expected.
    617 	 */
    618 	if (wire_ok->ok) {
    619 		assert_int_equal(result, ISC_R_SUCCESS);
    620 	} else {
    621 		assert_int_not_equal(result, ISC_R_SUCCESS);
    622 	}
    623 
    624 	if (result != ISC_R_SUCCESS) {
    625 		return;
    626 	}
    627 
    628 	/*
    629 	 * If data was parsed correctly, perform two-way conversion checks
    630 	 * between uncompressed wire form and type-specific struct.
    631 	 *
    632 	 * If the RR type is not a meta-type, additionally perform two-way
    633 	 * conversion checks between:
    634 	 *
    635 	 *   - uncompressed wire form and text form,
    636 	 *   - uncompressed wire form and multi-line text form.
    637 	 */
    638 	check_struct_conversions(&rdata, structsize, wire_ok->loop);
    639 	if (!dns_rdatatype_ismeta(rdata.type)) {
    640 		check_text_conversions(&rdata);
    641 		check_multiline_text_conversions(&rdata);
    642 	}
    643 
    644 	/*
    645 	 * Ensure that fromwire_*() output is valid input for towire_*().
    646 	 */
    647 	result = rdata_towire(&rdata, buf_towire, sizeof(buf_towire), &length);
    648 	assert_int_equal(result, ISC_R_SUCCESS);
    649 	assert_int_equal(rdata.length, length);
    650 	assert_memory_equal(rdata.data, buf_towire, length);
    651 
    652 	/*
    653 	 * Test that additionaldata_*() succeeded.
    654 	 */
    655 	result = rdata_additionadata(&rdata);
    656 	assert_int_equal(result, ISC_R_SUCCESS);
    657 
    658 	/*
    659 	 * Exercise checknames_*().
    660 	 */
    661 	rdata_checknames(&rdata);
    662 }
    663 
    664 /*
    665  * Test fromtext_*() and totext_*() routines for given RR class and type for
    666  * each text form RDATA in the supplied array.  See the comment for
    667  * check_text_ok_single() for an explanation of how exactly these routines are
    668  * tested.
    669  */
    670 static void
    671 check_text_ok(const text_ok_t *text_ok, dns_rdataclass_t rdclass,
    672 	      dns_rdatatype_t type, size_t structsize) {
    673 	size_t i;
    674 
    675 	/*
    676 	 * Check all entries in the supplied array.
    677 	 */
    678 	for (i = 0; text_ok[i].text_in != NULL; i++) {
    679 		check_text_ok_single(&text_ok[i], rdclass, type, structsize);
    680 	}
    681 }
    682 
    683 /*
    684  * For each wire form RDATA in the supplied array, check whether it is properly
    685  * handled as being either valid or invalid for an RR of given rdclass and
    686  * type, then check whether trying to process a zero-length wire data buffer
    687  * yields the expected result.  This checks whether the fromwire_*() routine
    688  * for given RR class and type behaves as expected.
    689  */
    690 static void
    691 check_wire_ok(const wire_ok_t *wire_ok, bool empty_ok, dns_rdataclass_t rdclass,
    692 	      dns_rdatatype_t type, size_t structsize) {
    693 	wire_ok_t empty_wire = WIRE_TEST(empty_ok, 0);
    694 	size_t i;
    695 
    696 	/*
    697 	 * Check all entries in the supplied array.
    698 	 */
    699 	for (i = 0; wire_ok[i].len != 0; i++) {
    700 		if (debug) {
    701 			fprintf(stderr, "calling check_wire_ok_single on %zu\n",
    702 				i);
    703 		}
    704 		check_wire_ok_single(&wire_ok[i], rdclass, type, structsize);
    705 	}
    706 
    707 	/*
    708 	 * Check empty wire data.
    709 	 */
    710 	check_wire_ok_single(&empty_wire, rdclass, type, structsize);
    711 }
    712 
    713 /*
    714  * Check that two records compare as expected with dns_rdata_compare().
    715  */
    716 static void
    717 check_compare_ok_single(const compare_ok_t *compare_ok,
    718 			dns_rdataclass_t rdclass, dns_rdatatype_t type) {
    719 	dns_rdata_t rdata1 = DNS_RDATA_INIT, rdata2 = DNS_RDATA_INIT;
    720 	unsigned char buf1[1024], buf2[1024];
    721 	isc_result_t result;
    722 	int answer;
    723 
    724 	result = dns_test_rdatafromstring(&rdata1, rdclass, type, buf1,
    725 					  sizeof(buf1), compare_ok->text1,
    726 					  false);
    727 	if (result != ISC_R_SUCCESS) {
    728 		fail_msg("# line %d: '%s': expected success, got failure",
    729 			 compare_ok->lineno, compare_ok->text1);
    730 	}
    731 
    732 	result = dns_test_rdatafromstring(&rdata2, rdclass, type, buf2,
    733 					  sizeof(buf2), compare_ok->text2,
    734 					  false);
    735 
    736 	if (result != ISC_R_SUCCESS) {
    737 		fail_msg("# line %d: '%s': expected success, got failure",
    738 			 compare_ok->lineno, compare_ok->text2);
    739 	}
    740 
    741 	answer = dns_rdata_compare(&rdata1, &rdata2);
    742 	detect_uncleared_libcrypto_error();
    743 	if (compare_ok->answer == 0 && answer != 0) {
    744 		fail_msg("# line %d: dns_rdata_compare('%s', '%s'): "
    745 			 "expected equal, got %s",
    746 			 compare_ok->lineno, compare_ok->text1,
    747 			 compare_ok->text2,
    748 			 (answer > 0) ? "greater than" : "less than");
    749 	}
    750 	if (compare_ok->answer < 0 && answer >= 0) {
    751 		fail_msg("# line %d: dns_rdata_compare('%s', '%s'): "
    752 			 "expected less than, got %s",
    753 			 compare_ok->lineno, compare_ok->text1,
    754 			 compare_ok->text2,
    755 			 (answer == 0) ? "equal" : "greater than");
    756 	}
    757 	if (compare_ok->answer > 0 && answer <= 0) {
    758 		fail_msg("line %d: dns_rdata_compare('%s', '%s'): "
    759 			 "expected greater than, got %s",
    760 			 compare_ok->lineno, compare_ok->text1,
    761 			 compare_ok->text2,
    762 			 (answer == 0) ? "equal" : "less than");
    763 	}
    764 }
    765 
    766 /*
    767  * Check that all the records sets in compare_ok compare as expected
    768  * with dns_rdata_compare().
    769  */
    770 static void
    771 check_compare_ok(const compare_ok_t *compare_ok, dns_rdataclass_t rdclass,
    772 		 dns_rdatatype_t type) {
    773 	size_t i;
    774 	/*
    775 	 * Check all entries in the supplied array.
    776 	 */
    777 	for (i = 0; compare_ok[i].text1 != NULL; i++) {
    778 		check_compare_ok_single(&compare_ok[i], rdclass, type);
    779 	}
    780 }
    781 
    782 /*
    783  * Test whether supplied sets of text form and/or wire form RDATA are handled
    784  * as expected.
    785  *
    786  * The empty_ok argument denotes whether an attempt to parse a zero-length wire
    787  * data buffer should succeed or not (it is valid for some RR types).  There is
    788  * no point in performing a similar check for empty text form RDATA, because
    789  * dns_rdata_fromtext() returns ISC_R_UNEXPECTEDEND before calling fromtext_*()
    790  * for the given RR class and type.
    791  */
    792 static void
    793 check_rdata(const text_ok_t *text_ok, const wire_ok_t *wire_ok,
    794 	    const compare_ok_t *compare_ok, bool empty_ok,
    795 	    dns_rdataclass_t rdclass, dns_rdatatype_t type, size_t structsize) {
    796 	if (text_ok != NULL) {
    797 		check_text_ok(text_ok, rdclass, type, structsize);
    798 	}
    799 	if (wire_ok != NULL) {
    800 		check_wire_ok(wire_ok, empty_ok, rdclass, type, structsize);
    801 	}
    802 	if (compare_ok != NULL) {
    803 		check_compare_ok(compare_ok, rdclass, type);
    804 	}
    805 }
    806 
    807 /*
    808  * Check presentation vs unknown format of the record.
    809  */
    810 static void
    811 check_textvsunknown_single(const textvsunknown_t *textvsunknown,
    812 			   dns_rdataclass_t rdclass, dns_rdatatype_t type) {
    813 	dns_rdata_t rdata1 = DNS_RDATA_INIT, rdata2 = DNS_RDATA_INIT;
    814 	unsigned char buf1[1024], buf2[1024];
    815 	isc_result_t result;
    816 
    817 	result = dns_test_rdatafromstring(&rdata1, rdclass, type, buf1,
    818 					  sizeof(buf1), textvsunknown->text1,
    819 					  false);
    820 	if (debug && result != ISC_R_SUCCESS) {
    821 		fprintf(stdout, "# '%s'\n", textvsunknown->text1);
    822 		fprintf(stdout, "# result=%s\n", isc_result_totext(result));
    823 	}
    824 	assert_int_equal(result, ISC_R_SUCCESS);
    825 	result = dns_test_rdatafromstring(&rdata2, rdclass, type, buf2,
    826 					  sizeof(buf2), textvsunknown->text2,
    827 					  false);
    828 	if (debug && result != ISC_R_SUCCESS) {
    829 		fprintf(stdout, "# '%s'\n", textvsunknown->text2);
    830 		fprintf(stdout, "# result=%s\n", isc_result_totext(result));
    831 	}
    832 	assert_int_equal(result, ISC_R_SUCCESS);
    833 	if (debug && rdata1.length != rdata2.length) {
    834 		fprintf(stdout, "# '%s'\n", textvsunknown->text1);
    835 		fprintf(stdout, "# rdata1.length (%u) != rdata2.length (%u)\n",
    836 			rdata1.length, rdata2.length);
    837 	}
    838 	assert_int_equal(rdata1.length, rdata2.length);
    839 	if (debug && memcmp(rdata1.data, rdata2.data, rdata1.length) != 0) {
    840 		unsigned int i;
    841 		fprintf(stdout, "# '%s'\n", textvsunknown->text1);
    842 		for (i = 0; i < rdata1.length; i++) {
    843 			if (rdata1.data[i] != rdata2.data[i]) {
    844 				fprintf(stderr, "# %u: %02x != %02x\n", i,
    845 					rdata1.data[i], rdata2.data[i]);
    846 			}
    847 		}
    848 	}
    849 	assert_memory_equal(rdata1.data, rdata2.data, rdata1.length);
    850 }
    851 
    852 static void
    853 check_textvsunknown(const textvsunknown_t *textvsunknown,
    854 		    dns_rdataclass_t rdclass, dns_rdatatype_t type) {
    855 	size_t i;
    856 
    857 	/*
    858 	 * Check all entries in the supplied array.
    859 	 */
    860 	for (i = 0; textvsunknown[i].text1 != NULL; i++) {
    861 		check_textvsunknown_single(&textvsunknown[i], rdclass, type);
    862 	}
    863 }
    864 
    865 /*
    866  * Common tests for RR types based on KEY that require key data:
    867  *
    868  *   - CDNSKEY (RFC 7344)
    869  *   - DNSKEY (RFC 4034)
    870  *   - RKEY (draft-reid-dnsext-rkey-00)
    871  */
    872 static void
    873 key_required(void **state, dns_rdatatype_t type, size_t size) {
    874 	wire_ok_t wire_ok[] = { /*
    875 				 * RDATA must be at least 5 octets in size:
    876 				 *
    877 				 *   - 2 octets for Flags,
    878 				 *   - 1 octet for Protocol,
    879 				 *   - 1 octet for Algorithm,
    880 				 *   - Public Key must not be empty.
    881 				 *
    882 				 * RFC 2535 section 3.1.2 allows the Public Key
    883 				 * to be empty if bits 0-1 of Flags are both
    884 				 * set, but that only applies to KEY records:
    885 				 * for the RR types tested here, the Public Key
    886 				 * must not be empty.
    887 				 */
    888 				WIRE_INVALID(0x00),
    889 				WIRE_INVALID(0x00, 0x00),
    890 				WIRE_INVALID(0x00, 0x00, 0x00),
    891 				WIRE_INVALID(0xc0, 0x00, 0x00, 0x00),
    892 				WIRE_INVALID(0x00, 0x00, 0x00, 0x00),
    893 				WIRE_VALID(0x00, 0x00, 0x00, 0x00, 0x00),
    894 				WIRE_SENTINEL()
    895 	};
    896 
    897 	UNUSED(state);
    898 
    899 	check_rdata(NULL, wire_ok, NULL, false, dns_rdataclass_in, type, size);
    900 }
    901 
    902 /* APL RDATA manipulations */
    903 ISC_RUN_TEST_IMPL(apl) {
    904 	text_ok_t text_ok[] = {
    905 		/* empty list */
    906 		TEXT_VALID(""),
    907 		/* min,max prefix IPv4 */
    908 		TEXT_VALID("1:0.0.0.0/0"), TEXT_VALID("1:127.0.0.1/32"),
    909 		/* min,max prefix IPv6 */
    910 		TEXT_VALID("2:::/0"), TEXT_VALID("2:::1/128"),
    911 		/* negated */
    912 		TEXT_VALID("!1:0.0.0.0/0"), TEXT_VALID("!1:127.0.0.1/32"),
    913 		TEXT_VALID("!2:::/0"), TEXT_VALID("!2:::1/128"),
    914 		/* bits set after prefix length - not disallowed */
    915 		TEXT_VALID("1:127.0.0.0/0"), TEXT_VALID("2:8000::/0"),
    916 		/* multiple */
    917 		TEXT_VALID("1:0.0.0.0/0 1:127.0.0.1/32"),
    918 		TEXT_VALID("1:0.0.0.0/0 !1:127.0.0.1/32"),
    919 		/* family 0, prefix 0, positive */
    920 		TEXT_VALID("\\# 4 00000000"),
    921 		/* family 0, prefix 0, negative */
    922 		TEXT_VALID("\\# 4 00000080"),
    923 		/* prefix too long */
    924 		TEXT_INVALID("1:0.0.0.0/33"), TEXT_INVALID("2:::/129"),
    925 		/*
    926 		 * Sentinel.
    927 		 */
    928 		TEXT_SENTINEL()
    929 	};
    930 	wire_ok_t wire_ok[] = { /* zero length */
    931 				WIRE_VALID(),
    932 				/* prefix too big IPv4 */
    933 				WIRE_INVALID(0x00, 0x01, 33U, 0x00),
    934 				/* prefix too big IPv6 */
    935 				WIRE_INVALID(0x00, 0x02, 129U, 0x00),
    936 				/* trailing zero octet in afdpart */
    937 				WIRE_INVALID(0x00, 0x00, 0x00, 0x01, 0x00),
    938 				/*
    939 				 * Sentinel.
    940 				 */
    941 				WIRE_SENTINEL()
    942 	};
    943 
    944 	check_rdata(text_ok, wire_ok, NULL, true, dns_rdataclass_in,
    945 		    dns_rdatatype_apl, sizeof(dns_rdata_in_apl_t));
    946 }
    947 
    948 /*
    949  * http://broadband-forum.org/ftp/pub/approved-specs/af-saa-0069.000.pdf
    950  *
    951  * ATMA RRs have the following RDATA format:
    952  *
    953  *                                           1  1  1  1  1  1
    954  *             0  1  2  3  4  5  6  7  8  9  0  1  2  3  4  5
    955  *          +--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+
    956  *          |          FORMAT       |                       |
    957  *          +--+--+--+--+--+--+--+--+                       |
    958  *          /                    ADDRESS                    /
    959  *          |                                               |
    960  *          +--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+
    961  *
    962  * The fields have the following meaning:
    963  *
    964  * * FORMAT: One octet that indicates the format of ADDRESS. The two
    965  *   possible values for FORMAT are value 0 indicating ATM End System Address
    966  *   (AESA) format and value 1 indicating E.164 format.
    967  *
    968  * * ADDRESS: Variable length string of octets containing the ATM address of
    969  *   the node to which this RR pertains.
    970  *
    971  * When the format value is 0, indicating that the address is in AESA format,
    972  * the address is coded as described in ISO 8348/AD 2 using the preferred
    973  * binary encoding of the ISO NSAP format. When the format value is 1,
    974  * indicating that the address is in E.164 format, the Address/Number Digits
    975  * appear in the order in which they would be entered on a numeric keypad.
    976  * Digits are coded in IA5 characters with the leftmost bit of each digit set
    977  * to 0.  This ATM address appears in ATM End System Address Octets field (AESA
    978  * format) or the Address/Number Digits field (E.164 format) of the Called
    979  * party number information element [ATMUNI3.1]. Subaddress information is
    980  * intentionally not included because E.164 subaddress information is used for
    981  * routing.
    982  *
    983  * ATMA RRs cause no additional section processing.
    984  */
    985 ISC_RUN_TEST_IMPL(atma) {
    986 	text_ok_t text_ok[] = { TEXT_VALID("00"),
    987 				TEXT_VALID_CHANGED("0.0", "00"),
    988 				/*
    989 				 * multiple consecutive periods
    990 				 */
    991 				TEXT_INVALID("0..0"),
    992 				/*
    993 				 * trailing period
    994 				 */
    995 				TEXT_INVALID("00."),
    996 				/*
    997 				 * leading period
    998 				 */
    999 				TEXT_INVALID(".00"),
   1000 				/*
   1001 				 * Not full octets.
   1002 				 */
   1003 				TEXT_INVALID("000"),
   1004 				/*
   1005 				 * E.164
   1006 				 */
   1007 				TEXT_VALID("+61200000000"),
   1008 				/*
   1009 				 * E.164 with periods
   1010 				 */
   1011 				TEXT_VALID_CHANGED("+61.2.0000.0000", "+6120000"
   1012 								      "0000"),
   1013 				/*
   1014 				 * E.164 with period at end
   1015 				 */
   1016 				TEXT_INVALID("+61200000000."),
   1017 				/*
   1018 				 * E.164 with multiple consecutive periods
   1019 				 */
   1020 				TEXT_INVALID("+612..00000000"),
   1021 				/*
   1022 				 * E.164 with period before the leading digit.
   1023 				 */
   1024 				TEXT_INVALID("+.61200000000"),
   1025 				/*
   1026 				 * Sentinel.
   1027 				 */
   1028 				TEXT_SENTINEL() };
   1029 	wire_ok_t wire_ok[] = {
   1030 		/*
   1031 		 * Too short.
   1032 		 */
   1033 		WIRE_INVALID(0x00), WIRE_INVALID(0x01),
   1034 		/*
   1035 		 * all digits
   1036 		 */
   1037 		WIRE_VALID(0x01, '6', '1', '2', '0', '0', '0'),
   1038 		/*
   1039 		 * non digit
   1040 		 */
   1041 		WIRE_INVALID(0x01, '+', '6', '1', '2', '0', '0', '0'),
   1042 		/*
   1043 		 * Sentinel.
   1044 		 */
   1045 		WIRE_SENTINEL()
   1046 	};
   1047 
   1048 	check_rdata(text_ok, wire_ok, NULL, false, dns_rdataclass_in,
   1049 		    dns_rdatatype_atma, sizeof(dns_rdata_in_atma_t));
   1050 }
   1051 
   1052 /* AMTRELAY RDATA manipulations */
   1053 ISC_RUN_TEST_IMPL(amtrelay) {
   1054 	text_ok_t text_ok[] = {
   1055 		TEXT_INVALID(""), TEXT_INVALID("0"), TEXT_INVALID("0 0"),
   1056 		/* gateway type 0 */
   1057 		TEXT_VALID("0 0 0"), TEXT_VALID("0 1 0"),
   1058 		TEXT_INVALID("0 2 0"),	 /* discovery out of range */
   1059 		TEXT_VALID("255 1 0"),	 /* max precedence */
   1060 		TEXT_INVALID("256 1 0"), /* precedence out of range */
   1061 
   1062 		/* IPv4 gateway */
   1063 		TEXT_INVALID("0 0 1"), /* no address */
   1064 		TEXT_VALID("0 0 1 0.0.0.0"),
   1065 		TEXT_INVALID("0 0 1 0.0.0.0 x"), /* extra */
   1066 		TEXT_INVALID("0 0 1 0.0.0.0.0"), /* bad address */
   1067 		TEXT_INVALID("0 0 1 ::"),	 /* bad address */
   1068 		TEXT_INVALID("0 0 1 ."),	 /* bad address */
   1069 
   1070 		/* IPv6 gateway */
   1071 		TEXT_INVALID("0 0 2"), /* no address */
   1072 		TEXT_VALID("0 0 2 ::"), TEXT_INVALID("0 0 2 :: xx"), /* extra */
   1073 		TEXT_INVALID("0 0 2 0.0.0.0"), /* bad address */
   1074 		TEXT_INVALID("0 0 2 ."),       /* bad address */
   1075 
   1076 		/* hostname gateway */
   1077 		TEXT_INVALID("0 0 3"), /* no name */
   1078 		/* IPv4 is a valid name */
   1079 		TEXT_VALID_CHANGED("0 0 3 0.0.0.0", "0 0 3 0.0.0.0."),
   1080 		/* IPv6 is a valid name */
   1081 		TEXT_VALID_CHANGED("0 0 3 ::", "0 0 3 ::."),
   1082 		TEXT_VALID_CHANGED("0 0 3 example", "0 0 3 example."),
   1083 		TEXT_VALID("0 0 3 example."),
   1084 		TEXT_INVALID("0 0 3 example. x"), /* extra */
   1085 
   1086 		/* unknown gateway */
   1087 		TEXT_VALID("\\# 2 0004"), TEXT_VALID("\\# 2 0084"),
   1088 		TEXT_VALID("\\# 2 007F"), TEXT_VALID("\\# 3 000400"),
   1089 		TEXT_VALID("\\# 3 008400"), TEXT_VALID("\\# 3 00FF00"),
   1090 
   1091 		/*
   1092 		 * Sentinel.
   1093 		 */
   1094 		TEXT_SENTINEL()
   1095 	};
   1096 	wire_ok_t wire_ok[] = {
   1097 		WIRE_INVALID(0x00), WIRE_VALID(0x00, 0x00),
   1098 		WIRE_VALID(0x00, 0x80), WIRE_INVALID(0x00, 0x00, 0x00),
   1099 		WIRE_INVALID(0x00, 0x80, 0x00),
   1100 
   1101 		WIRE_INVALID(0x00, 0x01), WIRE_INVALID(0x00, 0x01, 0x00),
   1102 		WIRE_INVALID(0x00, 0x01, 0x00, 0x00),
   1103 		WIRE_INVALID(0x00, 0x01, 0x00, 0x00, 0x00),
   1104 		WIRE_VALID(0x00, 0x01, 0x00, 0x00, 0x00, 0x00),
   1105 		WIRE_INVALID(0x00, 0x01, 0x00, 0x00, 0x00, 0x00, 0x00),
   1106 
   1107 		WIRE_INVALID(0x00, 0x02), WIRE_INVALID(0x00, 0x02, 0x00),
   1108 		WIRE_VALID(0x00, 0x02, 0x00, 0x01, 0x02, 0x03, 0x04, 0x05, 0x06,
   1109 			   0x07, 0x08, 0x09, 0x10, 0x11, 0x12, 0x13, 0x14,
   1110 			   0x15),
   1111 		WIRE_INVALID(0x00, 0x02, 0x00, 0x01, 0x02, 0x03, 0x04, 0x05,
   1112 			     0x06, 0x07, 0x08, 0x09, 0x10, 0x11, 0x12, 0x13,
   1113 			     0x14, 0x15, 0x16),
   1114 
   1115 		WIRE_INVALID(0x00, 0x03), WIRE_VALID(0x00, 0x03, 0x00),
   1116 		WIRE_INVALID(0x00, 0x03, 0x00, 0x00), /* extra */
   1117 
   1118 		WIRE_VALID(0x00, 0x04), WIRE_VALID(0x00, 0x04, 0x00),
   1119 		/*
   1120 		 * Sentinel.
   1121 		 */
   1122 		WIRE_SENTINEL()
   1123 	};
   1124 
   1125 	check_rdata(text_ok, wire_ok, NULL, false, dns_rdataclass_in,
   1126 		    dns_rdatatype_amtrelay, sizeof(dns_rdata_amtrelay_t));
   1127 }
   1128 
   1129 ISC_RUN_TEST_IMPL(cdnskey) {
   1130 	key_required(state, dns_rdatatype_cdnskey, sizeof(dns_rdata_cdnskey_t));
   1131 }
   1132 
   1133 /*
   1134  * CSYNC tests.
   1135  *
   1136  * RFC 7477:
   1137  *
   1138  * 2.1.  The CSYNC Resource Record Format
   1139  *
   1140  * 2.1.1.  The CSYNC Resource Record Wire Format
   1141  *
   1142  *    The CSYNC RDATA consists of the following fields:
   1143  *
   1144  *                           1 1 1 1 1 1 1 1 1 1 2 2 2 2 2 2 2 2 2 2 3 3
   1145  *       0 1 2 3 4 5 6 7 8 9 0 1 2 3 4 5 6 7 8 9 0 1 2 3 4 5 6 7 8 9 0 1
   1146  *      +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
   1147  *      |                          SOA Serial                           |
   1148  *      +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
   1149  *      |       Flags                   |            Type Bit Map       /
   1150  *      +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
   1151  *      /                     Type Bit Map (continued)                  /
   1152  *      +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
   1153  *
   1154  * 2.1.1.1.  The SOA Serial Field
   1155  *
   1156  *    The SOA Serial field contains a copy of the 32-bit SOA serial number
   1157  *    from the child zone.  If the soaminimum flag is set, parental agents
   1158  *    querying children's authoritative servers MUST NOT act on data from
   1159  *    zones advertising an SOA serial number less than this value.  See
   1160  *    [RFC1982] for properly implementing "less than" logic.  If the
   1161  *    soaminimum flag is not set, parental agents MUST ignore the value in
   1162  *    the SOA Serial field.  Clients can set the field to any value if the
   1163  *    soaminimum flag is unset, such as the number zero.
   1164  *
   1165  * (...)
   1166  *
   1167  * 2.1.1.2.  The Flags Field
   1168  *
   1169  *    The Flags field contains 16 bits of boolean flags that define
   1170  *    operations that affect the processing of the CSYNC record.  The flags
   1171  *    defined in this document are as follows:
   1172  *
   1173  *       0x00 0x01: "immediate"
   1174  *
   1175  *       0x00 0x02: "soaminimum"
   1176  *
   1177  *    The definitions for how the flags are to be used can be found in
   1178  *    Section 3.
   1179  *
   1180  *    The remaining flags are reserved for use by future specifications.
   1181  *    Undefined flags MUST be set to 0 by CSYNC publishers.  Parental
   1182  *    agents MUST NOT process a CSYNC record if it contains a 1 value for a
   1183  *    flag that is unknown to or unsupported by the parental agent.
   1184  *
   1185  * 2.1.1.2.1.  The Type Bit Map Field
   1186  *
   1187  *    The Type Bit Map field indicates the record types to be processed by
   1188  *    the parental agent, according to the procedures in Section 3.  The
   1189  *    Type Bit Map field is encoded in the same way as the Type Bit Map
   1190  *    field of the NSEC record, described in [RFC4034], Section 4.1.2.  If
   1191  *    a bit has been set that a parental agent implementation does not
   1192  *    understand, the parental agent MUST NOT act upon the record.
   1193  *    Specifically, a parental agent must not simply copy the data, and it
   1194  *    must understand the semantics associated with a bit in the Type Bit
   1195  *    Map field that has been set to 1.
   1196  */
   1197 ISC_RUN_TEST_IMPL(csync) {
   1198 	text_ok_t text_ok[] = { TEXT_INVALID(""),
   1199 				TEXT_INVALID("0"),
   1200 				TEXT_VALID("0 0"),
   1201 				TEXT_VALID("0 0 A"),
   1202 				TEXT_VALID("0 0 NS"),
   1203 				TEXT_VALID("0 0 AAAA"),
   1204 				TEXT_VALID("0 0 A AAAA"),
   1205 				TEXT_VALID("0 0 A NS AAAA"),
   1206 				TEXT_INVALID("0 0 A NS AAAA BOGUS"),
   1207 				TEXT_SENTINEL() };
   1208 	wire_ok_t wire_ok[] = {
   1209 		/*
   1210 		 * Short.
   1211 		 */
   1212 		WIRE_INVALID(0x00),
   1213 		/*
   1214 		 * Short.
   1215 		 */
   1216 		WIRE_INVALID(0x00, 0x00),
   1217 		/*
   1218 		 * Short.
   1219 		 */
   1220 		WIRE_INVALID(0x00, 0x00, 0x00),
   1221 		/*
   1222 		 * Short.
   1223 		 */
   1224 		WIRE_INVALID(0x00, 0x00, 0x00, 0x00),
   1225 		/*
   1226 		 * Short.
   1227 		 */
   1228 		WIRE_INVALID(0x00, 0x00, 0x00, 0x00, 0x00),
   1229 		/*
   1230 		 * Serial + flags only.
   1231 		 */
   1232 		WIRE_VALID(0x00, 0x00, 0x00, 0x00, 0x00, 0x00),
   1233 		/*
   1234 		 * Bad type map.
   1235 		 */
   1236 		WIRE_INVALID(0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00),
   1237 		/*
   1238 		 * Bad type map.
   1239 		 */
   1240 		WIRE_INVALID(0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00),
   1241 		/*
   1242 		 * Good type map.
   1243 		 */
   1244 		WIRE_VALID(0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x01,
   1245 			   0x02),
   1246 		/*
   1247 		 * Sentinel.
   1248 		 */
   1249 		WIRE_SENTINEL()
   1250 	};
   1251 
   1252 	check_rdata(text_ok, wire_ok, NULL, false, dns_rdataclass_in,
   1253 		    dns_rdatatype_csync, sizeof(dns_rdata_csync_t));
   1254 }
   1255 
   1256 ISC_RUN_TEST_IMPL(dnskey) {
   1257 	key_required(state, dns_rdatatype_dnskey, sizeof(dns_rdata_dnskey_t));
   1258 }
   1259 
   1260 /*
   1261  * DOA tests.
   1262  *
   1263  * draft-durand-doa-over-dns-03:
   1264  *
   1265  * 3.2.  DOA RDATA Wire Format
   1266  *
   1267  *        +---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+
   1268  *     0: |                                                               |
   1269  *        |                        DOA-ENTERPRISE                         |
   1270  *        |                                                               |
   1271  *        +---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+
   1272  *     4: |                                                               |
   1273  *        |                           DOA-TYPE                            |
   1274  *        |                                                               |
   1275  *        +---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+
   1276  *     8: |         DOA-LOCATION          |         DOA-MEDIA-TYPE        /
   1277  *        +---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+
   1278  *    10: /                                                               /
   1279  *        /                  DOA-MEDIA-TYPE (continued)                   /
   1280  *        /                                                               /
   1281  *        +---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+
   1282  *        /                                                               /
   1283  *        /                           DOA-DATA                            /
   1284  *        /                                                               /
   1285  *        +---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+
   1286  *
   1287  *    DOA-ENTERPRISE: a 32-bit unsigned integer in network order.
   1288  *
   1289  *    DOA-TYPE: a 32-bit unsigned integer in network order.
   1290  *
   1291  *    DOA-LOCATION: an 8-bit unsigned integer.
   1292  *
   1293  *    DOA-MEDIA-TYPE: A <character-string> (see [RFC1035]).  The first
   1294  *    octet of the <character-string> contains the number of characters to
   1295  *    follow.
   1296  *
   1297  *    DOA-DATA: A variable length blob of binary data.  The length of the
   1298  *    DOA-DATA is not contained within the wire format of the RR and has to
   1299  *    be computed from the RDLENGTH of the entire RR once other fields have
   1300  *    been taken into account.
   1301  *
   1302  * 3.3.  DOA RDATA Presentation Format
   1303  *
   1304  *    The DOA-ENTERPRISE field is presented as an unsigned 32-bit decimal
   1305  *    integer with range 0 - 4,294,967,295.
   1306  *
   1307  *    The DOA-TYPE field is presented as an unsigned 32-bit decimal integer
   1308  *    with range 0 - 4,294,967,295.
   1309  *
   1310  *    The DOA-LOCATION field is presented as an unsigned 8-bit decimal
   1311  *    integer with range 0 - 255.
   1312  *
   1313  *    The DOA-MEDIA-TYPE field is presented as a single <character-string>.
   1314  *
   1315  *    The DOA-DATA is presented as Base64 encoded data [RFC4648] unless the
   1316  *    DOA-DATA is empty in which case it is presented as a single dash
   1317  *    character ("-", ASCII 45).  White space is permitted within Base64
   1318  *    data.
   1319  */
   1320 ISC_RUN_TEST_IMPL(doa) {
   1321 	text_ok_t text_ok[] = {
   1322 		/*
   1323 		 * Valid, non-empty DOA-DATA.
   1324 		 */
   1325 		TEXT_VALID("0 0 1 \"text/plain\" Zm9v"),
   1326 		/*
   1327 		 * Valid, non-empty DOA-DATA with whitespace in between.
   1328 		 */
   1329 		TEXT_VALID_CHANGED("0 0 1 \"text/plain\" Zm 9v", "0 0 1 "
   1330 								 "\"text/"
   1331 								 "plain\" "
   1332 								 "Zm9v"),
   1333 		/*
   1334 		 * Valid, unquoted DOA-MEDIA-TYPE, non-empty DOA-DATA.
   1335 		 */
   1336 		TEXT_VALID_CHANGED("0 0 1 text/plain Zm9v", "0 0 1 "
   1337 							    "\"text/plain\" "
   1338 							    "Zm9v"),
   1339 		/*
   1340 		 * Invalid, quoted non-empty DOA-DATA.
   1341 		 */
   1342 		TEXT_INVALID("0 0 1 \"text/plain\" \"Zm9v\""),
   1343 		/*
   1344 		 * Valid, empty DOA-DATA.
   1345 		 */
   1346 		TEXT_VALID("0 0 1 \"text/plain\" -"),
   1347 		/*
   1348 		 * Invalid, quoted empty DOA-DATA.
   1349 		 */
   1350 		TEXT_INVALID("0 0 1 \"text/plain\" \"-\""),
   1351 		/*
   1352 		 * Invalid, missing "-" in empty DOA-DATA.
   1353 		 */
   1354 		TEXT_INVALID("0 0 1 \"text/plain\""),
   1355 		/*
   1356 		 * Valid, undefined DOA-LOCATION.
   1357 		 */
   1358 		TEXT_VALID("0 0 100 \"text/plain\" Zm9v"),
   1359 		/*
   1360 		 * Invalid, DOA-LOCATION too big.
   1361 		 */
   1362 		TEXT_INVALID("0 0 256 \"text/plain\" ZM9v"),
   1363 		/*
   1364 		 * Valid, empty DOA-MEDIA-TYPE, non-empty DOA-DATA.
   1365 		 */
   1366 		TEXT_VALID("0 0 2 \"\" aHR0cHM6Ly93d3cuaXNjLm9yZy8="),
   1367 		/*
   1368 		 * Valid, empty DOA-MEDIA-TYPE, empty DOA-DATA.
   1369 		 */
   1370 		TEXT_VALID("0 0 1 \"\" -"),
   1371 		/*
   1372 		 * Valid, DOA-MEDIA-TYPE with a space.
   1373 		 */
   1374 		TEXT_VALID("0 0 1 \"plain text\" Zm9v"),
   1375 		/*
   1376 		 * Invalid, missing DOA-MEDIA-TYPE.
   1377 		 */
   1378 		TEXT_INVALID("1234567890 1234567890 1"),
   1379 		/*
   1380 		 * Valid, DOA-DATA over 255 octets.
   1381 		 */
   1382 		TEXT_VALID("1234567890 1234567890 1 \"image/gif\" "
   1383 			   "R0lGODlhKAAZAOMCAGZmZgBmmf///zOZzMz//5nM/zNmmWbM"
   1384 			   "/5nMzMzMzACZ/////////////////////yH5BAEKAA8ALAAA"
   1385 			   "AAAoABkAAATH8IFJK5U2a4337F5ogRkpnoCJrly7PrCKyh8c"
   1386 			   "3HgAhzT35MDbbtO7/IJIHbGiOiaTxVTpSVWWLqNq1UVyapNS"
   1387 			   "1wd3OAxug0LhnCubcVhsxysQnOt4ATpvvzHlFzl1AwODhWeF"
   1388 			   "AgRpen5/UhheAYMFdUB4SFcpGEGGdQeCAqBBLTuSk30EeXd9"
   1389 			   "pEsAbKGxjHqDSE0Sp6ixN4N1BJmbc7lIhmsBich1awPAjkY1"
   1390 			   "SZR8bJWrz382SGqIBQQFQd4IsUTaX+ceuudPEQA7"),
   1391 		/*
   1392 		 * Invalid, bad Base64 in DOA-DATA.
   1393 		 */
   1394 		TEXT_INVALID("1234567890 1234567890 1 \"image/gif\" R0lGODl"),
   1395 		/*
   1396 		 * Sentinel.
   1397 		 */
   1398 		TEXT_SENTINEL()
   1399 	};
   1400 	wire_ok_t wire_ok[] = {
   1401 		/*
   1402 		 * Valid, empty DOA-MEDIA-TYPE, empty DOA-DATA.
   1403 		 */
   1404 		WIRE_VALID(0x12, 0x34, 0x56, 0x78, 0x12, 0x34, 0x56, 0x78, 0x01,
   1405 			   0x00),
   1406 		/*
   1407 		 * Invalid, missing DOA-MEDIA-TYPE.
   1408 		 */
   1409 		WIRE_INVALID(0x12, 0x34, 0x56, 0x78, 0x12, 0x34, 0x56, 0x78,
   1410 			     0x01),
   1411 		/*
   1412 		 * Invalid, malformed DOA-MEDIA-TYPE length.
   1413 		 */
   1414 		WIRE_INVALID(0x12, 0x34, 0x56, 0x78, 0x12, 0x34, 0x56, 0x78,
   1415 			     0x01, 0xff),
   1416 		/*
   1417 		 * Valid, empty DOA-DATA.
   1418 		 */
   1419 		WIRE_VALID(0x12, 0x34, 0x56, 0x78, 0x12, 0x34, 0x56, 0x78, 0x01,
   1420 			   0x03, 0x66, 0x6f, 0x6f),
   1421 		/*
   1422 		 * Valid, non-empty DOA-DATA.
   1423 		 */
   1424 		WIRE_VALID(0x12, 0x34, 0x56, 0x78, 0x12, 0x34, 0x56, 0x78, 0x01,
   1425 			   0x03, 0x66, 0x6f, 0x6f, 0x62, 0x61, 0x72),
   1426 		/*
   1427 		 * Valid, DOA-DATA over 255 octets.
   1428 		 */
   1429 		WIRE_VALID(0x12, 0x34, 0x56, 0x78, 0x12, 0x34, 0x56, 0x78, 0x01,
   1430 			   0x06, 0x62, 0x69, 0x6e, 0x61, 0x72, 0x79, 0x00, 0x66,
   1431 			   0x99, 0xff, 0xff, 0xff, 0x33, 0x99, 0xcc, 0xcc, 0xff,
   1432 			   0xff, 0x99, 0xcc, 0xff, 0x33, 0x66, 0x99, 0x66, 0xcc,
   1433 			   0xff, 0x99, 0xcc, 0xcc, 0xcc, 0xcc, 0xcc, 0x00, 0x99,
   1434 			   0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff,
   1435 			   0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0x21, 0xf9,
   1436 			   0x04, 0x01, 0x0a, 0x00, 0x0f, 0x00, 0x2c, 0x00, 0x00,
   1437 			   0x00, 0x00, 0x28, 0x00, 0x19, 0x00, 0x00, 0x04, 0xc7,
   1438 			   0xf0, 0x81, 0x49, 0x2b, 0x95, 0x36, 0x6b, 0x8d, 0xf7,
   1439 			   0xec, 0x5e, 0x68, 0x81, 0x19, 0x29, 0x9e, 0x80, 0x89,
   1440 			   0xae, 0x5c, 0xbb, 0x3e, 0xb0, 0x8a, 0xca, 0x1f, 0x1c,
   1441 			   0xdc, 0x78, 0x00, 0x87, 0x34, 0xf7, 0xe4, 0xc0, 0xdb,
   1442 			   0x6e, 0xd3, 0xbb, 0xfc, 0x82, 0x48, 0x1d, 0xb1, 0xa2,
   1443 			   0x3a, 0x26, 0x93, 0xc5, 0x54, 0xe9, 0x49, 0x55, 0x96,
   1444 			   0x2e, 0xa3, 0x6a, 0xd5, 0x45, 0x72, 0x6a, 0x93, 0x52,
   1445 			   0xd7, 0x07, 0x77, 0x38, 0x0c, 0x6e, 0x83, 0x42, 0xe1,
   1446 			   0x9c, 0x2b, 0x9b, 0x71, 0x58, 0x6c, 0xc7, 0x2b, 0x10,
   1447 			   0x9c, 0xeb, 0x78, 0x01, 0x3a, 0x6f, 0xbf, 0x31, 0xe5,
   1448 			   0x17, 0x39, 0x75, 0x03, 0x03, 0x83, 0x85, 0x67, 0x85,
   1449 			   0x02, 0x04, 0x69, 0x7a, 0x7e, 0x7f, 0x52, 0x18, 0x5e,
   1450 			   0x01, 0x83, 0x05, 0x75, 0x40, 0x78, 0x48, 0x57, 0x29,
   1451 			   0x18, 0x41, 0x86, 0x75, 0x07, 0x82, 0x02, 0xa0, 0x41,
   1452 			   0x2d, 0x3b, 0x92, 0x93, 0x7d, 0x04, 0x79, 0x77, 0x7d,
   1453 			   0xa4, 0x4b, 0x00, 0x6c, 0xa1, 0xb1, 0x8c, 0x7a, 0x83,
   1454 			   0x48, 0x4d, 0x12, 0xa7, 0xa8, 0xb1, 0x37, 0x83, 0x75,
   1455 			   0x04, 0x99, 0x9b, 0x73, 0xb9, 0x48, 0x86, 0x6b, 0x01,
   1456 			   0x89, 0xc8, 0x75, 0x6b, 0x03, 0xc0, 0x8e, 0x46, 0x35,
   1457 			   0x49, 0x94, 0x7c, 0x6c, 0x95, 0xab, 0xcf, 0x7f, 0x36,
   1458 			   0x48, 0x6a, 0x88, 0x05, 0x04, 0x05, 0x41, 0xde, 0x08,
   1459 			   0xb1, 0x44, 0xda, 0x5f, 0xe7, 0x1e, 0xba, 0xe7, 0x4f,
   1460 			   0x11, 0x00, 0x3b),
   1461 		/*
   1462 		 * Sentinel.
   1463 		 */
   1464 		WIRE_SENTINEL()
   1465 	};
   1466 
   1467 	check_rdata(text_ok, wire_ok, NULL, false, dns_rdataclass_in,
   1468 		    dns_rdatatype_doa, sizeof(dns_rdata_doa_t));
   1469 }
   1470 
   1471 /*
   1472  * DS tests.
   1473  *
   1474  * RFC 4034:
   1475  *
   1476  * 5.1.  DS RDATA Wire Format
   1477  *
   1478  *    The RDATA for a DS RR consists of a 2 octet Key Tag field, a 1 octet
   1479  *    Algorithm field, a 1 octet Digest Type field, and a Digest field.
   1480  *
   1481  *                         1 1 1 1 1 1 1 1 1 1 2 2 2 2 2 2 2 2 2 2 3 3
   1482  *     0 1 2 3 4 5 6 7 8 9 0 1 2 3 4 5 6 7 8 9 0 1 2 3 4 5 6 7 8 9 0 1
   1483  *    +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
   1484  *    |           Key Tag             |  Algorithm    |  Digest Type  |
   1485  *    +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
   1486  *    /                                                               /
   1487  *    /                            Digest                             /
   1488  *    /                                                               /
   1489  *    +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
   1490  *
   1491  * 5.1.1.  The Key Tag Field
   1492  *
   1493  *    The Key Tag field lists the key tag of the DNSKEY RR referred to by
   1494  *    the DS record, in network byte order.
   1495  *
   1496  *    The Key Tag used by the DS RR is identical to the Key Tag used by
   1497  *    RRSIG RRs.  Appendix B describes how to compute a Key Tag.
   1498  *
   1499  * 5.1.2.  The Algorithm Field
   1500  *
   1501  *    The Algorithm field lists the algorithm number of the DNSKEY RR
   1502  *    referred to by the DS record.
   1503  *
   1504  *    The algorithm number used by the DS RR is identical to the algorithm
   1505  *    number used by RRSIG and DNSKEY RRs.  Appendix A.1 lists the
   1506  *    algorithm number types.
   1507  *
   1508  * 5.1.3.  The Digest Type Field
   1509  *
   1510  *    The DS RR refers to a DNSKEY RR by including a digest of that DNSKEY
   1511  *    RR.  The Digest Type field identifies the algorithm used to construct
   1512  *    the digest.  Appendix A.2 lists the possible digest algorithm types.
   1513  *
   1514  * 5.1.4.  The Digest Field
   1515  *
   1516  *    The DS record refers to a DNSKEY RR by including a digest of that
   1517  *    DNSKEY RR.
   1518  *
   1519  *    The digest is calculated by concatenating the canonical form of the
   1520  *    fully qualified owner name of the DNSKEY RR with the DNSKEY RDATA,
   1521  *    and then applying the digest algorithm.
   1522  *
   1523  *      digest = digest_algorithm( DNSKEY owner name | DNSKEY RDATA);
   1524  *
   1525  *       "|" denotes concatenation
   1526  *
   1527  *      DNSKEY RDATA = Flags | Protocol | Algorithm | Public Key.
   1528  *
   1529  *    The size of the digest may vary depending on the digest algorithm and
   1530  *    DNSKEY RR size.  As of the time of this writing, the only defined
   1531  *    digest algorithm is SHA-1, which produces a 20 octet digest.
   1532  */
   1533 ISC_RUN_TEST_IMPL(ds) {
   1534 	text_ok_t text_ok[] = {
   1535 		/*
   1536 		 * Invalid, empty record.
   1537 		 */
   1538 		TEXT_INVALID(""),
   1539 		/*
   1540 		 * Invalid, no algorithm.
   1541 		 */
   1542 		TEXT_INVALID("0"),
   1543 		/*
   1544 		 * Invalid, no digest type.
   1545 		 */
   1546 		TEXT_INVALID("0 0"),
   1547 		/*
   1548 		 * Invalid, no digest.
   1549 		 */
   1550 		TEXT_INVALID("0 0 0"),
   1551 		/*
   1552 		 * Valid, 1-octet digest for a reserved digest type.
   1553 		 */
   1554 		TEXT_VALID("0 0 0 00"),
   1555 		/*
   1556 		 * Invalid, short SHA-1 digest.
   1557 		 */
   1558 		TEXT_INVALID("0 0 1 00"),
   1559 		TEXT_INVALID("0 0 1 4FDCE83016EDD29077621FE568F8DADDB5809B"),
   1560 		/*
   1561 		 * Valid, 20-octet SHA-1 digest.
   1562 		 */
   1563 		TEXT_VALID("0 0 1 4FDCE83016EDD29077621FE568F8DADDB5809B6A"),
   1564 		/*
   1565 		 * Invalid, excessively long SHA-1 digest.
   1566 		 */
   1567 		TEXT_INVALID("0 0 1 4FDCE83016EDD29077621FE568F8DADDB5809B"
   1568 			     "6A00"),
   1569 		/*
   1570 		 * Invalid, short SHA-256 digest.
   1571 		 */
   1572 		TEXT_INVALID("0 0 2 00"),
   1573 		TEXT_INVALID("0 0 2 D001BD422FFDA9B745425B71DC17D007E69186"
   1574 			     "9BD59C5F237D9BF85434C313"),
   1575 		/*
   1576 		 * Valid, 32-octet SHA-256 digest.
   1577 		 */
   1578 		TEXT_VALID_CHANGED("0 0 2 "
   1579 				   "D001BD422FFDA9B745425B71DC17D007E691869B"
   1580 				   "D59C5F237D9BF85434C3133F",
   1581 				   "0 0 2 "
   1582 				   "D001BD422FFDA9B745425B71DC17D007E691869B"
   1583 				   "D59C5F237D9BF854 34C3133F"),
   1584 		/*
   1585 		 * Invalid, excessively long SHA-256 digest.
   1586 		 */
   1587 		TEXT_INVALID("0 0 2 D001BD422FFDA9B745425B71DC17D007E69186"
   1588 			     "9BD59C5F237D9BF85434C3133F00"),
   1589 		/*
   1590 		 * Valid, GOST is no longer supported, hence no length checks.
   1591 		 */
   1592 		TEXT_VALID("0 0 3 00"),
   1593 		/*
   1594 		 * Invalid, short SHA-384 digest.
   1595 		 */
   1596 		TEXT_INVALID("0 0 4 00"),
   1597 		TEXT_INVALID("0 0 4 AC748D6C5AA652904A8763D64B7DFFFFA98152"
   1598 			     "BE12128D238BEBB4814B648F5A841E15CAA2DE348891"
   1599 			     "A37A699F65E5"),
   1600 		/*
   1601 		 * Valid, 48-octet SHA-384 digest.
   1602 		 */
   1603 		TEXT_VALID_CHANGED("0 0 4 "
   1604 				   "AC748D6C5AA652904A8763D64B7DFFFFA98152BE"
   1605 				   "12128D238BEBB4814B648F5A841E15CAA2DE348891A"
   1606 				   "37A"
   1607 				   "699F65E54D",
   1608 				   "0 0 4 "
   1609 				   "AC748D6C5AA652904A8763D64B7DFFFFA98152BE"
   1610 				   "12128D238BEBB481 "
   1611 				   "4B648F5A841E15CAA2DE348891A37A"
   1612 				   "699F65E54D"),
   1613 		/*
   1614 		 * Invalid, excessively long SHA-384 digest.
   1615 		 */
   1616 		TEXT_INVALID("0 0 4 AC748D6C5AA652904A8763D64B7DFFFFA98152"
   1617 			     "BE12128D238BEBB4814B648F5A841E15CAA2DE348891"
   1618 			     "A37A699F65E54D00"),
   1619 		/*
   1620 		 * Valid, 1-octet digest for an unassigned digest type.
   1621 		 */
   1622 		TEXT_VALID("0 0 5 00"),
   1623 		/*
   1624 		 * Sentinel.
   1625 		 */
   1626 		TEXT_SENTINEL()
   1627 	};
   1628 	wire_ok_t wire_ok[] = {
   1629 		/*
   1630 		 * Invalid, truncated key tag.
   1631 		 */
   1632 		WIRE_INVALID(0x00),
   1633 		/*
   1634 		 * Invalid, no algorithm.
   1635 		 */
   1636 		WIRE_INVALID(0x00, 0x00),
   1637 		/*
   1638 		 * Invalid, no digest type.
   1639 		 */
   1640 		WIRE_INVALID(0x00, 0x00, 0x00),
   1641 		/*
   1642 		 * Invalid, no digest.
   1643 		 */
   1644 		WIRE_INVALID(0x00, 0x00, 0x00, 0x00),
   1645 		/*
   1646 		 * Valid, 1-octet digest for a reserved digest type.
   1647 		 */
   1648 		WIRE_VALID(0x00, 0x00, 0x00, 0x00, 0x00),
   1649 		/*
   1650 		 * Invalid, short SHA-1 digest.
   1651 		 */
   1652 		WIRE_INVALID(0x00, 0x00, 0x00, 0x01, 0x00),
   1653 		WIRE_INVALID(0x00, 0x00, 0x00, 0x01, 0x4F, 0xDC, 0xE8, 0x30,
   1654 			     0x16, 0xED, 0xD2, 0x90, 0x77, 0x62, 0x1F, 0xE5,
   1655 			     0x68, 0xF8, 0xDA, 0xDD, 0xB5, 0x80, 0x9B),
   1656 		/*
   1657 		 * Valid, 20-octet SHA-1 digest.
   1658 		 */
   1659 		WIRE_VALID(0x00, 0x00, 0x00, 0x01, 0x4F, 0xDC, 0xE8, 0x30, 0x16,
   1660 			   0xED, 0xD2, 0x90, 0x77, 0x62, 0x1F, 0xE5, 0x68, 0xF8,
   1661 			   0xDA, 0xDD, 0xB5, 0x80, 0x9B, 0x6A),
   1662 		/*
   1663 		 * Invalid, excessively long SHA-1 digest.
   1664 		 */
   1665 		WIRE_INVALID(0x00, 0x00, 0x00, 0x01, 0x4F, 0xDC, 0xE8, 0x30,
   1666 			     0x16, 0xED, 0xD2, 0x90, 0x77, 0x62, 0x1F, 0xE5,
   1667 			     0x68, 0xF8, 0xDA, 0xDD, 0xB5, 0x80, 0x9B, 0x6A,
   1668 			     0x00),
   1669 		/*
   1670 		 * Invalid, short SHA-256 digest.
   1671 		 */
   1672 		WIRE_INVALID(0x00, 0x00, 0x00, 0x02, 0x00),
   1673 		WIRE_INVALID(0x00, 0x00, 0x00, 0x02, 0xD0, 0x01, 0xBD, 0x42,
   1674 			     0x2F, 0xFD, 0xA9, 0xB7, 0x45, 0x42, 0x5B, 0x71,
   1675 			     0xDC, 0x17, 0xD0, 0x07, 0xE6, 0x91, 0x86, 0x9B,
   1676 			     0xD5, 0x9C, 0x5F, 0x23, 0x7D, 0x9B, 0xF8, 0x54,
   1677 			     0x34, 0xC3, 0x13),
   1678 		/*
   1679 		 * Valid, 32-octet SHA-256 digest.
   1680 		 */
   1681 		WIRE_VALID(0x00, 0x00, 0x00, 0x02, 0xD0, 0x01, 0xBD, 0x42, 0x2F,
   1682 			   0xFD, 0xA9, 0xB7, 0x45, 0x42, 0x5B, 0x71, 0xDC, 0x17,
   1683 			   0xD0, 0x07, 0xE6, 0x91, 0x86, 0x9B, 0xD5, 0x9C, 0x5F,
   1684 			   0x23, 0x7D, 0x9B, 0xF8, 0x54, 0x34, 0xC3, 0x13,
   1685 			   0x3F),
   1686 		/*
   1687 		 * Invalid, excessively long SHA-256 digest.
   1688 		 */
   1689 		WIRE_INVALID(0x00, 0x00, 0x00, 0x02, 0xD0, 0x01, 0xBD, 0x42,
   1690 			     0x2F, 0xFD, 0xA9, 0xB7, 0x45, 0x42, 0x5B, 0x71,
   1691 			     0xDC, 0x17, 0xD0, 0x07, 0xE6, 0x91, 0x86, 0x9B,
   1692 			     0xD5, 0x9C, 0x5F, 0x23, 0x7D, 0x9B, 0xF8, 0x54,
   1693 			     0x34, 0xC3, 0x13, 0x3F, 0x00),
   1694 		/*
   1695 		 * Valid, GOST is no longer supported, hence no length checks.
   1696 		 */
   1697 		WIRE_VALID(0x00, 0x00, 0x00, 0x03, 0x00),
   1698 		/*
   1699 		 * Invalid, short SHA-384 digest.
   1700 		 */
   1701 		WIRE_INVALID(0x00, 0x00, 0x00, 0x04, 0x00),
   1702 		WIRE_INVALID(0x00, 0x00, 0x00, 0x04, 0xAC, 0x74, 0x8D, 0x6C,
   1703 			     0x5A, 0xA6, 0x52, 0x90, 0x4A, 0x87, 0x63, 0xD6,
   1704 			     0x4B, 0x7D, 0xFF, 0xFF, 0xA9, 0x81, 0x52, 0xBE,
   1705 			     0x12, 0x12, 0x8D, 0x23, 0x8B, 0xEB, 0xB4, 0x81,
   1706 			     0x4B, 0x64, 0x8F, 0x5A, 0x84, 0x1E, 0x15, 0xCA,
   1707 			     0xA2, 0xDE, 0x34, 0x88, 0x91, 0xA3, 0x7A, 0x69,
   1708 			     0x9F, 0x65, 0xE5),
   1709 		/*
   1710 		 * Valid, 48-octet SHA-384 digest.
   1711 		 */
   1712 		WIRE_VALID(0x00, 0x00, 0x00, 0x04, 0xAC, 0x74, 0x8D, 0x6C, 0x5A,
   1713 			   0xA6, 0x52, 0x90, 0x4A, 0x87, 0x63, 0xD6, 0x4B, 0x7D,
   1714 			   0xFF, 0xFF, 0xA9, 0x81, 0x52, 0xBE, 0x12, 0x12, 0x8D,
   1715 			   0x23, 0x8B, 0xEB, 0xB4, 0x81, 0x4B, 0x64, 0x8F, 0x5A,
   1716 			   0x84, 0x1E, 0x15, 0xCA, 0xA2, 0xDE, 0x34, 0x88, 0x91,
   1717 			   0xA3, 0x7A, 0x69, 0x9F, 0x65, 0xE5, 0x4D),
   1718 		/*
   1719 		 * Invalid, excessively long SHA-384 digest.
   1720 		 */
   1721 		WIRE_INVALID(0x00, 0x00, 0x00, 0x04, 0xAC, 0x74, 0x8D, 0x6C,
   1722 			     0x5A, 0xA6, 0x52, 0x90, 0x4A, 0x87, 0x63, 0xD6,
   1723 			     0x4B, 0x7D, 0xFF, 0xFF, 0xA9, 0x81, 0x52, 0xBE,
   1724 			     0x12, 0x12, 0x8D, 0x23, 0x8B, 0xEB, 0xB4, 0x81,
   1725 			     0x4B, 0x64, 0x8F, 0x5A, 0x84, 0x1E, 0x15, 0xCA,
   1726 			     0xA2, 0xDE, 0x34, 0x88, 0x91, 0xA3, 0x7A, 0x69,
   1727 			     0x9F, 0x65, 0xE5, 0x4D, 0x00),
   1728 		WIRE_VALID(0x00, 0x00, 0x04, 0x00, 0x00),
   1729 		/*
   1730 		 * Sentinel.
   1731 		 */
   1732 		WIRE_SENTINEL()
   1733 	};
   1734 
   1735 	check_rdata(text_ok, wire_ok, NULL, false, dns_rdataclass_in,
   1736 		    dns_rdatatype_ds, sizeof(dns_rdata_ds_t));
   1737 }
   1738 
   1739 /*
   1740  * EDNS Client Subnet tests.
   1741  *
   1742  * RFC 7871:
   1743  *
   1744  * 6.  Option Format
   1745  *
   1746  *    This protocol uses an EDNS0 [RFC6891] option to include client
   1747  *    address information in DNS messages.  The option is structured as
   1748  *    follows:
   1749  *
   1750  *                 +0 (MSB)                            +1 (LSB)
   1751  *       +---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+
   1752  *    0: |                          OPTION-CODE                          |
   1753  *       +---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+
   1754  *    2: |                         OPTION-LENGTH                         |
   1755  *       +---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+
   1756  *    4: |                            FAMILY                             |
   1757  *       +---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+
   1758  *    6: |     SOURCE PREFIX-LENGTH      |     SCOPE PREFIX-LENGTH       |
   1759  *       +---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+
   1760  *    8: |                           ADDRESS...                          /
   1761  *       +---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+
   1762  *
   1763  *    o  (Defined in [RFC6891]) OPTION-CODE, 2 octets, for ECS is 8 (0x00
   1764  *       0x08).
   1765  *
   1766  *    o  (Defined in [RFC6891]) OPTION-LENGTH, 2 octets, contains the
   1767  *       length of the payload (everything after OPTION-LENGTH) in octets.
   1768  *
   1769  *    o  FAMILY, 2 octets, indicates the family of the address contained in
   1770  *       the option, using address family codes as assigned by IANA in
   1771  *       Address Family Numbers [Address_Family_Numbers].
   1772  *
   1773  *    The format of the address part depends on the value of FAMILY.  This
   1774  *    document only defines the format for FAMILY 1 (IPv4) and FAMILY 2
   1775  *    (IPv6), which are as follows:
   1776  *
   1777  *    o  SOURCE PREFIX-LENGTH, an unsigned octet representing the leftmost
   1778  *       number of significant bits of ADDRESS to be used for the lookup.
   1779  *       In responses, it mirrors the same value as in the queries.
   1780  *
   1781  *    o  SCOPE PREFIX-LENGTH, an unsigned octet representing the leftmost
   1782  *       number of significant bits of ADDRESS that the response covers.
   1783  *       In queries, it MUST be set to 0.
   1784  *
   1785  *    o  ADDRESS, variable number of octets, contains either an IPv4 or
   1786  *       IPv6 address, depending on FAMILY, which MUST be truncated to the
   1787  *       number of bits indicated by the SOURCE PREFIX-LENGTH field,
   1788  *       padding with 0 bits to pad to the end of the last octet needed.
   1789  *
   1790  *    o  A server receiving an ECS option that uses either too few or too
   1791  *       many ADDRESS octets, or that has non-zero ADDRESS bits set beyond
   1792  *       SOURCE PREFIX-LENGTH, SHOULD return FORMERR to reject the packet,
   1793  *       as a signal to the software developer making the request to fix
   1794  *       their implementation.
   1795  *
   1796  *    All fields are in network byte order ("big-endian", per [RFC1700],
   1797  *    Data Notation).
   1798  */
   1799 ISC_RUN_TEST_IMPL(edns_client_subnet) {
   1800 	wire_ok_t wire_ok[] = {
   1801 		/*
   1802 		 * Option code with no content.
   1803 		 */
   1804 		WIRE_INVALID(0x00, 0x08, 0x00, 0x00),
   1805 		/*
   1806 		 * Option code family 0, source 0, scope 0.
   1807 		 */
   1808 		WIRE_VALID(0x00, 0x08, 0x00, 0x04, 0x00, 0x00, 0x00, 0x00),
   1809 		/*
   1810 		 * Option code family 1 (IPv4), source 0, scope 0.
   1811 		 */
   1812 		WIRE_VALID(0x00, 0x08, 0x00, 0x04, 0x00, 0x01, 0x00, 0x00),
   1813 		/*
   1814 		 * Option code family 2 (IPv6) , source 0, scope 0.
   1815 		 */
   1816 		WIRE_VALID(0x00, 0x08, 0x00, 0x04, 0x00, 0x02, 0x00, 0x00),
   1817 		/*
   1818 		 * Extra octet.
   1819 		 */
   1820 		WIRE_INVALID(0x00, 0x08, 0x00, 0x05, 0x00, 0x00, 0x00, 0x00,
   1821 			     0x00),
   1822 		/*
   1823 		 * Source too long for IPv4.
   1824 		 */
   1825 		WIRE_INVALID(0x00, 0x08, 0x00, 8, 0x00, 0x01, 33, 0x00, 0x00,
   1826 			     0x00, 0x00, 0x00),
   1827 		/*
   1828 		 * Source too long for IPv6.
   1829 		 */
   1830 		WIRE_INVALID(0x00, 0x08, 0x00, 20, 0x00, 0x02, 129, 0x00, 0x00,
   1831 			     0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
   1832 			     0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00),
   1833 		/*
   1834 		 * Scope too long for IPv4.
   1835 		 */
   1836 		WIRE_INVALID(0x00, 0x08, 0x00, 8, 0x00, 0x01, 0x00, 33, 0x00,
   1837 			     0x00, 0x00, 0x00),
   1838 		/*
   1839 		 * Scope too long for IPv6.
   1840 		 */
   1841 		WIRE_INVALID(0x00, 0x08, 0x00, 20, 0x00, 0x02, 0x00, 129, 0x00,
   1842 			     0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
   1843 			     0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00),
   1844 		/*
   1845 		 * When family=0, source and scope should be 0.
   1846 		 */
   1847 		WIRE_VALID(0x00, 0x08, 0x00, 4, 0x00, 0x00, 0x00, 0x00),
   1848 		/*
   1849 		 * When family=0, source and scope should be 0.
   1850 		 */
   1851 		WIRE_INVALID(0x00, 0x08, 0x00, 5, 0x00, 0x00, 0x01, 0x00, 0x00),
   1852 		/*
   1853 		 * When family=0, source and scope should be 0.
   1854 		 */
   1855 		WIRE_INVALID(0x00, 0x08, 0x00, 5, 0x00, 0x00, 0x00, 0x01, 0x00),
   1856 		/*
   1857 		 * Length too short for source IPv4.
   1858 		 */
   1859 		WIRE_INVALID(0x00, 0x08, 0x00, 7, 0x00, 0x01, 32, 0x00, 0x00,
   1860 			     0x00, 0x00),
   1861 		/*
   1862 		 * Length too short for source IPv6.
   1863 		 */
   1864 		WIRE_INVALID(0x00, 0x08, 0x00, 19, 0x00, 0x02, 128, 0x00, 0x00,
   1865 			     0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
   1866 			     0x00, 0x00, 0x00, 0x00, 0x00, 0x00),
   1867 		/*
   1868 		 * Sentinel.
   1869 		 */
   1870 		WIRE_SENTINEL()
   1871 	};
   1872 
   1873 	check_rdata(NULL, wire_ok, NULL, true, dns_rdataclass_in,
   1874 		    dns_rdatatype_opt, sizeof(dns_rdata_opt_t));
   1875 }
   1876 
   1877 /*
   1878  * http://ana-3.lcs.mit.edu/~jnc/nimrod/dns.txt
   1879  *
   1880  * The RDATA portion of both the NIMLOC and EID records contains
   1881  * uninterpreted binary data.  The representation in the text master file
   1882  * is an even number of hex characters (0 to 9, a to f), case is not
   1883  * significant.  For readability, whitespace may be included in the value
   1884  * field and should be ignored when reading a master file.
   1885  */
   1886 ISC_RUN_TEST_IMPL(eid) {
   1887 	text_ok_t text_ok[] = { TEXT_VALID("AABBCC"),
   1888 				TEXT_VALID_CHANGED("AA bb cc", "AABBCC"),
   1889 				TEXT_INVALID("aab"),
   1890 				/*
   1891 				 * Sentinel.
   1892 				 */
   1893 				TEXT_SENTINEL() };
   1894 	wire_ok_t wire_ok[] = { WIRE_VALID(0x00), WIRE_VALID(0xAA, 0xBB, 0xCC),
   1895 				/*
   1896 				 * Sentinel.
   1897 				 */
   1898 				WIRE_SENTINEL() };
   1899 
   1900 	check_rdata(text_ok, wire_ok, NULL, false, dns_rdataclass_in,
   1901 		    dns_rdatatype_eid, sizeof(dns_rdata_in_eid_t));
   1902 }
   1903 
   1904 /*
   1905  * test that an oversized HIP record will be rejected
   1906  */
   1907 ISC_RUN_TEST_IMPL(hip) {
   1908 	text_ok_t text_ok[] = {
   1909 		/* RFC 8005 examples. */
   1910 		TEXT_VALID_LOOP(0, "2 200100107B1A74DF365639CC39F1D578 "
   1911 				   "AwEAAbdxyhNuSutc5EMzxTs9LBPCIkOFH8cI"
   1912 				   "vM4p9+LrV4e19WzK00+CI6zBCQTdtWsuxKbW"
   1913 				   "Iy87UOoJTwkUs7lBu+Upr1gsNrut79ryra+b"
   1914 				   "SRGQb1slImA8YVJyuIDsj7kwzG7jnERNqnWx"
   1915 				   "Z48AWkskmdHaVDP4BcelrTI3rMXdXF5D"),
   1916 		TEXT_VALID_LOOP(1, "2 200100107B1A74DF365639CC39F1D578 "
   1917 				   "AwEAAbdxyhNuSutc5EMzxTs9LBPCIkOFH8cI"
   1918 				   "vM4p9+LrV4e19WzK00+CI6zBCQTdtWsuxKbW"
   1919 				   "Iy87UOoJTwkUs7lBu+Upr1gsNrut79ryra+b"
   1920 				   "SRGQb1slImA8YVJyuIDsj7kwzG7jnERNqnWx"
   1921 				   "Z48AWkskmdHaVDP4BcelrTI3rMXdXF5D "
   1922 				   "rvs1.example.com."),
   1923 		TEXT_VALID_LOOP(2, "2 200100107B1A74DF365639CC39F1D578 "
   1924 				   "AwEAAbdxyhNuSutc5EMzxTs9LBPCIkOFH8cI"
   1925 				   "vM4p9+LrV4e19WzK00+CI6zBCQTdtWsuxKbW"
   1926 				   "Iy87UOoJTwkUs7lBu+Upr1gsNrut79ryra+b"
   1927 				   "SRGQb1slImA8YVJyuIDsj7kwzG7jnERNqnWx"
   1928 				   "Z48AWkskmdHaVDP4BcelrTI3rMXdXF5D "
   1929 				   "rvs1.example.com. rvs2.example.com."),
   1930 		/*
   1931 		 * Sentinel.
   1932 		 */
   1933 		TEXT_SENTINEL()
   1934 	};
   1935 	unsigned char hipwire[DNS_RDATA_MAXLENGTH] = { 0x01, 0x00, 0x00, 0x01,
   1936 						       0x00, 0x00, 0x04, 0x41,
   1937 						       0x42, 0x43, 0x44, 0x00 };
   1938 	unsigned char buf[1024 * 1024];
   1939 	dns_rdata_t rdata = DNS_RDATA_INIT;
   1940 	isc_result_t result;
   1941 	size_t i;
   1942 
   1943 	/*
   1944 	 * Fill the rest of input buffer with compression pointers.
   1945 	 */
   1946 	for (i = 12; i < sizeof(hipwire) - 2; i += 2) {
   1947 		hipwire[i] = 0xc0;
   1948 		hipwire[i + 1] = 0x06;
   1949 	}
   1950 
   1951 	result = wire_to_rdata(hipwire, sizeof(hipwire), dns_rdataclass_in,
   1952 			       dns_rdatatype_hip, buf, sizeof(buf), &rdata);
   1953 	assert_int_equal(result, DNS_R_FORMERR);
   1954 	check_text_ok(text_ok, dns_rdataclass_in, dns_rdatatype_hip,
   1955 		      sizeof(dns_rdata_hip_t));
   1956 }
   1957 
   1958 /*
   1959  * ISDN tests.
   1960  *
   1961  * RFC 1183:
   1962  *
   1963  * 3.2. The ISDN RR
   1964  *
   1965  *    The ISDN RR is defined with mnemonic ISDN and type code 20 (decimal).
   1966  *
   1967  *    An ISDN (Integrated Service Digital Network) number is simply a
   1968  *    telephone number.  The intent of the members of the CCITT is to
   1969  *    upgrade all telephone and data network service to a common service.
   1970  *
   1971  *    The numbering plan (E.163/E.164) is the same as the familiar
   1972  *    international plan for POTS (an un-official acronym, meaning Plain
   1973  *    Old Telephone Service).  In E.166, CCITT says "An E.163/E.164
   1974  *    telephony subscriber may become an ISDN subscriber without a number
   1975  *    change."
   1976  *
   1977  *    ISDN has the following format:
   1978  *
   1979  *    <owner> <ttl> <class> ISDN <ISDN-address> <sa>
   1980  *
   1981  *    The <ISDN-address> field is required; <sa> is optional.
   1982  *
   1983  *    <ISDN-address> identifies the ISDN number of <owner> and DDI (Direct
   1984  *    Dial In) if any, as defined by E.164 [8] and E.163 [7], the ISDN and
   1985  *    PSTN (Public Switched Telephone Network) numbering plan.  E.163
   1986  *    defines the country codes, and E.164 the form of the addresses.  Its
   1987  *    format in master files is a <character-string> syntactically
   1988  *    identical to that used in TXT and HINFO.
   1989  *
   1990  *    <sa> specifies the subaddress (SA).  The format of <sa> in master
   1991  *    files is a <character-string> syntactically identical to that used in
   1992  *    TXT and HINFO.
   1993  *
   1994  *    The format of ISDN is class insensitive.  ISDN RRs cause no
   1995  *    additional section processing.
   1996  *
   1997  *    The <ISDN-address> is a string of characters, normally decimal
   1998  *    digits, beginning with the E.163 country code and ending with the DDI
   1999  *    if any.  Note that ISDN, in Q.931, permits any IA5 character in the
   2000  *    general case.
   2001  *
   2002  *    The <sa> is a string of hexadecimal digits.  For digits 0-9, the
   2003  *    concrete encoding in the Q.931 call setup information element is
   2004  *    identical to BCD.
   2005  *
   2006  *    For example:
   2007  *
   2008  *    Relay.Prime.COM.   IN   ISDN      150862028003217
   2009  *    sh.Prime.COM.      IN   ISDN      150862028003217 004
   2010  *
   2011  *    (Note: "1" is the country code for the North American Integrated
   2012  *    Numbering Area, i.e., the system of "area codes" familiar to people
   2013  *    in those countries.)
   2014  *
   2015  *    The RR data is the ASCII representation of the digits.  It is encoded
   2016  *    as one or two <character-string>s, i.e., count followed by
   2017  *    characters.
   2018  */
   2019 ISC_RUN_TEST_IMPL(isdn) {
   2020 	wire_ok_t wire_ok[] = { /*
   2021 				 * "".
   2022 				 */
   2023 				WIRE_VALID(0x00),
   2024 				/*
   2025 				 * "\001".
   2026 				 */
   2027 				WIRE_VALID(0x01, 0x01),
   2028 				/*
   2029 				 * "\001" "".
   2030 				 */
   2031 				WIRE_VALID(0x01, 0x01, 0x00),
   2032 				/*
   2033 				 * "\001" "\001".
   2034 				 */
   2035 				WIRE_VALID(0x01, 0x01, 0x01, 0x01),
   2036 				/*
   2037 				 * Sentinel.
   2038 				 */
   2039 				WIRE_SENTINEL()
   2040 	};
   2041 
   2042 	check_rdata(NULL, wire_ok, NULL, false, dns_rdataclass_in,
   2043 		    dns_rdatatype_isdn, sizeof(dns_rdata_isdn_t));
   2044 }
   2045 
   2046 /*
   2047  * KEY tests.
   2048  */
   2049 ISC_RUN_TEST_IMPL(key) {
   2050 	wire_ok_t wire_ok[] = { /*
   2051 				 * RDATA is comprised of:
   2052 				 *
   2053 				 *   - 2 octets for Flags,
   2054 				 *   - 1 octet for Protocol,
   2055 				 *   - 1 octet for Algorithm,
   2056 				 *   - variable number of octets for Public Key.
   2057 				 *
   2058 				 * RFC 2535 section 3.1.2 states that if bits
   2059 				 * 0-1 of Flags are both set, the RR stops after
   2060 				 * the algorithm octet and thus its length must
   2061 				 * be 4 octets.  In any other case, though, the
   2062 				 * Public Key part must not be empty.
   2063 				 */
   2064 				WIRE_INVALID(0x00),
   2065 				WIRE_INVALID(0x00, 0x00),
   2066 				WIRE_INVALID(0x00, 0x00, 0x00),
   2067 				WIRE_VALID(0xc0, 0x00, 0x00, 0x00),
   2068 				WIRE_INVALID(0xc0, 0x00, 0x00, 0x00, 0x00),
   2069 				WIRE_INVALID(0x00, 0x00, 0x00, 0x00),
   2070 				WIRE_VALID(0x00, 0x00, 0x00, 0x00, 0x00),
   2071 				WIRE_SENTINEL()
   2072 	};
   2073 
   2074 	check_rdata(NULL, wire_ok, NULL, false, dns_rdataclass_in,
   2075 		    dns_rdatatype_key, sizeof(dns_rdata_key_t));
   2076 }
   2077 
   2078 /*
   2079  * LOC tests.
   2080  */
   2081 ISC_RUN_TEST_IMPL(loc) {
   2082 	text_ok_t text_ok[] = {
   2083 		TEXT_VALID_CHANGED("0 N 0 E 0", "0 0 0.000 N 0 0 0.000 E 0.00m "
   2084 						"1m 10000m 10m"),
   2085 		TEXT_VALID_CHANGED("0 S 0 W 0", "0 0 0.000 N 0 0 0.000 E 0.00m "
   2086 						"1m 10000m 10m"),
   2087 		TEXT_VALID_CHANGED("0 0 N 0 0 E 0", "0 0 0.000 N 0 0 0.000 E "
   2088 						    "0.00m 1m 10000m 10m"),
   2089 		TEXT_VALID_CHANGED("0 0 0 N 0 0 0 E 0",
   2090 				   "0 0 0.000 N 0 0 0.000 E 0.00m 1m 10000m "
   2091 				   "10m"),
   2092 		TEXT_VALID_CHANGED("0 0 0 N 0 0 0 E 0",
   2093 				   "0 0 0.000 N 0 0 0.000 E 0.00m 1m 10000m "
   2094 				   "10m"),
   2095 		TEXT_VALID_CHANGED("0 0 0. N 0 0 0. E 0",
   2096 				   "0 0 0.000 N 0 0 0.000 E 0.00m 1m 10000m "
   2097 				   "10m"),
   2098 		TEXT_VALID_CHANGED("0 0 .0 N 0 0 .0 E 0",
   2099 				   "0 0 0.000 N 0 0 0.000 E 0.00m 1m 10000m "
   2100 				   "10m"),
   2101 		TEXT_INVALID("0 North 0 East 0"),
   2102 		TEXT_INVALID("0 South 0 West 0"),
   2103 		TEXT_INVALID("0 0 . N 0 0 0. E 0"),
   2104 		TEXT_INVALID("0 0 0. N 0 0 . E 0"),
   2105 		TEXT_INVALID("0 0 0. N 0 0 0. E m"),
   2106 		TEXT_INVALID("0 0 0. N 0 0 0. E 0 ."),
   2107 		TEXT_INVALID("0 0 0. N 0 0 0. E 0 m"),
   2108 		TEXT_INVALID("0 0 0. N 0 0 0. E 0 0 ."),
   2109 		TEXT_INVALID("0 0 0. N 0 0 0. E 0 0 m"),
   2110 		TEXT_INVALID("0 0 0. N 0 0 0. E 0 0 0 ."),
   2111 		TEXT_INVALID("0 0 0. N 0 0 0. E 0 0 0 m"),
   2112 		TEXT_VALID_CHANGED("90 N 180 E 0", "90 0 0.000 N 180 0 0.000 E "
   2113 						   "0.00m 1m 10000m 10m"),
   2114 		TEXT_INVALID("90 1 N 180 E 0"),
   2115 		TEXT_INVALID("90 0 1 N 180 E 0"),
   2116 		TEXT_INVALID("90 N 180 1 E 0"),
   2117 		TEXT_INVALID("90 N 180 0 1 E 0"),
   2118 		TEXT_VALID_CHANGED("90 S 180 W 0", "90 0 0.000 S 180 0 0.000 W "
   2119 						   "0.00m 1m 10000m 10m"),
   2120 		TEXT_INVALID("90 1 S 180 W 0"),
   2121 		TEXT_INVALID("90 0 1 S 180 W 0"),
   2122 		TEXT_INVALID("90 S 180 1 W 0"),
   2123 		TEXT_INVALID("90 S 180 0 1 W 0"),
   2124 		TEXT_INVALID("0 0 0.000 E 0 0 0.000 E -0.95m 1m 10000m 10m"),
   2125 		TEXT_VALID("0 0 0.000 N 0 0 0.000 E -0.95m 1m 10000m 10m"),
   2126 		TEXT_VALID("0 0 0.000 N 0 0 0.000 E -0.05m 1m 10000m 10m"),
   2127 		TEXT_VALID("0 0 0.000 N 0 0 0.000 E -100000.00m 1m 10000m 10m"),
   2128 		TEXT_VALID("0 0 0.000 N 0 0 0.000 E 42849672.95m 1m 10000m "
   2129 			   "10m"),
   2130 		/*
   2131 		 * Sentinel.
   2132 		 */
   2133 		TEXT_SENTINEL()
   2134 	};
   2135 
   2136 	check_rdata(text_ok, 0, NULL, false, dns_rdataclass_in,
   2137 		    dns_rdatatype_loc, sizeof(dns_rdata_loc_t));
   2138 }
   2139 
   2140 /*
   2141  * http://ana-3.lcs.mit.edu/~jnc/nimrod/dns.txt
   2142  *
   2143  * The RDATA portion of both the NIMLOC and EID records contains
   2144  * uninterpreted binary data.  The representation in the text master file
   2145  * is an even number of hex characters (0 to 9, a to f), case is not
   2146  * significant.  For readability, whitespace may be included in the value
   2147  * field and should be ignored when reading a master file.
   2148  */
   2149 ISC_RUN_TEST_IMPL(nimloc) {
   2150 	text_ok_t text_ok[] = { TEXT_VALID("AABBCC"),
   2151 				TEXT_VALID_CHANGED("AA bb cc", "AABBCC"),
   2152 				TEXT_INVALID("aab"),
   2153 				/*
   2154 				 * Sentinel.
   2155 				 */
   2156 				TEXT_SENTINEL() };
   2157 	wire_ok_t wire_ok[] = { WIRE_VALID(0x00), WIRE_VALID(0xAA, 0xBB, 0xCC),
   2158 				/*
   2159 				 * Sentinel.
   2160 				 */
   2161 				WIRE_SENTINEL() };
   2162 
   2163 	check_rdata(text_ok, wire_ok, NULL, false, dns_rdataclass_in,
   2164 		    dns_rdatatype_nimloc, sizeof(dns_rdata_in_nimloc_t));
   2165 }
   2166 
   2167 /*
   2168  * NSEC tests.
   2169  *
   2170  * RFC 4034:
   2171  *
   2172  * 4.1.  NSEC RDATA Wire Format
   2173  *
   2174  *   The RDATA of the NSEC RR is as shown below:
   2175  *
   2176  *                         1 1 1 1 1 1 1 1 1 1 2 2 2 2 2 2 2 2 2 2 3 3
   2177  *     0 1 2 3 4 5 6 7 8 9 0 1 2 3 4 5 6 7 8 9 0 1 2 3 4 5 6 7 8 9 0 1
   2178  *    +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
   2179  *    /                      Next Domain Name                         /
   2180  *    +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
   2181  *    /                       Type Bit Maps                           /
   2182  *    +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
   2183  *
   2184  * 4.1.1.  The Next Domain Name Field
   2185  *
   2186  *    The Next Domain field contains the next owner name (in the canonical
   2187  *    ordering of the zone) that has authoritative data or contains a
   2188  *    delegation point NS RRset; see Section 6.1 for an explanation of
   2189  *    canonical ordering.  The value of the Next Domain Name field in the
   2190  *    last NSEC record in the zone is the name of the zone apex (the owner
   2191  *    name of the zone's SOA RR).  This indicates that the owner name of
   2192  *    the NSEC RR is the last name in the canonical ordering of the zone.
   2193  *
   2194  *    A sender MUST NOT use DNS name compression on the Next Domain Name
   2195  *    field when transmitting an NSEC RR.
   2196  *
   2197  *    Owner names of RRsets for which the given zone is not authoritative
   2198  *    (such as glue records) MUST NOT be listed in the Next Domain Name
   2199  *    unless at least one authoritative RRset exists at the same owner
   2200  *    name.
   2201  *
   2202  * 4.1.2.  The Type Bit Maps Field
   2203  *
   2204  *    The Type Bit Maps field identifies the RRset types that exist at the
   2205  *    NSEC RR's owner name.
   2206  *
   2207  *    The RR type space is split into 256 window blocks, each representing
   2208  *    the low-order 8 bits of the 16-bit RR type space.  Each block that
   2209  *    has at least one active RR type is encoded using a single octet
   2210  *    window number (from 0 to 255), a single octet bitmap length (from 1
   2211  *    to 32) indicating the number of octets used for the window block's
   2212  *    bitmap, and up to 32 octets (256 bits) of bitmap.
   2213  *
   2214  *    Blocks are present in the NSEC RR RDATA in increasing numerical
   2215  *    order.
   2216  *
   2217  *       Type Bit Maps Field = ( Window Block # | Bitmap Length | Bitmap )+
   2218  *
   2219  *       where "|" denotes concatenation.
   2220  *
   2221  *    Each bitmap encodes the low-order 8 bits of RR types within the
   2222  *    window block, in network bit order.  The first bit is bit 0.  For
   2223  *    window block 0, bit 1 corresponds to RR type 1 (A), bit 2 corresponds
   2224  *    to RR type 2 (NS), and so forth.  For window block 1, bit 1
   2225  *    corresponds to RR type 257, and bit 2 to RR type 258.  If a bit is
   2226  *    set, it indicates that an RRset of that type is present for the NSEC
   2227  *    RR's owner name.  If a bit is clear, it indicates that no RRset of
   2228  *    that type is present for the NSEC RR's owner name.
   2229  *
   2230  *    Bits representing pseudo-types MUST be clear, as they do not appear
   2231  *    in zone data.  If encountered, they MUST be ignored upon being read.
   2232  */
   2233 ISC_RUN_TEST_IMPL(nsec) {
   2234 	text_ok_t text_ok[] = { TEXT_INVALID(""), TEXT_INVALID("."),
   2235 				TEXT_VALID(". RRSIG"), TEXT_SENTINEL() };
   2236 	wire_ok_t wire_ok[] = { WIRE_INVALID(0x00), WIRE_INVALID(0x00, 0x00),
   2237 				WIRE_INVALID(0x00, 0x00, 0x00),
   2238 				WIRE_VALID(0x00, 0x00, 0x01, 0x02),
   2239 				WIRE_SENTINEL() };
   2240 
   2241 	check_rdata(text_ok, wire_ok, NULL, false, dns_rdataclass_in,
   2242 		    dns_rdatatype_nsec, sizeof(dns_rdata_nsec_t));
   2243 }
   2244 
   2245 /*
   2246  * NSEC3 tests.
   2247  *
   2248  * RFC 5155.
   2249  */
   2250 ISC_RUN_TEST_IMPL(nsec3) {
   2251 	text_ok_t text_ok[] = { TEXT_INVALID(""),
   2252 				TEXT_INVALID("."),
   2253 				TEXT_INVALID(". RRSIG"),
   2254 				TEXT_INVALID("1 0 10 76931F"),
   2255 				TEXT_INVALID("1 0 10 76931F "
   2256 					     "IMQ912BREQP1POLAH3RMONG&"
   2257 					     "UED541AS"),
   2258 				TEXT_INVALID("1 0 10 76931F "
   2259 					     "IMQ912BREQP1POLAH3RMONGAUED541AS "
   2260 					     "A RRSIG BADTYPE"),
   2261 				TEXT_VALID("1 0 10 76931F "
   2262 					   "AJHVGTICN6K0VDA53GCHFMT219SRRQLM A "
   2263 					   "RRSIG"),
   2264 				TEXT_VALID("1 0 10 76931F "
   2265 					   "AJHVGTICN6K0VDA53GCHFMT219SRRQLM"),
   2266 				TEXT_VALID("1 0 10 - "
   2267 					   "AJHVGTICN6K0VDA53GCHFMT219SRRQLM"),
   2268 				TEXT_SENTINEL() };
   2269 
   2270 	check_rdata(text_ok, NULL, NULL, false, dns_rdataclass_in,
   2271 		    dns_rdatatype_nsec3, sizeof(dns_rdata_nsec3_t));
   2272 }
   2273 
   2274 /* NXT RDATA manipulations */
   2275 ISC_RUN_TEST_IMPL(nxt) {
   2276 	compare_ok_t compare_ok[] = {
   2277 		COMPARE("a. A SIG", "a. A SIG", 0),
   2278 		/*
   2279 		 * Records that differ only in the case of the next
   2280 		 * name should be equal.
   2281 		 */
   2282 		COMPARE("A. A SIG", "a. A SIG", 0),
   2283 		/*
   2284 		 * Sorting on name field.
   2285 		 */
   2286 		COMPARE("A. A SIG", "b. A SIG", -1),
   2287 		COMPARE("b. A SIG", "A. A SIG", 1),
   2288 		/* bit map differs */
   2289 		COMPARE("b. A SIG", "b. A AAAA SIG", -1),
   2290 		/* order of bit map does not matter */
   2291 		COMPARE("b. A SIG AAAA", "b. A AAAA SIG", 0), COMPARE_SENTINEL()
   2292 	};
   2293 
   2294 	check_rdata(NULL, NULL, compare_ok, false, dns_rdataclass_in,
   2295 		    dns_rdatatype_nxt, sizeof(dns_rdata_nxt_t));
   2296 }
   2297 
   2298 ISC_RUN_TEST_IMPL(rkey) {
   2299 	text_ok_t text_ok[] = { /*
   2300 				 * Valid, flags set to 0 and a key is present.
   2301 				 */
   2302 				TEXT_VALID("0 0 0 aaaa"),
   2303 				/*
   2304 				 * Invalid, non-zero flags.
   2305 				 */
   2306 				TEXT_INVALID("1 0 0 aaaa"),
   2307 				TEXT_INVALID("65535 0 0 aaaa"),
   2308 				/*
   2309 				 * Sentinel.
   2310 				 */
   2311 				TEXT_SENTINEL()
   2312 	};
   2313 	wire_ok_t wire_ok[] = { /*
   2314 				 * Valid, flags set to 0 and a key is present.
   2315 				 */
   2316 				WIRE_VALID(0x00, 0x00, 0x00, 0x00, 0x00),
   2317 				/*
   2318 				 * Invalid, non-zero flags.
   2319 				 */
   2320 				WIRE_INVALID(0x00, 0x01, 0x00, 0x00, 0x00),
   2321 				WIRE_INVALID(0xff, 0xff, 0x00, 0x00, 0x00),
   2322 				/*
   2323 				 * Sentinel.
   2324 				 */
   2325 				WIRE_SENTINEL()
   2326 	};
   2327 	key_required(state, dns_rdatatype_rkey, sizeof(dns_rdata_rkey_t));
   2328 	check_rdata(text_ok, wire_ok, NULL, false, dns_rdataclass_in,
   2329 		    dns_rdatatype_rkey, sizeof(dns_rdata_rkey_t));
   2330 }
   2331 
   2332 /* SSHFP RDATA manipulations */
   2333 ISC_RUN_TEST_IMPL(sshfp) {
   2334 	text_ok_t text_ok[] = { TEXT_INVALID(""),     /* too short */
   2335 				TEXT_INVALID("0"),    /* reserved, too short */
   2336 				TEXT_VALID("0 0"),    /* no finger print */
   2337 				TEXT_VALID("0 0 AA"), /* reserved */
   2338 				TEXT_INVALID("0 1 AA"), /* too short SHA 1
   2339 							 * digest */
   2340 				TEXT_INVALID("0 2 AA"), /* too short SHA 256
   2341 							 * digest */
   2342 				TEXT_VALID("0 3 AA"),	/* unknown finger print
   2343 							 * type */
   2344 				/* good length SHA 1 digest */
   2345 				TEXT_VALID("1 1 "
   2346 					   "00112233445566778899AABBCCDDEEFF171"
   2347 					   "81920"),
   2348 				/* good length SHA 256 digest */
   2349 				TEXT_VALID("4 2 "
   2350 					   "A87F1B687AC0E57D2A081A2F282672334D9"
   2351 					   "0ED316D2B818CA9580EA3 84D92401"),
   2352 				/*
   2353 				 * totext splits the fingerprint into chunks and
   2354 				 * emits uppercase hex.
   2355 				 */
   2356 				TEXT_VALID_CHANGED("1 2 "
   2357 						   "00112233445566778899aabbccd"
   2358 						   "deeff "
   2359 						   "00112233445566778899AABBCCD"
   2360 						   "DEEFF",
   2361 						   "1 2 "
   2362 						   "00112233445566778899AABBCCD"
   2363 						   "DEEFF"
   2364 						   "00112233445566778899AABB "
   2365 						   "CCDDEEFF"),
   2366 				TEXT_SENTINEL() };
   2367 	wire_ok_t wire_ok[] = {
   2368 		WIRE_INVALID(0x00),	      /* reserved too short */
   2369 		WIRE_VALID(0x00, 0x00),	      /* reserved no finger print */
   2370 		WIRE_VALID(0x00, 0x00, 0x00), /* reserved */
   2371 
   2372 		/* too short SHA 1 digests */
   2373 		WIRE_INVALID(0x00, 0x01), WIRE_INVALID(0x00, 0x01, 0x00),
   2374 		WIRE_INVALID(0x00, 0x01, 0x00, 0x11, 0x22, 0x33, 0x44, 0x55,
   2375 			     0x66, 0x77, 0x88, 0x99, 0xAA, 0xBB, 0xCC, 0xDD,
   2376 			     0xEE, 0xFF, 0x17, 0x18, 0x19),
   2377 		/* good length SHA 1 digest */
   2378 		WIRE_VALID(0x00, 0x01, 0x00, 0x11, 0x22, 0x33, 0x44, 0x55, 0x66,
   2379 			   0x77, 0x88, 0x99, 0xAA, 0xBB, 0xCC, 0xDD, 0xEE, 0xFF,
   2380 			   0x17, 0x18, 0x19, 0x20),
   2381 		/* too long SHA 1 digest */
   2382 		WIRE_INVALID(0x00, 0x01, 0x00, 0x11, 0x22, 0x33, 0x44, 0x55,
   2383 			     0x66, 0x77, 0x88, 0x99, 0xAA, 0xBB, 0xCC, 0xDD,
   2384 			     0xEE, 0xFF, 0x17, 0x18, 0x19, 0x20, 0x21),
   2385 		/* too short SHA 256 digests */
   2386 		WIRE_INVALID(0x00, 0x02), WIRE_INVALID(0x00, 0x02, 0x00),
   2387 		WIRE_INVALID(0x00, 0x02, 0x00, 0x11, 0x22, 0x33, 0x44, 0x55,
   2388 			     0x66, 0x77, 0x88, 0x99, 0xAA, 0xBB, 0xCC, 0xDD,
   2389 			     0xEE, 0xFF, 0x17, 0x18, 0x19, 0x20, 0x21, 0x22,
   2390 			     0x23, 0x24, 0x25, 0x26, 0x27, 0x28, 0x29, 0x30,
   2391 			     0x31),
   2392 		/* good length SHA 256 digest */
   2393 		WIRE_VALID(0x00, 0x02, 0x00, 0x11, 0x22, 0x33, 0x44, 0x55, 0x66,
   2394 			   0x77, 0x88, 0x99, 0xAA, 0xBB, 0xCC, 0xDD, 0xEE, 0xFF,
   2395 			   0x17, 0x18, 0x19, 0x20, 0x21, 0x22, 0x23, 0x24, 0x25,
   2396 			   0x26, 0x27, 0x28, 0x29, 0x30, 0x31, 0x32),
   2397 		/* too long SHA 256 digest */
   2398 		WIRE_INVALID(0x00, 0x02, 0x00, 0x11, 0x22, 0x33, 0x44, 0x55,
   2399 			     0x66, 0x77, 0x88, 0x99, 0xAA, 0xBB, 0xCC, 0xDD,
   2400 			     0xEE, 0xFF, 0x17, 0x18, 0x19, 0x20, 0x21, 0x22,
   2401 			     0x23, 0x24, 0x25, 0x26, 0x27, 0x28, 0x29, 0x30,
   2402 			     0x31, 0x32, 0x33),
   2403 		/* unknown digest, * no fingerprint */
   2404 		WIRE_VALID(0x00, 0x03), WIRE_VALID(0x00, 0x03, 0x00), /* unknown
   2405 								       * digest
   2406 								       */
   2407 		WIRE_SENTINEL()
   2408 	};
   2409 
   2410 	check_rdata(text_ok, wire_ok, NULL, false, dns_rdataclass_in,
   2411 		    dns_rdatatype_sshfp, sizeof(dns_rdata_sshfp_t));
   2412 }
   2413 
   2414 /*
   2415  * WKS tests.
   2416  *
   2417  * RFC 1035:
   2418  *
   2419  * 3.4.2. WKS RDATA format
   2420  *
   2421  *     +--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+
   2422  *     |                    ADDRESS                    |
   2423  *     +--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+
   2424  *     |       PROTOCOL        |                       |
   2425  *     +--+--+--+--+--+--+--+--+                       |
   2426  *     |                                               |
   2427  *     /                   <BIT MAP>                   /
   2428  *     /                                               /
   2429  *     +--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+
   2430  *
   2431  * where:
   2432  *
   2433  * ADDRESS         An 32 bit Internet address
   2434  *
   2435  * PROTOCOL        An 8 bit IP protocol number
   2436  *
   2437  * <BIT MAP>       A variable length bit map.  The bit map must be a
   2438  *                 multiple of 8 bits long.
   2439  *
   2440  * The WKS record is used to describe the well known services supported by
   2441  * a particular protocol on a particular internet address.  The PROTOCOL
   2442  * field specifies an IP protocol number, and the bit map has one bit per
   2443  * port of the specified protocol.  The first bit corresponds to port 0,
   2444  * the second to port 1, etc.  If the bit map does not include a bit for a
   2445  * protocol of interest, that bit is assumed zero.  The appropriate values
   2446  * and mnemonics for ports and protocols are specified in [RFC-1010].
   2447  *
   2448  * For example, if PROTOCOL=TCP (6), the 26th bit corresponds to TCP port
   2449  * 25 (SMTP).  If this bit is set, a SMTP server should be listening on TCP
   2450  * port 25; if zero, SMTP service is not supported on the specified
   2451  * address.
   2452  */
   2453 ISC_RUN_TEST_IMPL(wks) {
   2454 	text_ok_t text_ok[] = { /*
   2455 				 * Valid, IPv4 address in dotted-quad form.
   2456 				 */
   2457 				TEXT_VALID("127.0.0.1 6"),
   2458 				/*
   2459 				 * Invalid, IPv4 address not in dotted-quad
   2460 				 * form.
   2461 				 */
   2462 				TEXT_INVALID("127.1 6"),
   2463 				/*
   2464 				 * Sentinel.
   2465 				 */
   2466 				TEXT_SENTINEL()
   2467 	};
   2468 	wire_ok_t wire_ok[] = { /*
   2469 				 * Too short.
   2470 				 */
   2471 				WIRE_INVALID(0x00, 0x08, 0x00, 0x00),
   2472 				/*
   2473 				 * Minimal TCP.
   2474 				 */
   2475 				WIRE_VALID(0x00, 0x08, 0x00, 0x00, 6),
   2476 				/*
   2477 				 * Minimal UDP.
   2478 				 */
   2479 				WIRE_VALID(0x00, 0x08, 0x00, 0x00, 17),
   2480 				/*
   2481 				 * Minimal other.
   2482 				 */
   2483 				WIRE_VALID(0x00, 0x08, 0x00, 0x00, 1),
   2484 				/*
   2485 				 * Sentinel.
   2486 				 */
   2487 				WIRE_SENTINEL()
   2488 	};
   2489 
   2490 	check_rdata(text_ok, wire_ok, NULL, false, dns_rdataclass_in,
   2491 		    dns_rdatatype_wks, sizeof(dns_rdata_in_wks_t));
   2492 }
   2493 
   2494 ISC_RUN_TEST_IMPL(https_svcb) {
   2495 	/*
   2496 	 * Known keys: mandatory, apln, no-default-alpn, port,
   2497 	 *             ipv4hint, port, ipv6hint, dohpath.
   2498 	 */
   2499 	text_ok_t text_ok[] = {
   2500 		/* unknown key invalid */
   2501 		TEXT_INVALID("1 . unknown="),
   2502 		/* no domain */
   2503 		TEXT_INVALID("0"),
   2504 		/* minimal record */
   2505 		TEXT_VALID_LOOP(0, "0 ."),
   2506 		/* Alias form requires SvcFieldValue to be empty */
   2507 		TEXT_INVALID("0 . alpn=\"h2\""),
   2508 		/* no "key" prefix */
   2509 		TEXT_INVALID("2 svc.example.net. 0=\"2222\""),
   2510 		/* no key value */
   2511 		TEXT_INVALID("2 svc.example.net. key"),
   2512 		/* no key value */
   2513 		TEXT_INVALID("2 svc.example.net. key=\"2222\""),
   2514 		/* zero pad invalid */
   2515 		TEXT_INVALID("2 svc.example.net. key07=\"2222\""),
   2516 		TEXT_VALID_LOOP(1, "2 svc.example.net. key8=\"2222\""),
   2517 		TEXT_VALID_LOOPCHG(1, "2 svc.example.net. key8=2222",
   2518 				   "2 svc.example.net. key8=\"2222\""),
   2519 		TEXT_VALID_LOOPCHG(1, "2 svc.example.net. alpn=h2",
   2520 				   "2 svc.example.net. alpn=\"h2\""),
   2521 		TEXT_VALID_LOOPCHG(1, "2 svc.example.net. alpn=h3",
   2522 				   "2 svc.example.net. alpn=\"h3\""),
   2523 		/* alpn has 2 sub field "h2" and "h3" */
   2524 		TEXT_VALID_LOOPCHG(1, "2 svc.example.net. alpn=h2,h3",
   2525 				   "2 svc.example.net. alpn=\"h2,h3\""),
   2526 		/* apln has 2 sub fields "h1,h2" and "h3" (comma escaped) */
   2527 		TEXT_VALID_LOOPCHG(1, "2 svc.example.net. alpn=h1\\\\,h2,h3",
   2528 				   "2 svc.example.net. alpn=\"h1\\\\,h2,h3\""),
   2529 		TEXT_VALID_LOOP(1, "2 svc.example.net. port=50"),
   2530 		/* no-default-alpn, alpn is required */
   2531 		TEXT_INVALID("2 svc.example.net. no-default-alpn"),
   2532 		/* no-default-alpn with alpn present */
   2533 		TEXT_VALID_LOOPCHG(
   2534 			2, "2 svc.example.net. no-default-alpn alpn=h2",
   2535 			"2 svc.example.net. alpn=\"h2\" no-default-alpn"),
   2536 		/* empty hint */
   2537 		TEXT_INVALID("2 svc.example.net. ipv4hint="),
   2538 		TEXT_VALID_LOOP(1, "2 svc.example.net. "
   2539 				   "ipv4hint=10.50.0.1,10.50.0.2"),
   2540 		/* empty hint */
   2541 		TEXT_INVALID("2 svc.example.net. ipv6hint="),
   2542 		TEXT_VALID_LOOP(1, "2 svc.example.net. ipv6hint=::1,2002::1"),
   2543 		TEXT_VALID_LOOP(1, "2 svc.example.net. ech=abcdefghijkl"),
   2544 		/* bad base64 */
   2545 		TEXT_INVALID("2 svc.example.net. ech=abcdefghijklm"),
   2546 		TEXT_VALID_LOOP(1, "2 svc.example.net. key8=\"2222\""),
   2547 		/* Out of key order on input (alpn == key1). */
   2548 		TEXT_VALID_LOOPCHG(2,
   2549 				   "2 svc.example.net. key8=\"2222\" alpn=h2",
   2550 				   "2 svc.example.net. alpn=\"h2\" "
   2551 				   "key8=\"2222\""),
   2552 		TEXT_VALID_LOOP(1, "2 svc.example.net. key65535=\"2222\""),
   2553 		TEXT_INVALID("2 svc.example.net. key65536=\"2222\""),
   2554 		TEXT_VALID_LOOP(1, "2 svc.example.net. key10"),
   2555 		TEXT_VALID_LOOPCHG(1, "2 svc.example.net. key11=",
   2556 				   "2 svc.example.net. key11"),
   2557 		TEXT_VALID_LOOPCHG(1, "2 svc.example.net. key12=\"\"",
   2558 				   "2 svc.example.net. key12"),
   2559 		/* empty alpn-id sub fields */
   2560 		TEXT_INVALID("2 svc.example.net. alpn"),
   2561 		TEXT_INVALID("2 svc.example.net. alpn="),
   2562 		TEXT_INVALID("2 svc.example.net. alpn=,h1"),
   2563 		TEXT_INVALID("2 svc.example.net. alpn=h1,"),
   2564 		TEXT_INVALID("2 svc.example.net. alpn=h1,,h2"),
   2565 		/* mandatory */
   2566 		TEXT_VALID_LOOP(2, "2 svc.example.net. mandatory=alpn "
   2567 				   "alpn=\"h2\""),
   2568 		TEXT_VALID_LOOP(3, "2 svc.example.net. mandatory=alpn,port "
   2569 				   "alpn=\"h2\" port=443"),
   2570 		TEXT_VALID_LOOPCHG(3,
   2571 				   "2 svc.example.net. mandatory=port,alpn "
   2572 				   "alpn=\"h2\" port=443",
   2573 				   "2 svc.example.net. mandatory=alpn,port "
   2574 				   "alpn=\"h2\" port=443"),
   2575 		TEXT_INVALID("2 svc.example.net. mandatory=mandatory"),
   2576 		TEXT_INVALID("2 svc.example.net. mandatory=port"),
   2577 		TEXT_INVALID("2 svc.example.net. mandatory=,port port=433"),
   2578 		TEXT_INVALID("2 svc.example.net. mandatory=port, port=433"),
   2579 		TEXT_INVALID("2 svc.example.net. "
   2580 			     "mandatory=alpn,,port alpn=h2 port=433"),
   2581 		/* mandatory w/ unknown key values */
   2582 		TEXT_VALID_LOOP(2, "2 svc.example.net. mandatory=key8 key8"),
   2583 		TEXT_VALID_LOOP(3, "2 svc.example.net. mandatory=key8,key9 "
   2584 				   "key8 key9"),
   2585 		TEXT_VALID_LOOPCHG(
   2586 			3, "2 svc.example.net. mandatory=key9,key8 key8 key9",
   2587 			"2 svc.example.net. mandatory=key8,key9 key8 key9"),
   2588 		TEXT_INVALID("2 svc.example.net. "
   2589 			     "mandatory=key8,key8"),
   2590 		TEXT_INVALID("2 svc.example.net. mandatory=,key8"),
   2591 		TEXT_INVALID("2 svc.example.net. mandatory=key8,"),
   2592 		TEXT_INVALID("2 svc.example.net. "
   2593 			     "mandatory=key8,,key8"),
   2594 		/* Invalid test vectors */
   2595 		TEXT_INVALID("1 foo.example.com. ( key123=abc key123=def )"),
   2596 		TEXT_INVALID("1 foo.example.com. mandatory"),
   2597 		TEXT_INVALID("1 foo.example.com. alpn"),
   2598 		TEXT_INVALID("1 foo.example.com. port"),
   2599 		TEXT_INVALID("1 foo.example.com. ipv4hint"),
   2600 		TEXT_INVALID("1 foo.example.com. ipv6hint"),
   2601 		TEXT_INVALID("1 foo.example.com. no-default-alpn=abc"),
   2602 		TEXT_INVALID("1 foo.example.com. mandatory=key123"),
   2603 		TEXT_INVALID("1 foo.example.com. mandatory=mandatory"),
   2604 		TEXT_INVALID("1 foo.example.com. ( mandatory=key123,key123 "
   2605 			     "key123=abc)"),
   2606 		/* dohpath tests */
   2607 		TEXT_VALID_LOOPCHG(1, "1 example.net. dohpath=/{?dns}",
   2608 				   "1 example.net. key7=\"/{?dns}\""),
   2609 		TEXT_VALID_LOOPCHG(1, "1 example.net. dohpath=/some/path{?dns}",
   2610 				   "1 example.net. key7=\"/some/path{?dns}\""),
   2611 		TEXT_INVALID("1 example.com. dohpath=no-slash"),
   2612 		TEXT_INVALID("1 example.com. dohpath=/{?notdns}"),
   2613 		TEXT_INVALID("1 example.com. dohpath=/notvariable"),
   2614 		TEXT_SENTINEL()
   2615 
   2616 	};
   2617 	wire_ok_t wire_ok[] = {
   2618 		/*
   2619 		 * Too short
   2620 		 */
   2621 		WIRE_INVALID(0x00, 0x00),
   2622 		/*
   2623 		 * Minimal length record.
   2624 		 */
   2625 		WIRE_VALID(0x00, 0x00, 0x00),
   2626 		/*
   2627 		 * Alias with non-empty SvcFieldValue (key7="").
   2628 		 */
   2629 		WIRE_INVALID(0x00, 0x00, 0x00, 0x00, 0x07, 0x00, 0x00),
   2630 		/*
   2631 		 * Bad key7= length (longer than rdata).
   2632 		 */
   2633 		WIRE_INVALID(0x00, 0x01, 0x00, 0x00, 0x07, 0x00, 0x01),
   2634 		/*
   2635 		 * Port (0x03) too small (zero and one octets).
   2636 		 */
   2637 		WIRE_INVALID(0x00, 0x01, 0x00, 0x00, 0x03, 0x00, 0x00),
   2638 		WIRE_INVALID(0x00, 0x01, 0x00, 0x00, 0x03, 0x00, 0x01, 0x00),
   2639 		/* Valid port */
   2640 		WIRE_VALID_LOOP(1, 0x00, 0x01, 0x00, 0x00, 0x03, 0x00, 0x02,
   2641 				0x00, 0x00),
   2642 		/*
   2643 		 * Port (0x03) too big (three octets).
   2644 		 */
   2645 		WIRE_INVALID(0x00, 0x01, 0x00, 0x00, 0x03, 0x00, 0x03, 0x00,
   2646 			     0x00, 0x00),
   2647 		/*
   2648 		 * Duplicate keys.
   2649 		 */
   2650 		WIRE_INVALID(0x01, 0x00, 0x00, 0x00, 0x80, 0x00, 0x00, 0x00,
   2651 			     0x80, 0x00, 0x00),
   2652 		/*
   2653 		 * Out of order keys.
   2654 		 */
   2655 		WIRE_INVALID(0x01, 0x01, 0x00, 0x00, 0x81, 0x00, 0x00, 0x00,
   2656 			     0x80, 0x00, 0x00),
   2657 		/*
   2658 		 * Empty of mandatory key list.
   2659 		 */
   2660 		WIRE_INVALID(0x01, 0x01, 0x00, 0x00, 0x00, 0x00, 0x00),
   2661 		/*
   2662 		 * "mandatory=mandatory" is invalid
   2663 		 */
   2664 		WIRE_INVALID(0x01, 0x01, 0x00, 0x00, 0x00, 0x00, 0x02, 0x00,
   2665 			     0x00),
   2666 		/*
   2667 		 * Out of order mandatory key list.
   2668 		 */
   2669 		WIRE_INVALID(0x01, 0x01, 0x00, 0x00, 0x00, 0x00, 0x04, 0x00,
   2670 			     0x80, 0x00, 0x71, 0x00, 0x71, 0x00, 0x00, 0x00,
   2671 			     0x80, 0x00, 0x00),
   2672 		/*
   2673 		 * Alpn(0x00 0x01) (length 0x00 0x09) "h1,h2" + "h3"
   2674 		 */
   2675 		WIRE_VALID_LOOP(0x01, 0x00, 0x01, 0x00, 0x00, 0x01, 0x00, 0x09,
   2676 				5, 'h', '1', ',', 'h', '2', 2, 'h', '3'),
   2677 		/*
   2678 		 * Alpn(0x00 0x01) (length 0x00 0x09) "h1\h2" + "h3"
   2679 		 */
   2680 		WIRE_VALID_LOOP(0x01, 0x00, 0x01, 0x00, 0x00, 0x01, 0x00, 0x09,
   2681 				5, 'h', '1', '\\', 'h', '2', 2, 'h', '3'),
   2682 		/*
   2683 		 * no-default-alpn (0x00 0x02) without alpn, alpn is required.
   2684 		 */
   2685 		WIRE_INVALID(0x00, 0x00, 0x01, 0x00, 0x00, 0x02, 0x00, 0x00),
   2686 		/*
   2687 		 * Alpn(0x00 0x01) with zero length elements is invalid
   2688 		 */
   2689 		WIRE_INVALID(0x00, 0x00, 0x01, 0x00, 0x00, 0x01, 0x00, 0x05,
   2690 			     0x00, 0x00, 0x00, 0x00, 0x00),
   2691 		WIRE_SENTINEL()
   2692 	};
   2693 	/* Test vectors from RFCXXXX */
   2694 	textvsunknown_t textvsunknown[] = {
   2695 		/* AliasForm */
   2696 		{ "0 foo.example.com", "\\# 19 ( 00 00 03 66 6f 6f 07 65 78 61 "
   2697 				       "6d 70 6c 65 03 63 6f 6d 00)" },
   2698 		/* ServiceForm */
   2699 		{ "1 .", "\\# 3 ( 00 01 00)" },
   2700 		/* Port example */
   2701 		{ "16 foo.example.com port=53",
   2702 		  "\\# 25 ( 00 10 03 66 6f 6f 07 65 78 61 6d 70 6c 65 03 63 6f "
   2703 		  "6d 00 00 03 00 02 00 35 )" },
   2704 		/* Unregistered keys with unquoted value. */
   2705 		{ "1 foo.example.com key667=hello",
   2706 		  "\\# 28 ( 00 01 03 66 6f 6f 07 65 78 61 6d 70 6c 65 03 63 6f "
   2707 		  "6d 00 02 9b 00 05 68 65 6c 6c 6f )" },
   2708 		/*
   2709 		 * Quoted decimal-escaped character.
   2710 		 * 1 foo.example.com key667="hello\210qoo"
   2711 		 */
   2712 		{ "1 foo.example.com key667=\"hello\\210qoo\"",
   2713 		  "\\# 32 ( 00 01 03 66 6f 6f 07 65 78 61 6d 70 6c 65 03 63 6f "
   2714 		  "6d 00 02 9b 00 09 68 65 6c 6c 6f d2 71 6f 6f )" },
   2715 		/*
   2716 		 * IPv6 hints example, quoted.
   2717 		 * 1 foo.example.com ipv6hint="2001:db8::1,2001:db8::53:1"
   2718 		 */
   2719 		{ "1 foo.example.com ipv6hint=\"2001:db8::1,2001:db8::53:1\"",
   2720 		  "\\# 55 ( 00 01 03 66 6f 6f 07 65 78 61 6d 70 6c 65 03 63 6f "
   2721 		  "6d 00 00 06 00 20 20 01 0d b8 00 00 00 00 00 00 00 00 00 00 "
   2722 		  "00 01 20 01 0d b8 00 00 00 00 00 00 00 00 00 53 00 01 )" },
   2723 		/* SvcParamValues and mandatory out of order. */
   2724 		{ "16 foo.example.org alpn=h2,h3-19 mandatory=ipv4hint,alpn "
   2725 		  "ipv4hint=192.0.2.1",
   2726 		  "\\# 48 ( 00 10 03 66 6f 6f 07 65 78 61 6d 70 6c 65 03 6f 72 "
   2727 		  "67 00 00 00 00 04 00 01 00 04 00 01 00 09 02 68 32 05 68 33 "
   2728 		  "2d 31 39 00 04 00 04 c0 00 02 01 )" },
   2729 		/*
   2730 		 * Quoted ALPN with escaped comma and backslash.
   2731 		 * 16 foo.example.org alpn="f\\\\oo\\,bar,h2"
   2732 		 */
   2733 		{ "16 foo.example.org alpn=\"f\\\\\\\\oo\\\\,bar,h2\"",
   2734 		  "\\# 35 ( 00 10 03 66 6f 6f 07 65 78 61 6d 70 6c 65 03 6f 72 "
   2735 		  "67 00 00 01 00 0c 08 66 5c 6f 6f 2c 62 61 72 02 68 32 )" },
   2736 		/*
   2737 		 * Unquoted ALPN with escaped comma and backslash.
   2738 		 * 16 foo.example.org alpn=f\\\092oo\092,bar,h2
   2739 		 */
   2740 		{ "16 foo.example.org alpn=f\\\\\\092oo\\092,bar,h2",
   2741 		  "\\# 35 ( 00 10 03 66 6f 6f 07 65 78 61 6d 70 6c 65 03 6f 72 "
   2742 		  "67 00 00 01 00 0c 08 66 5c 6f 6f 2c 62 61 72 02 68 32 )" },
   2743 		{ NULL, NULL }
   2744 	};
   2745 
   2746 	check_rdata(text_ok, wire_ok, NULL, false, dns_rdataclass_in,
   2747 		    dns_rdatatype_svcb, sizeof(dns_rdata_in_svcb_t));
   2748 	check_rdata(text_ok, wire_ok, NULL, false, dns_rdataclass_in,
   2749 		    dns_rdatatype_https, sizeof(dns_rdata_in_https_t));
   2750 
   2751 	check_textvsunknown(textvsunknown, dns_rdataclass_in,
   2752 			    dns_rdatatype_svcb);
   2753 	check_textvsunknown(textvsunknown, dns_rdataclass_in,
   2754 			    dns_rdatatype_https);
   2755 }
   2756 
   2757 /*
   2758  * ZONEMD tests.
   2759  *
   2760  * Excerpted from RFC 8976:
   2761  *
   2762  * The ZONEMD RDATA wire format is encoded as follows:
   2763  *
   2764  *                         1 1 1 1 1 1 1 1 1 1 2 2 2 2 2 2 2 2 2 2 3 3
   2765  *     0 1 2 3 4 5 6 7 8 9 0 1 2 3 4 5 6 7 8 9 0 1 2 3 4 5 6 7 8 9 0 1
   2766  *    +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
   2767  *    |                             Serial                            |
   2768  *    +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
   2769  *    |    Scheme     |Hash Algorithm |                               |
   2770  *    +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+                               |
   2771  *    |                             Digest                            |
   2772  *    /                                                               /
   2773  *    /                                                               /
   2774  *    +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
   2775  *
   2776  * 2.2.1.  The Serial Field
   2777  *
   2778  *    The Serial field is a 32-bit unsigned integer in network byte order.
   2779  *    It is the serial number from the zone's SOA record ([RFC1035],
   2780  *    Section 3.3.13) for which the zone digest was generated.
   2781  *
   2782  *    It is included here to clearly bind the ZONEMD RR to a particular
   2783  *    version of the zone's content.  Without the serial number, a stand-
   2784  *    alone ZONEMD digest has no obvious association to any particular
   2785  *    instance of a zone.
   2786  *
   2787  * 2.2.2.  The Scheme Field
   2788  *
   2789  *    The Scheme field is an 8-bit unsigned integer that identifies the
   2790  *    methods by which data is collated and presented as input to the
   2791  *    hashing function.
   2792  *
   2793  *    Herein, SIMPLE, with Scheme value 1, is the only standardized Scheme
   2794  *    defined for ZONEMD records and it MUST be supported by
   2795  *    implementations.  The "ZONEMD Schemes" registry is further described
   2796  *    in Section 5.
   2797  *
   2798  *    Scheme values 240-254 are allocated for Private Use.
   2799  *
   2800  * 2.2.3.  The Hash Algorithm Field
   2801  *
   2802  *    The Hash Algorithm field is an 8-bit unsigned integer that identifies
   2803  *    the cryptographic hash algorithm used to construct the digest.
   2804  *
   2805  *    Herein, SHA384 ([RFC6234]), with Hash Algorithm value 1, is the only
   2806  *    standardized Hash Algorithm defined for ZONEMD records that MUST be
   2807  *    supported by implementations.  When SHA384 is used, the size of the
   2808  *    Digest field is 48 octets.  The result of the SHA384 digest algorithm
   2809  *    MUST NOT be truncated, and the entire 48-octet digest is published in
   2810  *    the ZONEMD record.
   2811  *
   2812  *    SHA512 ([RFC6234]), with Hash Algorithm value 2, is also defined for
   2813  *    ZONEMD records and SHOULD be supported by implementations.  When
   2814  *    SHA512 is used, the size of the Digest field is 64 octets.  The
   2815  *    result of the SHA512 digest algorithm MUST NOT be truncated, and the
   2816  *    entire 64-octet digest is published in the ZONEMD record.
   2817  *
   2818  *    Hash Algorithm values 240-254 are allocated for Private Use.
   2819  *
   2820  *    The "ZONEMD Hash Algorithms" registry is further described in
   2821  *    Section 5.
   2822  *
   2823  * 2.2.4.  The Digest Field
   2824  *
   2825  *    The Digest field is a variable-length sequence of octets containing
   2826  *    the output of the hash algorithm.  The length of the Digest field is
   2827  *    determined by deducting the fixed size of the Serial, Scheme, and
   2828  *    Hash Algorithm fields from the RDATA size in the ZONEMD RR header.
   2829  *
   2830  *    The Digest field MUST NOT be shorter than 12 octets.  Digests for the
   2831  *    SHA384 and SHA512 hash algorithms specified herein are never
   2832  *    truncated.  Digests for future hash algorithms MAY be truncated but
   2833  *    MUST NOT be truncated to a length that results in less than 96 bits
   2834  *    (12 octets) of equivalent strength.
   2835  *
   2836  *    Section 3 describes how to calculate the digest for a zone.
   2837  *    Section 4 describes how to use the digest to verify the contents of a
   2838  *    zone.
   2839  *
   2840  */
   2841 
   2842 ISC_RUN_TEST_IMPL(zonemd) {
   2843 	text_ok_t text_ok[] = {
   2844 		TEXT_INVALID(""),
   2845 		/* No digest scheme or digest type*/
   2846 		TEXT_INVALID("0"),
   2847 		/* No digest type */
   2848 		TEXT_INVALID("0 0"),
   2849 		/* No digest */
   2850 		TEXT_INVALID("0 0 0"),
   2851 		/* No digest */
   2852 		TEXT_INVALID("99999999 0 0"),
   2853 		/* No digest */
   2854 		TEXT_INVALID("2019020700 0 0"),
   2855 		/* Digest too short */
   2856 		TEXT_INVALID("2019020700 1 1 DEADBEEF"),
   2857 		/* Digest too short */
   2858 		TEXT_INVALID("2019020700 1 2 DEADBEEF"),
   2859 		/* Digest too short */
   2860 		TEXT_INVALID("2019020700 1 3 DEADBEEFDEADBEEFDEADBE"),
   2861 		/* Digest type unknown */
   2862 		TEXT_VALID("2019020700 1 3 DEADBEEFDEADBEEFDEADBEEF"),
   2863 		/* Digest type max */
   2864 		TEXT_VALID("2019020700 1 255 DEADBEEFDEADBEEFDEADBEEF"),
   2865 		/* Digest type too big */
   2866 		TEXT_INVALID("2019020700 0 256 DEADBEEFDEADBEEFDEADBEEF"),
   2867 		/* Scheme max */
   2868 		TEXT_VALID("2019020700 255 3 DEADBEEFDEADBEEFDEADBEEF"),
   2869 		/* Scheme too big */
   2870 		TEXT_INVALID("2019020700 256 3 DEADBEEFDEADBEEFDEADBEEF"),
   2871 		/* SHA384 */
   2872 		TEXT_VALID("2019020700 1 1 "
   2873 			   "7162D2BB75C047A53DE98767C9192BEB"
   2874 			   "14DB01E7E2267135DAF0230A 19BA4A31"
   2875 			   "6AF6BF64AA5C7BAE24B2992850300509"),
   2876 		/* SHA512 */
   2877 		TEXT_VALID("2019020700 1 2 "
   2878 			   "08CFA1115C7B948C4163A901270395EA"
   2879 			   "226A930CD2CBCF2FA9A5E6EB 85F37C8A"
   2880 			   "4E114D884E66F176EAB121CB02DB7D65"
   2881 			   "2E0CC4827E7A3204 F166B47E5613FD27"),
   2882 		/* SHA384 too short and with private scheme */
   2883 		TEXT_INVALID("2021042801 0 1 "
   2884 			     "7162D2BB75C047A53DE98767C9192BEB"
   2885 			     "6AF6BF64AA5C7BAE24B2992850300509"),
   2886 		/* SHA512 too short and with private scheme */
   2887 		TEXT_INVALID("2021042802 5 2 "
   2888 			     "A897B40072ECAE9E4CA3F1F227DE8F5E"
   2889 			     "480CDEBB16DFC64C1C349A7B5F6C71AB"
   2890 			     "E8A88B76EF0BA1604EC25752E946BF98"),
   2891 		TEXT_SENTINEL()
   2892 	};
   2893 	wire_ok_t wire_ok[] = {
   2894 		/*
   2895 		 * Short.
   2896 		 */
   2897 		WIRE_INVALID(0x00),
   2898 		/*
   2899 		 * Short.
   2900 		 */
   2901 		WIRE_INVALID(0x00, 0x00),
   2902 		/*
   2903 		 * Short.
   2904 		 */
   2905 		WIRE_INVALID(0x00, 0x00, 0x00),
   2906 		/*
   2907 		 * Short.
   2908 		 */
   2909 		WIRE_INVALID(0x00, 0x00, 0x00, 0x00),
   2910 		/*
   2911 		 * Short.
   2912 		 */
   2913 		WIRE_INVALID(0x00, 0x00, 0x00, 0x00, 0x00),
   2914 		/*
   2915 		 * Short.
   2916 		 */
   2917 		WIRE_INVALID(0x00, 0x00, 0x00, 0x00, 0x00, 0x00),
   2918 		/*
   2919 		 * Short 11-octet digest.
   2920 		 */
   2921 		WIRE_INVALID(0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
   2922 			     0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
   2923 			     0x00),
   2924 		/*
   2925 		 * Minimal, 12-octet hash for an undefined digest type.
   2926 		 */
   2927 		WIRE_VALID(0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
   2928 			   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
   2929 			   0x00),
   2930 		/*
   2931 		 * SHA-384 is defined, so we insist there be a digest of
   2932 		 * the expected length.
   2933 		 */
   2934 		WIRE_INVALID(0x00, 0x00, 0x00, 0x00, 0x01, 0x01, 0x00, 0x00,
   2935 			     0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
   2936 			     0x00, 0x00),
   2937 		/*
   2938 		 * 48-octet digest, valid for SHA-384.
   2939 		 */
   2940 		WIRE_VALID(0x00, 0x00, 0x00, 0x00, 0x00, 0x01, 0xde, 0xad, 0xbe,
   2941 			   0xef, 0xfa, 0xce, 0xde, 0xad, 0xbe, 0xef, 0xfa, 0xce,
   2942 			   0xde, 0xad, 0xbe, 0xef, 0xfa, 0xce, 0xde, 0xad, 0xbe,
   2943 			   0xef, 0xfa, 0xce, 0xde, 0xad, 0xbe, 0xef, 0xfa, 0xce,
   2944 			   0xde, 0xad, 0xbe, 0xef, 0xfa, 0xce, 0xde, 0xad, 0xbe,
   2945 			   0xef, 0xfa, 0xce, 0xde, 0xad, 0xbe, 0xef, 0xfa,
   2946 			   0xce),
   2947 		/*
   2948 		 * 56-octet digest, too long for SHA-384.
   2949 		 */
   2950 		WIRE_INVALID(0x00, 0x00, 0x00, 0x00, 0x01, 0x01, 0xde, 0xad,
   2951 			     0xbe, 0xef, 0xfa, 0xce, 0xde, 0xad, 0xbe, 0xef,
   2952 			     0xfa, 0xce, 0xde, 0xad, 0xbe, 0xef, 0xfa, 0xce,
   2953 			     0xde, 0xad, 0xbe, 0xef, 0xfa, 0xce, 0xde, 0xad,
   2954 			     0xbe, 0xef, 0xfa, 0xce, 0xde, 0xad, 0xbe, 0xef,
   2955 			     0xfa, 0xce, 0xde, 0xad, 0xbe, 0xef, 0xfa, 0xce,
   2956 			     0xde, 0xad, 0xbe, 0xef, 0xfa, 0xce, 0xde, 0xad,
   2957 			     0xbe, 0xef, 0xfa, 0xce),
   2958 		/*
   2959 		 * 56-octet digest, too short for SHA-512
   2960 		 */
   2961 		WIRE_INVALID(0x00, 0x00, 0x00, 0x00, 0x01, 0x02, 0xde, 0xad,
   2962 			     0xbe, 0xef, 0xfa, 0xce, 0xde, 0xad, 0xbe, 0xef,
   2963 			     0xfa, 0xce, 0xde, 0xad, 0xbe, 0xef, 0xfa, 0xce,
   2964 			     0xde, 0xad, 0xbe, 0xef, 0xfa, 0xce, 0xde, 0xad,
   2965 			     0xbe, 0xef, 0xfa, 0xce, 0xde, 0xad, 0xbe, 0xef,
   2966 			     0xfa, 0xce, 0xde, 0xad, 0xbe, 0xef, 0xfa, 0xce,
   2967 			     0xde, 0xad, 0xbe, 0xef, 0xfa, 0xce, 0xde, 0xad,
   2968 			     0xbe, 0xef, 0xfa, 0xce, 0xde, 0xad),
   2969 		/*
   2970 		 * 64-octet digest, just right for SHA-512
   2971 		 */
   2972 		WIRE_VALID(0x00, 0x00, 0x00, 0x00, 0x01, 0x02, 0xde, 0xad, 0xbe,
   2973 			   0xef, 0xfa, 0xce, 0xde, 0xad, 0xbe, 0xef, 0xfa, 0xce,
   2974 			   0xde, 0xad, 0xbe, 0xef, 0xfa, 0xce, 0xde, 0xad, 0xbe,
   2975 			   0xef, 0xfa, 0xce, 0xde, 0xad, 0xbe, 0xef, 0xfa, 0xce,
   2976 			   0xde, 0xad, 0xbe, 0xef, 0xfa, 0xce, 0xde, 0xad, 0xbe,
   2977 			   0xef, 0xfa, 0xce, 0xde, 0xad, 0xbe, 0xef, 0xfa, 0xce,
   2978 			   0xde, 0xad, 0xbe, 0xef, 0xfa, 0xce, 0xde, 0xad, 0xbe,
   2979 			   0xef, 0xfa, 0xce, 0xde, 0xad, 0xbe, 0xef),
   2980 		/*
   2981 		 * 72-octet digest, too long for SHA-512
   2982 		 */
   2983 		WIRE_INVALID(0x00, 0x00, 0x00, 0x00, 0x01, 0x02, 0xde, 0xad,
   2984 			     0xbe, 0xef, 0xfa, 0xce, 0xde, 0xad, 0xbe, 0xef,
   2985 			     0xfa, 0xce, 0xde, 0xad, 0xbe, 0xef, 0xfa, 0xce,
   2986 			     0xde, 0xad, 0xbe, 0xef, 0xfa, 0xce, 0xde, 0xad,
   2987 			     0xbe, 0xef, 0xfa, 0xce, 0xde, 0xad, 0xbe, 0xef,
   2988 			     0xfa, 0xce, 0xde, 0xad, 0xbe, 0xef, 0xfa, 0xce,
   2989 			     0xde, 0xad, 0xbe, 0xef, 0xfa, 0xce, 0xde, 0xad,
   2990 			     0xbe, 0xef, 0xfa, 0xce, 0xde, 0xad, 0xbe, 0xef,
   2991 			     0xfa, 0xce, 0xde, 0xad, 0xbe, 0xef, 0xfa, 0xce,
   2992 			     0xde, 0xad, 0xbe, 0xef, 0xfa, 0xce),
   2993 		/*
   2994 		 * 56-octet digest, valid for an undefined digest type.
   2995 		 */
   2996 		WIRE_VALID(0x00, 0x00, 0x00, 0x00, 0x01, 0x00, 0xde, 0xad, 0xbe,
   2997 			   0xef, 0xfa, 0xce, 0xde, 0xad, 0xbe, 0xef, 0xfa, 0xce,
   2998 			   0xde, 0xad, 0xbe, 0xef, 0xfa, 0xce, 0xde, 0xad, 0xbe,
   2999 			   0xef, 0xfa, 0xce, 0xde, 0xad, 0xbe, 0xef, 0xfa, 0xce,
   3000 			   0xde, 0xad, 0xbe, 0xef, 0xfa, 0xce, 0xde, 0xad, 0xbe,
   3001 			   0xef, 0xfa, 0xce, 0xde, 0xad, 0xbe, 0xef, 0xfa, 0xce,
   3002 			   0xde, 0xad, 0xbe, 0xef, 0xfa, 0xce),
   3003 		/*
   3004 		 * Sentinel.
   3005 		 */
   3006 		WIRE_SENTINEL()
   3007 	};
   3008 
   3009 	check_rdata(text_ok, wire_ok, NULL, false, dns_rdataclass_in,
   3010 		    dns_rdatatype_zonemd, sizeof(dns_rdata_zonemd_t));
   3011 }
   3012 
   3013 ISC_RUN_TEST_IMPL(atcname) {
   3014 	unsigned int i;
   3015 
   3016 #define UNR "# Unexpected result from dns_rdatatype_atcname for type %u\n"
   3017 	for (i = 0; i < 0xffffU; i++) {
   3018 		bool tf = dns_rdatatype_atcname((dns_rdatatype_t)i);
   3019 		switch (i) {
   3020 		case dns_rdatatype_nsec:
   3021 		case dns_rdatatype_key:
   3022 		case dns_rdatatype_rrsig:
   3023 			if (!tf) {
   3024 				print_message(UNR, i);
   3025 			}
   3026 			assert_true(tf);
   3027 			break;
   3028 		default:
   3029 			if (tf) {
   3030 				print_message(UNR, i);
   3031 			}
   3032 			assert_false(tf);
   3033 			break;
   3034 		}
   3035 	}
   3036 #undef UNR
   3037 }
   3038 
   3039 ISC_RUN_TEST_IMPL(atparent) {
   3040 	unsigned int i;
   3041 
   3042 #define UNR "# Unexpected result from dns_rdatatype_atparent for type %u\n"
   3043 	for (i = 0; i < 0xffffU; i++) {
   3044 		bool tf = dns_rdatatype_atparent((dns_rdatatype_t)i);
   3045 		switch (i) {
   3046 		case dns_rdatatype_ds:
   3047 			if (!tf) {
   3048 				print_message(UNR, i);
   3049 			}
   3050 			assert_true(tf);
   3051 			break;
   3052 		default:
   3053 			if (tf) {
   3054 				print_message(UNR, i);
   3055 			}
   3056 			assert_false(tf);
   3057 			break;
   3058 		}
   3059 	}
   3060 #undef UNR
   3061 }
   3062 
   3063 ISC_RUN_TEST_IMPL(iszonecutauth) {
   3064 	unsigned int i;
   3065 #define UNR "# Unexpected result from dns_rdatatype_iszonecutauth for type %u\n"
   3066 	for (i = 0; i < 0xffffU; i++) {
   3067 		bool tf = dns_rdatatype_iszonecutauth((dns_rdatatype_t)i);
   3068 		switch (i) {
   3069 		case dns_rdatatype_ns:
   3070 		case dns_rdatatype_ds:
   3071 		case dns_rdatatype_nsec:
   3072 		case dns_rdatatype_key:
   3073 		case dns_rdatatype_rrsig:
   3074 			if (!tf) {
   3075 				print_message(UNR, i);
   3076 			}
   3077 			assert_true(tf);
   3078 			break;
   3079 		default:
   3080 			if (tf) {
   3081 				print_message(UNR, i);
   3082 			}
   3083 			assert_false(tf);
   3084 			break;
   3085 		}
   3086 	}
   3087 #undef UNR
   3088 }
   3089 
   3090 ISC_TEST_LIST_START
   3091 
   3092 /* types */
   3093 ISC_TEST_ENTRY(amtrelay)
   3094 ISC_TEST_ENTRY(apl)
   3095 ISC_TEST_ENTRY(atma)
   3096 ISC_TEST_ENTRY(cdnskey)
   3097 ISC_TEST_ENTRY(csync)
   3098 ISC_TEST_ENTRY(dnskey)
   3099 ISC_TEST_ENTRY(doa)
   3100 ISC_TEST_ENTRY(ds)
   3101 ISC_TEST_ENTRY(eid)
   3102 ISC_TEST_ENTRY(hip)
   3103 ISC_TEST_ENTRY(https_svcb)
   3104 ISC_TEST_ENTRY(isdn)
   3105 ISC_TEST_ENTRY(key)
   3106 ISC_TEST_ENTRY(loc)
   3107 ISC_TEST_ENTRY(nimloc)
   3108 ISC_TEST_ENTRY(nsec)
   3109 ISC_TEST_ENTRY(nsec3)
   3110 ISC_TEST_ENTRY(nxt)
   3111 ISC_TEST_ENTRY(rkey)
   3112 ISC_TEST_ENTRY(sshfp)
   3113 ISC_TEST_ENTRY(wks)
   3114 ISC_TEST_ENTRY(zonemd)
   3115 
   3116 /* other tests */
   3117 ISC_TEST_ENTRY(edns_client_subnet)
   3118 ISC_TEST_ENTRY(atcname)
   3119 ISC_TEST_ENTRY(atparent)
   3120 ISC_TEST_ENTRY(iszonecutauth)
   3121 ISC_TEST_LIST_END
   3122 
   3123 ISC_TEST_MAIN
   3124