/*
 * ngIRCd -- The Next Generation IRC Daemon
 * Copyright (c)2001-2014 Alexander Barton (alex@barton.de) and Contributors.
 *
 * This program is free software; you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation; either version 2 of the License, or
 * (at your option) any later version.
 * Please read the file COPYING, README and AUTHORS for more information.
 */

#include "portab.h"

/**
 * @file
 * Test program for portab.h and friends ;-)
 */

#include <stdarg.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>

int allow_severity = 0, deny_severity = 0;

static void
Panic(char *Reason)
{
	/* Oops, something failed!? */
	fprintf(stderr, "Oops, test for %s failed!?\n", Reason);
	exit(1);
} /* Panic */

static void
Check_snprintf(void)
{
	char str[5];

	snprintf(str, sizeof(str), "%s", "1234567890");
	if (str[4] != '\0')
		Panic("snprintf NULL byte");
	if (strlen(str) != 4)
		Panic("snprintf string length");
}

static void
Check_strdup(void)
{
	char *ptr;

	ptr = strdup("1234567890");
	if (!ptr)
		Panic("strdup");
	if (ptr[10] != '\0')
		Panic("strdup NULL byte");
	if (strlen(ptr) != 10)
		Panic("strdup string length");
	free(ptr);
}

static void
Check_strndup(void)
{
	char *ptr;

	ptr = strndup("1234567890", 5);
	if (!ptr)
		Panic("strndup");
	if (ptr[5] != '\0')
		Panic("strndup NULL byte");
	if (strlen(ptr) != 5)
		Panic("strndup string length");
	free(ptr);
}

static void
Check_strlcpy(void)
{
	char str[5];

	if (strlcpy(str, "1234567890", sizeof(str)) != 10)
		Panic("strlcpy return code");
	if (str[4] != '\0')
		Panic("strlcpy NULL byte");
	if (strlen(str) != 4)
		Panic("strlcpy string length");
}

static void
Check_strlcat(void)
{
	char str[5];

	if (strlcpy(str, "12", sizeof(str)) != 2)
		Panic("strlcpy for strlcat");
	if (strlcat(str, "1234567890", sizeof(str)) != 12)
		Panic("strlcat return code");
	if (str[4] != '\0')
		Panic("strlcat NULL byte");
	if (strlen(str) != 4)
		Panic("strlcat string length");
}

static void
Check_strtok_r(void)
{
	char *str, *ptr, *last;

	ptr = strdup("12,abc");
	str = ptr;

	ptr = strtok_r(ptr, ",", &last);
	if (!ptr)
		Panic("strtok_r result #1");
	if (strcmp(ptr, "12") != 0)
		Panic("strtok_r token #1");

	ptr = strtok_r(NULL, ",", &last);
	if (!ptr)
		Panic("strtok_r result #2");
	if (strcmp(ptr, "abc") != 0)
		Panic("strtok_r token #2");

	ptr = strtok_r(NULL, ",", &last);
	if (ptr)
		Panic("strtok_r result #3");

	free(str);
}

#ifdef PROTOTYPES
static void
Check_vsnprintf(const int Len, const char *Format, ...)
#else
static void
Check_vsnprintf(Len, Format, va_alist)
const int Len;
const char *Format;
va_dcl
#endif
{
	char str[5];
	va_list ap;
	int r;

#ifdef PROTOTYPES
	va_start(ap, Format);
#else
	va_start(ap);
#endif
	r = vsnprintf(str, sizeof(str), Format, ap);
	va_end(ap);
	if (r != Len) {
		/* C99 states that vsnprintf() "returns the number of
		 * characters that would have been printed if the n were
		 * unlimited", but according to the Linux manual page "glibc
		 * until 2.0.6 would return -1 when the output was truncated",
		 * and other implementations (libUTIL on A/UX) even return the
		 * number of characters processed ... so we only test our own
		 * implementation and warn on errors otherwise :-/ */
#ifdef HAVE_VSNPRINTF
		fprintf(stderr,
			"\n ** WARNING: The vsnprintf() function of this system isn't standard\n");
		fprintf(stderr,
			" ** conformant and returns a WRONG result: %d (should be %d)! The test\n",
			r, Len);
		fprintf(stderr,
			" ** result has been ignored but may lead to errors during execution!\n\n");
#else
		Panic("vsnprintf return code");
#endif
	}
	if (str[4] != '\0')
		Panic("vsnprintf NULL byte");
	if (strlen(str) != 4)
		Panic("vsnprintf string length");
}

GLOBAL int
main(void)
{
	/* validate datatypes */
	if (false != 0)
		Panic("false");
	if (true != 1)
		Panic("true");
	if (sizeof(UINT8) != 1)
		Panic("UINT8");
	if (sizeof(UINT16) != 2)
		Panic("UINT16");
	if (sizeof(UINT32) != 4)
		Panic("UINT32");

	/* check functions */
	Check_snprintf();
	Check_strdup();
	Check_strndup();
	Check_strlcpy();
	Check_strlcat();
	Check_strtok_r();
	Check_vsnprintf(2+10, "%s%s", "ab", "1234567890");

	return 0;
}

/* -eof- */