remove newlib test code.

git-svn-id: https://rt-thread.googlecode.com/svn/trunk@1055 bbd45198-f89e-11dd-88c7-29a3b14d5316

components/libc/newlib/syscalls.c

@@ -215,897 +215,3 @@ _exit (int status)
     RT_ASSERT(0);
 }
 
-#ifdef RT_USING_FINSH
-#include <finsh.h>
-#include <stdio.h>
-#include <stdlib.h>
-#include <fcntl.h>
-#include <string.h>
-#include <time.h>
-#include <sys/time.h>
-
-char * format[] = {
-  "%",
-  "%0.",
-  "%.0",
-  "%+0.",
-  "%+.0",
-  "%.5",
-  "%+.5",
-  "%2.5",
-  "%22.5",
-  "%022.5",
-  "%#022.5",
-  "%-#022.5",
-  "%+#022.5",
-  "%-22.5",
-  "%+22.5",
-  "%--22.5",
-  "%++22.5",
-  "%+-22.5",
-  "%-+22.5",
-  "%-#022.5",
-  "%-#22.5",
-  "%-2.22",
-  "%+2.22",
-  "%-#02.22",
-  "%-#2.22",
-  "%-1.5",
-  "%1.5",
-  "%-#01.5",
-  "%-#1.5",
-  "%-#.5",
-  "%-#1.",
-  "%-#.",
-  NULL
-};
- 
-
-static void
-intchk (const char *fmt)
-{
-  (void) printf("%15s :, \"", fmt);
-  (void) printf(fmt, 0);
-  (void) printf("\", \"");
-  (void) printf(fmt, 123);
-  (void) printf("\", \"");
-  (void) printf(fmt, -18);
-  (void) printf("\"\n");
-}
-
-static void
-fltchk (const char *fmt)
-{
-  (void) printf("%15s :, \"", fmt);
-  (void) printf(fmt, 0.0);
-  (void) printf("\", \"");
-  (void) printf(fmt, 123.0001);
-  (void) printf("\", \"");
-  (void) printf(fmt, -18.0002301);
-  (void) printf("\"\n");
-}
-
-void fprintf_test()
-{
-	printf("stdout test!!\n");
-	fprintf(stdout, "fprintf test!!\n");
-	fprintf(stderr, "fprintf test!!\n");
-	puts("puts test!!\n");
-}
-
-int speed()
-{
-  int i;
-  time_t t;
-  
-  printf("%d\n", time(0));
-  for (i=0; i<10000000; ++i)
-    t=time(0);
-
- printf("%d\n", time(0));
- return 0;   
-}
-
-int printf_test()
-{
-  char buf[256];
-  int i;
-  
-  printf("%s\n\n", "# vim:syntax=off:");
-  
-  /* integers */
-  for(i=0;format[i];i++) {
-    strcpy(buf, format[i]);
-    strcat(buf, "d");
-    intchk(buf);
-  }
-  
-  /* floats */
-  for(i=0;format[i];i++) {
-    strcpy(buf, format[i]);
-    strcat(buf, "f");
-    fltchk(buf);
-  }
-  /* hexa */
-  for(i=0;format[i];i++) {
-    strcpy(buf, format[i]);
-    strcat(buf, "x");
-    intchk(buf);
-  }
-  
-  printf("#%.4x %4x#\n", 4, 88);
-  printf("#%4x#\n",4);
-  printf("#%#22.8x#\n",1234567);
-  
-  printf("#%+2i#\n",18);
-  printf("#%i#\n",18);
-  printf("#%llu#\n",4294967297ULL);
-  printf("#%#x#\n",44444);
-  printf("#%-8i#\n",33);
-  printf("#%i#\n",18);
-  printf("#%d#\n",18);
-  printf("#%u#\n",18);
-  printf("#%lu#\n",18);
-  printf("#%li#\n",18);
-  printf("#%-+#06d#\n", -123);
-  printf("#%-+#6d#\n", -123);
-  printf("#%+#06d#\n", -123);
-  printf("#%06d#\n", -123);
-  printf("#%+15s#\n","ABCDEF");
-  /* from ncurses make_keys */
-  printf("{ %4d, %-*.*s },\t/* %s */\n", 139, 16, 16, "KEY_A1", "key_a1");
-  printf("{ %4d, %-*.*s },\t/* %s */\n", 139, 16,  2, "KEY_A1", "key_a1");
-  printf("{ %4d, %-*.*s },\t/* %s */\n", 139,  2, 16, "KEY_A1", "key_a1");
-  printf("{ %4d, %-*.*s },\t/* %s */\n", 139, 16,  0, "KEY_A1", "key_a1");
-  printf("{ %4d, %-*.*s },\t/* %s */\n", 139,  0, 16, "KEY_A1", "key_a1");
-  printf("{ %4d, %-*.*s },\t/* %s */\n", 139,  0,  0, "KEY_A1", "key_a1");
-  printf("{ %4d, %*.*s },\t/* %s */\n", 139, 16, 16, "KEY_A1", "key_a1");
-  printf("{ %4d, %*.*s },\t/* %s */\n", 139, 16,  2, "KEY_A1", "key_a1");
-  printf("{ %4d, %*.*s },\t/* %s */\n", 139,  2, 16, "KEY_A1", "key_a1");
-  printf("{ %4d, %*.*s },\t/* %s */\n", 139, 16,  0, "KEY_A1", "key_a1");
-  printf("{ %4d, %*.*s },\t/* %s */\n", 139,  0, 16, "KEY_A1", "key_a1");
-  printf("{ %4d, %*.*s },\t/* %s */\n", 139,  0,  0, "KEY_A1", "key_a1");
-  printf("%*.*f\n",  0, 16, 0.0);
-  printf("%*.*f\n", 16, 16, 0.0);
-  printf("%*.*f\n",  2, 2,  -0.0);
-  printf("%*.*f\n", 20, 0,  -123.123);
-  printf("%*.*f\n", 10, 0,  +123.123);
-  
-  
-  i = printf("\"%s\"\n","A");
-  printf("%i\n", i); 
-  /* from glibc's tst-printf.c */
-  
-  {
-    char buf[20];
-    char buf2[512];
-    int i;
-
-    printf ("snprintf (\"%%30s\", \"foo\") == %d, \"%.*s\"\n",
-	    snprintf (buf, sizeof (buf), "%30s", "foo"), (int) sizeof (buf),
-	    buf);
-    memset(buf2,0,sizeof(buf));
-    i=snprintf(buf2, 256, "%.9999u", 10);
-    printf("%i %i\n",i,strlen(buf2));
-    
-    printf ("snprintf (\"%%.999999u\", 10) == %d\n",
-    	    snprintf(buf2, sizeof(buf2), "%.999999u", 10));
-  }
-  return 0;
-}
-
-#if 0	// FAILED: no glob
-#include <glob.h>
-int glob_test()
-{
-  glob_t g;
-  int i;
-  printf("%d\n", glob("/*.hdc",0,0,&g));
-  for (i=0; i<g.gl_pathc; ++i)
-    printf("  %s\n",g.gl_pathv[i]);
-return 0;
-}
-#endif
-
-#include <assert.h>
-
-int getenv_test()
-{
-  printf("PATH=%s\n", getenv("PATH"));
-  putenv("foo=bar");
-  printf("foo=%s\n", getenv("foo"));
-  return 0;
-}
-
-void dprintf_test()
-{
-	int fd;
-
-	fd = open("/dev/console", O_WRONLY, 0);
-	if (fd >0)
-	{
-		dprintf(fd, "fd:%d printf test!!\n", fd);
-		close(fd);
-	}
-}
-
-#if 0 // FAILED: no dirname
-#include <libgen.h>
-#include <assert.h>
-
-int dirname_test()
-{
-     char s[80];
-
-     strncpy(s,"/usr/lib",80);       assert(strcmp(dirname(s),   "/usr")==0);
-     strncpy(s,"/usr/",80);          assert(strcmp(dirname(s),   "/")==0);
-     strncpy(s,"usr",80);            assert(strcmp(dirname(s),   ".")==0);
-     strncpy(s,"usr/test",80);       assert(strcmp(dirname(s),   "usr")==0);
-     strncpy(s,"usr/test/test2",80); assert(strcmp(dirname(s),   "usr/test")==0);
-     strncpy(s,"/usr",80);           assert(strcmp(dirname(s),   "/")==0);
-     strncpy(s,"/",80);              assert(strcmp(dirname(s),   "/")==0);
-     strncpy(s,".",80);              assert(strcmp(dirname(s),   ".")==0);
-     strncpy(s,"..",80);             assert(strcmp(dirname(s),   ".")==0);
-     strncpy(s,"////",80);           assert(strcmp(dirname(s),   "/")==0);
-     strncpy(s,"//",80);             assert(strcmp(dirname(s),   "/")==0);
-                                     assert(strcmp(dirname(NULL),".")==0);
-     s[0]=0;                         assert(strcmp(dirname(s),   ".")==0);
-
-     puts("OK");
-     return 0;
-}
-#endif
-
-void fdopen_test()
-{
-	int fd;
-	FILE* fp;
-
-	fd = open("/dev/console", O_WRONLY, 0);
-	if (fd >0)
-	{
-		fp = fdopen(fd, "w");
-		fprintf(fp, "fdopen test, fd %d!!\n", fileno(fp));
-		fclose(fp);
-	}
-}
-
-static int errors = 0;
-
-static void
-merror (const char *msg)
-{
-  ++errors;
-  printf ("Error: %s\n", msg);
-}
-
-int malloc_test (void)
-{
-  void *p;
-  int save;
-
-  errno = 0;
-
-  p = malloc (-1);
-  save = errno;
-
-  if (p != NULL)
-    merror ("malloc (-1) succeeded.");
-
-  if (p == NULL && save != ENOMEM)
-    merror ("errno is not set correctly");
-
-  p = malloc (10);
-  if (p == NULL)
-    merror ("malloc (10) failed.");
-
-  /* realloc (p, 0) == free (p).  */
-  p = realloc (p, 0);
-  if (p != NULL)
-    merror ("realloc (p, 0) failed.");
-
-  p = malloc (0);
-  if (p == NULL)
-    merror ("malloc (0) failed.");
-
-  p = realloc (p, 0);
-  if (p != NULL)
-    merror ("realloc (p, 0) failed.");
-
-  return errors != 0;
-}
-
-void putc_test()
-{
-  putc ('1', stderr);
-  putc ('2', stderr);
-  putc ('\n', stderr);
-}
-
-#include <dirent.h>
-int dirent_test ()
-{
-  DIR * dirp;
-  long int save3 = 0;
-  long int cur;
-  int i = 0;
-  int result = 0;
-  struct dirent *dp;
-
-  dirp = opendir ("/");
-  for (dp = readdir (dirp); dp != NULL; dp = readdir (dirp))
-    {
-      /* save position 3 (after fourth entry) */
-      if (i++ == 3)
-	save3 = telldir (dirp);
-
-      printf ("%s\n", dp->d_name);
-
-      /* stop at 400 (just to make sure dirp->__offset and dirp->__size are
-	 scrambled */
-      if (i == 400)
-	break;
-    }
-
-  printf ("going back past 4-th entry...\n");
-
-  /* go back to saved entry */
-  seekdir (dirp, save3);
-
-  /* Check whether telldir equals to save3 now.  */
-  cur = telldir (dirp);
-  if (cur != save3)
-    {
-      printf ("seekdir (d, %ld); telldir (d) == %ld\n", save3, cur);
-      result = 1;
-    }
-
-  /* print remaining files (3-last) */
-  for (dp = readdir (dirp); dp != NULL; dp = readdir (dirp))
-    printf ("%s\n", dp->d_name);
-
-
-  closedir (dirp);
-  return result;
-}
-
-int
-rand_test (void)
-{
-  int i1, i2;
-  int j1, j2;
-
-  /* The C standard says that "If rand is called before any calls to
-     srand have been made, the same sequence shall be generated as
-     when srand is first called with a seed value of 1." */
-  i1 = rand();
-  i2 = rand();
-  srand (1);
-  j1 = rand();
-  j2 = rand();
-  if (i1 < 0 || i2 < 0 || j1 < 0 || j2 < 0) {
-      puts ("Test FAILED!");
-  }
-  if (j1 == i1 && j2 == i2)
-    {
-      puts ("Test succeeded.");
-      return 0;
-    }
-  else
-    {
-      if (j1 != i1)
-	printf ("%d != %d\n", j1, i1);
-      if (j2 != i2)
-	printf ("%d != %d\n", j2, i2);
-      puts ("Test FAILED!");
-      return 1;
-    }
-}
-
-void sleep(int tick)
-{
-	rt_thread_sleep(tick);
-}
-
-#include <sys/stat.h>
-int
-fseek_test (void)
-{
-  const char *tmpdir;
-  char *fname;
-  int fd;
-  FILE *fp;
-  const char outstr[] = "hello world!\n";
-  char strbuf[sizeof outstr];
-  char buf[200];
-  struct stat st1;
-  struct stat st2;
-  int result = 0;
-
-  tmpdir = getenv ("TMPDIR");
-  if (tmpdir == NULL || tmpdir[0] == '\0')
-    tmpdir = "/tmp";
-
-  asprintf (&fname, "%s/tst-fseek.XXXXXX", tmpdir);
-  if (fname == NULL) {
-    fprintf(stderr, "cannot generate name for temporary file: %s\n",strerror(errno));
-    return 1;
-  }  
-
-  /* Create a temporary file.   */
-  fd = mkstemp (fname);
-  if (fd == -1) {
-    fprintf(stderr, "cannot open temporary file: %s\n",strerror(errno));
-    return 1;
-  }  
-
-  fp = fdopen (fd, "w+");
-  if (fp == NULL) {
-    fprintf(stderr, "cannot get FILE for temporary file: %s\n",strerror(errno));
-    return 1;
-  }
-  setbuffer (fp, strbuf, sizeof (outstr) -1);
-
-  if (fwrite (outstr, sizeof (outstr) - 1, 1, fp) != 1)
-    {
-      printf ("%d: write error\n", __LINE__);
-      result = 1;
-      goto out;
-    }
-
-  /* The EOF flag must be reset.  */
-  if (fgetc (fp) != EOF)
-    {
-      printf ("%d: managed to read at end of file\n", __LINE__);
-      result = 1;
-    }
-  else if (! feof (fp))
-    {
-      printf ("%d: EOF flag not set\n", __LINE__);
-      result = 1;
-    }
-  if (fseek (fp, 0, SEEK_CUR) != 0)
-    {
-      printf ("%d: fseek(fp, 0, SEEK_CUR) failed\n", __LINE__);
-      result = 1;
-    }
-  else if (feof (fp))
-    {
-      printf ("%d: fseek() didn't reset EOF flag\n", __LINE__);
-      result = 1;
-    }
-
-  /* Do the same for fseeko().  */
-    if (fgetc (fp) != EOF)
-    {
-      printf ("%d: managed to read at end of file\n", __LINE__);
-      result = 1;
-    }
-  else if (! feof (fp))
-    {
-      printf ("%d: EOF flag not set\n", __LINE__);
-      result = 1;
-    }
-  if (fseeko (fp, 0, SEEK_CUR) != 0)
-    {
-      printf ("%d: fseek(fp, 0, SEEK_CUR) failed\n", __LINE__);
-      result = 1;
-    }
-  else if (feof (fp))
-    {
-      printf ("%d: fseek() didn't reset EOF flag\n", __LINE__);
-      result = 1;
-    }
-
-  /* Go back to the beginning of the file: absolute.  */
-  if (fseek (fp, 0, SEEK_SET) != 0)
-    {
-      printf ("%d: fseek(fp, 0, SEEK_SET) failed\n", __LINE__);
-      result = 1;
-    }
-  else if (fflush (fp) != 0)
-    {
-      printf ("%d: fflush() failed\n", __LINE__);
-      result = 1;
-    }
-  else if (lseek (fd, 0, SEEK_CUR) != 0)
-    {
-      int pos = lseek (fd, 0, SEEK_CUR);
-      printf ("%d: lseek() returned different position, pos %d\n", __LINE__, pos);
-      result = 1;
-    }
-  else if (fread (buf, sizeof (outstr) - 1, 1, fp) != 1)
-    {
-      printf ("%d: fread() failed\n", __LINE__);
-      result = 1;
-    }
-  else if (memcmp (buf, outstr, sizeof (outstr) - 1) != 0)
-    {
-      printf ("%d: content after fseek(,,SEEK_SET) wrong\n", __LINE__);
-      result = 1;
-    }
-
-  /* Now with fseeko.  */
-  if (fseeko (fp, 0, SEEK_SET) != 0)
-    {
-      printf ("%d: fseeko(fp, 0, SEEK_SET) failed\n", __LINE__);
-      result = 1;
-    }
-  else if (fflush (fp) != 0)
-    {
-      printf ("%d: fflush() failed\n", __LINE__);
-      result = 1;
-    }
-  else if (lseek (fd, 0, SEEK_CUR) != 0)
-    {
-      printf ("%d: lseek() returned different position\n", __LINE__);
-      result = 1;
-    }
-  else if (fread (buf, sizeof (outstr) - 1, 1, fp) != 1)
-    {
-      printf ("%d: fread() failed\n", __LINE__);
-      result = 1;
-    }
-  else if (memcmp (buf, outstr, sizeof (outstr) - 1) != 0)
-    {
-      printf ("%d: content after fseeko(,,SEEK_SET) wrong\n", __LINE__);
-      result = 1;
-    }
-
-  /* Go back to the beginning of the file: relative.  */
-  if (fseek (fp, -((int) sizeof (outstr) - 1), SEEK_CUR) != 0)
-    {
-      printf ("%d: fseek(fp, 0, SEEK_SET) failed\n", __LINE__);
-      result = 1;
-    }
-  else if (fflush (fp) != 0)
-    {
-      printf ("%d: fflush() failed\n", __LINE__);
-      result = 1;
-    }
-  else if (lseek (fd, 0, SEEK_CUR) != 0)
-    {
-      printf ("%d: lseek() returned different position\n", __LINE__);
-      result = 1;
-    }
-  else if (fread (buf, sizeof (outstr) - 1, 1, fp) != 1)
-    {
-      printf ("%d: fread() failed\n", __LINE__);
-      result = 1;
-    }
-  else if (memcmp (buf, outstr, sizeof (outstr) - 1) != 0)
-    {
-      printf ("%d: content after fseek(,,SEEK_SET) wrong\n", __LINE__);
-      result = 1;
-    }
-
-  /* Now with fseeko.  */
-  if (fseeko (fp, -((int) sizeof (outstr) - 1), SEEK_CUR) != 0)
-    {
-      printf ("%d: fseeko(fp, 0, SEEK_SET) failed\n", __LINE__);
-      result = 1;
-    }
-  else if (fflush (fp) != 0)
-    {
-      printf ("%d: fflush() failed\n", __LINE__);
-      result = 1;
-    }
-  else if (lseek (fd, 0, SEEK_CUR) != 0)
-    {
-      printf ("%d: lseek() returned different position\n", __LINE__);
-      result = 1;
-    }
-  else if (fread (buf, sizeof (outstr) - 1, 1, fp) != 1)
-    {
-      printf ("%d: fread() failed\n", __LINE__);
-      result = 1;
-    }
-  else if (memcmp (buf, outstr, sizeof (outstr) - 1) != 0)
-    {
-      printf ("%d: content after fseeko(,,SEEK_SET) wrong\n", __LINE__);
-      result = 1;
-    }
-
-  /* Go back to the beginning of the file: from the end.  */
-  if (fseek (fp, -((int) sizeof (outstr) - 1), SEEK_END) != 0)
-    {
-      printf ("%d: fseek(fp, 0, SEEK_SET) failed\n", __LINE__);
-      result = 1;
-    }
-  else if (fflush (fp) != 0)
-    {
-      printf ("%d: fflush() failed\n", __LINE__);
-      result = 1;
-    }
-  else if (lseek (fd, 0, SEEK_CUR) != 0)
-    {
-      printf ("%d: lseek() returned different position\n", __LINE__);
-      result = 1;
-    }
-  else if (fread (buf, sizeof (outstr) - 1, 1, fp) != 1)
-    {
-      printf ("%d: fread() failed\n", __LINE__);
-      result = 1;
-    }
-  else if (memcmp (buf, outstr, sizeof (outstr) - 1) != 0)
-    {
-      printf ("%d: content after fseek(,,SEEK_SET) wrong\n", __LINE__);
-      result = 1;
-    }
-
-  /* Now with fseeko.  */
-  if (fseeko (fp, -((int) sizeof (outstr) - 1), SEEK_END) != 0)
-    {
-      printf ("%d: fseeko(fp, 0, SEEK_SET) failed\n", __LINE__);
-      result = 1;
-    }
-  else if (fflush (fp) != 0)
-    {
-      printf ("%d: fflush() failed\n", __LINE__);
-      result = 1;
-    }
-  else if (lseek (fd, 0, SEEK_CUR) != 0)
-    {
-      printf ("%d: lseek() returned different position\n", __LINE__);
-      result = 1;
-    }
-  else if (fread (buf, sizeof (outstr) - 1, 1, fp) != 1)
-    {
-      printf ("%d: fread() failed\n", __LINE__);
-      result = 1;
-    }
-  else if (memcmp (buf, outstr, sizeof (outstr) - 1) != 0)
-    {
-      printf ("%d: content after fseeko(,,SEEK_SET) wrong\n", __LINE__);
-      result = 1;
-    }
-
-  if (fwrite (outstr, sizeof (outstr) - 1, 1, fp) != 1)
-    {
-      printf ("%d: write error 2\n", __LINE__);
-      result = 1;
-      goto out;
-    }
-
-  if (fwrite (outstr, sizeof (outstr) - 1, 1, fp) != 1)
-    {
-      printf ("%d: write error 3\n", __LINE__);
-      result = 1;
-      goto out;
-    }
-
-  if (fwrite (outstr, sizeof (outstr) - 1, 1, fp) != 1)
-    {
-      printf ("%d: write error 4\n", __LINE__);
-      result = 1;
-      goto out;
-    }
-
-  if (fwrite (outstr, sizeof (outstr) - 1, 1, fp) != 1)
-    {
-      printf ("%d: write error 5\n", __LINE__);
-      result = 1;
-      goto out;
-    }
-
-  if (fputc ('1', fp) == EOF || fputc ('2', fp) == EOF)
-    {
-      printf ("%d: cannot add characters at the end\n", __LINE__);
-      result = 1;
-      goto out;
-    }
-
-  /* Check the access time.  */
-  if (fstat (fd, &st1) < 0)
-    {
-      printf ("%d: fstat64() before fseeko() failed\n\n", __LINE__);
-      result = 1;
-    }
-  else
-    {
-      sleep (1);
-
-      if (fseek (fp, -(2 + 2 * (sizeof (outstr) - 1)), SEEK_CUR) != 0)
-	{
-	  printf ("%d: fseek() after write characters failed\n", __LINE__);
-	  result = 1;
-	  goto out;
-	}
-      else
-	{
-
-	  time_t t;
-	  /* Make sure the timestamp actually can be different.  */
-	  sleep (1);
-	  t = time (NULL);
-
-	  if (fstat (fd, &st2) < 0)
-	    {
-	      printf ("%d: fstat64() after fseeko() failed\n\n", __LINE__);
-	      result = 1;
-	    }
-	  if (st1.st_ctime >= t)
-	    {
-	      printf ("%d: st_ctime not updated\n", __LINE__);
-	      result = 1;
-	    }
-	  if (st1.st_mtime >= t)
-	    {
-	      printf ("%d: st_mtime not updated\n", __LINE__);
-	      result = 1;
-	    }
-	  if (st1.st_ctime >= st2.st_ctime)
-	    {
-	      printf ("%d: st_ctime not changed\n", __LINE__);
-	      result = 1;
-	    }
-	  if (st1.st_mtime >= st2.st_mtime)
-	    {
-	      printf ("%d: st_mtime not changed\n", __LINE__);
-	      result = 1;
-	    }
-	}
-    }
-
-  if (fread (buf, 1, 2 + 2 * (sizeof (outstr) - 1), fp)
-      != 2 + 2 * (sizeof (outstr) - 1))
-    {
-      printf ("%d: reading 2 records plus bits failed\n", __LINE__);
-      result = 1;
-    }
-  else if (memcmp (buf, outstr, sizeof (outstr) - 1) != 0
-	   || memcmp (&buf[sizeof (outstr) - 1], outstr,
-		      sizeof (outstr) - 1) != 0
-	   || buf[2 * (sizeof (outstr) - 1)] != '1'
-	   || buf[2 * (sizeof (outstr) - 1) + 1] != '2')
-    {
-      printf ("%d: reading records failed\n", __LINE__);
-      result = 1;
-    }
-  else if (ungetc ('9', fp) == EOF)
-    {
-      printf ("%d: ungetc() failed\n", __LINE__);
-      result = 1;
-    }
-  else if (fseek (fp, -(2 + 2 * (sizeof (outstr) - 1)), SEEK_END) != 0)
-    {
-      printf ("%d: fseek after ungetc failed\n", __LINE__);
-      result = 1;
-    }
-  else if (fread (buf, 1, 2 + 2 * (sizeof (outstr) - 1), fp)
-      != 2 + 2 * (sizeof (outstr) - 1))
-    {
-      printf ("%d: reading 2 records plus bits failed\n", __LINE__);
-      result = 1;
-    }
-  else if (memcmp (buf, outstr, sizeof (outstr) - 1) != 0
-	   || memcmp (&buf[sizeof (outstr) - 1], outstr,
-		      sizeof (outstr) - 1) != 0
-	   || buf[2 * (sizeof (outstr) - 1)] != '1')
-    {
-      printf ("%d: reading records for the second time failed\n", __LINE__);
-      result = 1;
-    }
-  else if (buf[2 * (sizeof (outstr) - 1) + 1] == '9')
-    {
-      printf ("%d: unget character not ignored\n", __LINE__);
-      result = 1;
-    }
-  else if (buf[2 * (sizeof (outstr) - 1) + 1] != '2')
-    {
-      printf ("%d: unget somehow changed character\n", __LINE__);
-      result = 1;
-    }
-
-  fclose (fp);
-
-  fp = fopen (fname, "r");
-  if (fp == NULL)
-    {
-      printf ("%d: fopen() failed\n\n", __LINE__);
-      result = 1;
-    }
-  else if (fstat (fileno (fp), &st1) < 0)
-    {
-      printf ("%d: fstat64() before fseeko() failed\n\n", __LINE__);
-      result = 1;
-    }
-  else if (fseeko (fp, 0, SEEK_END) != 0)
-    {
-      printf ("%d: fseeko(fp, 0, SEEK_END) failed\n", __LINE__);
-      result = 1;
-    }
-  else if (ftello (fp) != st1.st_size)
-    {
-      printf ("%d: fstat64 st_size %zd ftello %zd\n", __LINE__,
-	      (size_t) st1.st_size, (size_t) ftello (fp));
-      result = 1;
-    }
-  else
-    printf ("%d: SEEK_END works\n", __LINE__);
-  if (fp != NULL)
-    fclose (fp);
-
-  fp = fopen (fname, "r");
-  if (fp == NULL)
-    {
-      printf ("%d: fopen() failed\n\n", __LINE__);
-      result = 1;
-    }
-  else if (fstat (fileno (fp), &st1) < 0)
-    {
-      printf ("%d: fstat64() before fgetc() failed\n\n", __LINE__);
-      result = 1;
-    }
-  else if (fgetc (fp) == EOF)
-    {
-      printf ("%d: fgetc() before fseeko() failed\n\n", __LINE__);
-      result = 1;
-    }
-  else if (fseeko (fp, 0, SEEK_END) != 0)
-    {
-      printf ("%d: fseeko(fp, 0, SEEK_END) failed\n", __LINE__);
-      result = 1;
-    }
-  else if (ftello (fp) != st1.st_size)
-    {
-      printf ("%d: fstat64 st_size %zd ftello %zd\n", __LINE__,
-	      (size_t) st1.st_size, (size_t) ftello (fp));
-      result = 1;
-    }
-  else
-    printf ("%d: SEEK_END works\n", __LINE__);
-  if (fp != NULL)
-    fclose (fp);
-
- out:
-  unlink (fname);
-
-  return result;
-}
-
-const char* text = "this is a test string\n";
-void lseek_test()
-{
-	int fd;
-
-	fd = open("/tmp/tt.txt", O_WRONLY | O_CREAT, 0);
-	if (fd < 0) 
-	{
-		printf("open failed\n");
-		return ;
-	}
-
-	write(fd, text, strlen(text) + 1);
-	printf("begin: %d\n", lseek(fd, 0, SEEK_SET));
-	printf("end: %d\n", lseek(fd, 0, SEEK_END));
-	close(fd);
-}
-
-void fstat_test()
-{
-	int fd;
-  	struct stat s;
-
-	fd = open("/tmp/tt.txt", O_WRONLY | O_CREAT, 0);
-	if (fd < 0) 
-	{
-		printf("open failed\n");
-		return ;
-	}
-
-	write(fd, text, strlen(text) + 1);
-	printf("begin: %d\n", lseek(fd, 0, SEEK_SET));
-	printf("end: %d\n", lseek(fd, 0, SEEK_END));
-
-	printf("fstat result: %d\n", fstat(fd, &s));
-	close(fd);
-}
-
-void nltest()
-{
-	fseek_test();
-}
-FINSH_FUNCTION_EXPORT(nltest, newlib test);
-#endif
-