/* HEADER Testing inet_pton() and inet_ntop() */

int i;
char str[128];
struct in_addr in_addr;
struct in6_addr in6_addr;

static const struct { const char* s; unsigned char b[4]; } in_testdata[] = {
    { "0.0.0.0",         {   0,   0,   0,   0 } },
    { "1.2.3.4",         {   1,   2,   3,   4 } },
    { "255.255.255.255", { 255, 255, 255, 255 } },
};

static const struct { const char* s; unsigned char b[16]; } in6_testdata[] = {
    { "::",   { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 }, },
    { "::1",  { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1 }, },
    { "1::",  { 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 }, },
    { "1::1", { 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1 }, },
};

for (i = 0; i < sizeof(in_testdata)/sizeof(in_testdata[0]); ++i) {
    const unsigned char *const b = in_testdata[i].b;

    OKF(inet_pton(AF_INET, in_testdata[i].s, &in_addr) == 1,
	("IPv4 inet_pton(%s)", in_testdata[i].s));
    OK(ntohl(in_addr.s_addr)
       == ((b[0] << 24) | (b[1] << 16) | (b[2] << 8) | b[3]),
       "inet_pton() value");
    OK(inet_ntop(AF_INET, &in_addr, str, sizeof(str)) == str,
       "IPv4 inet_ntop()");
    OKF(strcmp(in_testdata[i].s, str) == 0,
	("%s =?= %s", in_testdata[i].s, str));
}


for (i = 0; i < sizeof(in6_testdata)/sizeof(in6_testdata[0]); ++i) {
    const unsigned char *const b = in6_testdata[i].b;
    const unsigned char *const r = (void *)&in6_addr;
    int result, j;

    result = inet_pton(AF_INET6, in6_testdata[i].s, &in6_addr);
    OKF(result == 1,
	("IPv6 inet_pton(%s) -> %d; "
	 " %02x%02x:%02x%02x:%02x%02x:%02x%02x"
	 ":%02x%02x:%02x%02x:%02x%02x:%02x%02x",
	 in6_testdata[i].s, result,
	 r[0], r[1], r[ 2], r[ 3], r[ 4], r[ 5], r[ 6], r[ 7],
	 r[8], r[9], r[10], r[11], r[12], r[13], r[14], r[15]
	 ));
    for (j = 0; j < 16; ++j)
	printf("%02x ", b[j]);
    printf("\n");
    for (j = 0; j < 16; ++j)
	OKF(r[j] == b[j],
	    ("IPv6 inet_pton() value (%#02x =?= %#02x)", r[j], b[j]));
    OK(inet_ntop(AF_INET6, &in6_addr, str, sizeof(str)) == str,
       "IPv6 inet_ntop()");
    OKF(strcmp(in6_testdata[i].s, str) == 0,
	("%s =?= %s", in6_testdata[i].s, str));
}