reactos/apps/tests/test_old/test-fseek.c

   1 /* Copyright (C) 1991, 1992, 1996, 1997 Free Software Foundation, Inc.
   2    This file is part of the GNU C Library.
   3
   4    The GNU C Library is free software; you can redistribute it and/or
   5    modify it under the terms of the GNU Library General Public License as
   6    published by the Free Software Foundation; either version 2 of the
   7    License, or (at your option) any later version.
   8
   9    The GNU C Library is distributed in the hope that it will be useful,
  10    but WITHOUT ANY WARRANTY; without even the implied warranty of
  11    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  12    Library General Public License for more details.
  13
  14    You should have received a copy of the GNU Library General Public
  15    License along with the GNU C Library; see the file COPYING.LIB.  If not,
  16    write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
  17    Boston, MA 02111-1307, USA.  */
  18
  19 #include <stdio.h>
  20
  21 #define TESTFILE "/tmp/test.dat"
  22
  23 int
  24 main (void)
  25 {
  26   FILE *fp;
  27   int i, j;
  28
  29   puts ("\nFile seek test");
  30   fp = fopen (TESTFILE, "w");
  31   if (fp == NULL)
  32     {
  33       perror (TESTFILE);
  34       return 1;
  35     }
  36
  37   for (i = 0; i < 256; i++)
  38     putc (i, fp);
  39   if (freopen (TESTFILE, "r", fp) != fp)
  40     {
  41       perror ("Cannot open file for reading");
  42       return 1;
  43     }
  44
  45   for (i = 1; i <= 255; i++)
  46     {
  47       printf ("%3d\n", i);
  48       fseek (fp, (long) -i, SEEK_END);
  49       if ((j = getc (fp)) != 256 - i)
  50         {
  51           printf ("SEEK_END failed %d\n", j);
  52           break;
  53         }
  54       if (fseek (fp, (long) i, SEEK_SET))
  55         {
  56           puts ("Cannot SEEK_SET");
  57           break;
  58         }
  59       if ((j = getc (fp)) != i)
  60         {
  61           printf ("SEEK_SET failed %d\n", j);
  62           break;
  63         }
  64       if (fseek (fp, (long) i, SEEK_SET))
  65         {
  66           puts ("Cannot SEEK_SET");
  67           break;
  68         }
  69       if (fseek (fp, (long) (i >= 128 ? -128 : 128), SEEK_CUR))
  70         {
  71           puts ("Cannot SEEK_CUR");
  72           break;
  73         }
  74       if ((j = getc (fp)) != (i >= 128 ? i - 128 : i + 128))
  75         {
  76           printf ("SEEK_CUR failed %d\n", j);
  77           break;
  78         }
  79     }
  80   fclose (fp);
  81   remove (TESTFILE);
  82
  83   puts ((i > 255) ? "Test succeeded." : "Test FAILED!");
  84   return (i > 255) ? 0 : 1;
  85 }