path: root/string/tester.c

#include <ansidecl.h>
#include <errno.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <strings.h>
#include <fcntl.h>

#ifndef HAVE_GNU_LD
#define _sys_nerr	sys_nerr
#define _sys_errlist	sys_errlist
#endif

#define	STREQ(a, b)	(strcmp((a), (b)) == 0)

CONST char *it = "<UNSET>";	/* Routine name for message routines. */
size_t errors = 0;

/* Complain if condition is not true.  */
void
DEFUN(check, (thing, number), int thing AND int number)
{
  if (!thing)
    {
      printf("%s flunked test %d\n", it, number);
      ++errors;
    }
}

/* Complain if first two args don't strcmp as equal.  */
void
DEFUN(equal, (a, b, number), CONST char *a AND CONST char *b AND int number)
{
  check(a != NULL && b != NULL && STREQ(a, b), number);
}

char one[50];
char two[50];

int
DEFUN(main, (argc, argv), int argc AND char **argv)
{
  /* Test strcmp first because we use it to test other things.  */
  it = "strcmp";
  check(strcmp("", "") == 0, 1);		/* Trivial case. */
  check(strcmp("a", "a") == 0, 2);		/* Identity. */
  check(strcmp("abc", "abc") == 0, 3);		/* Multicharacter. */
  check(strcmp("abc", "abcd") < 0, 4);		/* Length mismatches. */
  check(strcmp("abcd", "abc") > 0, 5);
  check(strcmp("abcd", "abce") < 0, 6);		/* Honest miscompares. */
  check(strcmp("abce", "abcd") > 0, 7);
  check(strcmp("a\203", "a") > 0, 8);		/* Tricky if char signed. */
  check(strcmp("a\203", "a\003") > 0, 9);

  /* Test strcpy next because we need it to set up other tests.  */
  it = "strcpy";
  check(strcpy(one, "abcd") == one, 1);	/* Returned value. */
  equal(one, "abcd", 2);		/* Basic test. */

  (void) strcpy(one, "x");
  equal(one, "x", 3);			/* Writeover. */
  equal(one+2, "cd", 4);		/* Wrote too much? */

  (void) strcpy(two, "hi there");
  (void) strcpy(one, two);
  equal(one, "hi there", 5);		/* Basic test encore. */
  equal(two, "hi there", 6);		/* Stomped on source? */

  (void) strcpy(one, "");
  equal(one, "", 7);			/* Boundary condition. */

  /* strcat.  */
  it = "strcat";
  (void) strcpy(one, "ijk");
  check(strcat(one, "lmn") == one, 1);	/* Returned value. */
  equal(one, "ijklmn", 2);		/* Basic test. */

  (void) strcpy(one, "x");
  (void) strcat(one, "yz");
  equal(one, "xyz", 3);			/* Writeover. */
  equal(one+4, "mn", 4);