/* $Id$ */
/* Copyright (c) 2012-2017 Pierre Pronchery <khorben@defora.org> */
/* This file is part of DeforaOS System libc */
/* All rights reserved.
 *
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted provided that the following conditions are
 * met:
 *
 * 1. Redistributions of source code must retain the above copyright
 *    notice, this list of conditions and the following disclaimer.
 *
 * 2. Redistributions in binary form must reproduce the above copyright
 *    notice, this list of conditions and the following disclaimer in the
 *    documentation and/or other materials provided with the distribution.
 *
 * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS
 * IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
 * TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A
 * PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT
 * HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
 * SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED
 * TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR
 * PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF
 * LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
 * NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
 * SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. */



#include <string.h>
#include <stdio.h>
#include <errno.h>


/* memchr */
static int _memchr(char const * progname)
{
	int ret = 0;
	char const search[] = "sear\xff\xfe\x7f\x7e\x00\x01ch";
	size_t i;
	void * p;

	printf("%s: Testing %s\n", progname, "memchr()");
	for(i = 0; i < sizeof(search); i++)
	{
		p = memchr(search, search[i], sizeof(search));
		if(p == NULL || strcmp(p, &search[i]) != 0)
			ret += 1;
	}
	ret += memchr(search, 'z', sizeof(search)) == NULL ? 0 : 1;
	return ret;
}


/* strerror */
static int _strerror(char const * progname)
{
	int errors[] =
	{
		0,
		E2BIG,
		EACCES,
		EAGAIN,
		EBADF,
		EBUSY,
		ECHILD,
#ifdef EDOM
		EDOM,
#endif
		EEXIST,
		EFAULT,
		EINTR,
		EINVAL,
		EIO,
		EISDIR,
		ENODEV,
		ENOENT,
		ENOEXEC,
		ENOMEM,
#ifdef ENOSPC
		ENOSPC,
#endif
		ENOSYS,
		ENOTDIR,
		ENOTSUP,
		ENOTTY,
		ENXIO,
#ifdef EOPNOTSUPP
		EOPNOTSUPP,
#endif
		EPERM,
		EPIPE,
		ERANGE,
		EROFS,
#ifdef ESPIPE
		ESPIPE,
#endif
#ifdef ESRCH
		ESRCH,
#endif
		ETIMEDOUT,
		EXDEV
	};
	size_t i;

	for(i = 0; i < sizeof(errors) / sizeof(*errors); i++)
		printf("%s: Testing %s: \"%s\" (%u)\n", progname,
				"strerror()", strerror(errors[i]), errors[i]);
	return 0;
}


/* strstr */
static int _strstr_test(char const * str1, char const * str2,
		char const * expected);

static int _strstr(char const * progname)
{
	printf("%s: Testing %s\n", progname, "strstr()");
	if(_strstr_test("haystack", "needle", NULL) != 0
			|| _strstr_test("needle", "needle", "needle") != 0
			|| _strstr_test("needle ", "needle", "needle ") != 0
			|| _strstr_test("needle again", "needle",
				"needle again") != 0
			|| _strstr_test("haystack with a needle", "needle",
				"needle") != 0
			|| _strstr_test("haystack with a needle ", "needle",
				"needle ") != 0
			|| _strstr_test("haystack with a needle again",
				"needle", "needle again") != 0)
		return -1;
	return 0;
}

static int _strstr_test(char const * str1, char const * str2,
		char const * expected)
{
	int ret;
	char const * res;

	res = strstr(str1, str2);
	if(expected == NULL || res == NULL)
		ret = (res == expected) ? 0 : -1;
	else
		ret = (strcmp(res, expected) == 0) ? 0 : -1;
	printf("\"%s\", \"%s\" => %s%s%s", str1, str2,
			(res != NULL) ? "\"" : "",
			(res != NULL) ? res : "NULL",
			(res != NULL) ? "\"" : "");
	if(ret != 0)
		printf(" (expected: %s%s%s)",
				(expected != NULL) ? "\"" : "",
				(expected != NULL) ? expected : "NULL",
				(expected != NULL) ? "\"" : "");
	putc('\n', stdout);
	return ret;
}


/* main */
int main(int argc, char * argv[])
{
	int ret = 0;
	(void) argc;

	ret |= _memchr(argv[0]);
	ret |= _strerror(argv[0]);
	ret |= _strstr(argv[0]);
	return (ret == 0) ? 0 : 2;
}