tests/test-freadable.c

   1 /* Test of freadable() function.
   2    Copyright (C) 2007 Free Software Foundation, Inc.
   3
   4    This program is free software; you can redistribute it and/or modify
   5    it under the terms of the GNU General Public License as published by
   6    the Free Software Foundation; either version 2, or (at your option)
   7    any later version.
   8
   9    This program 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
  12    GNU General Public License for more details.
  13
  14    You should have received a copy of the GNU General Public License
  15    along with this program; if not, write to the Free Software Foundation,
  16    Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.  */
  17
  18 /* Written by Bruno Haible <bruno@clisp.org>, 2007.  */
  19
  20 #include <config.h>
  21
  22 #include "freadable.h"
  23
  24 #include <stdlib.h>
  25
  26 #define ASSERT(expr) if (!(expr)) abort ();
  27
  28 #define TESTFILE "t-freadable.tmp"
  29
  30 int
  31 main ()
  32 {
  33   FILE *fp;
  34
  35   /* Create a file with some contents.  */
  36   fp = fopen (TESTFILE, "w");
  37   if (fp == NULL)
  38     goto skip;
  39   ASSERT (!freadable (fp));
  40   if (fwrite ("foobarsh", 1, 8, fp) < 8)
  41     goto skip;
  42   ASSERT (!freadable (fp));
  43   if (fclose (fp))
  44     goto skip;
  45
  46   /* Open it in read-only mode.  */
  47   fp = fopen (TESTFILE, "r");
  48   if (fp == NULL)
  49     goto skip;
  50   ASSERT (freadable (fp));
  51   if (fgetc (fp) != 'f')
  52     goto skip;
  53   ASSERT (freadable (fp));
  54   if (fseek (fp, 2, SEEK_CUR))
  55     goto skip;
  56   ASSERT (freadable (fp));
  57   if (fgetc (fp) != 'b')
  58     goto skip;
  59   ASSERT (freadable (fp));
  60   fflush (fp);
  61   ASSERT (freadable (fp));
  62   if (fgetc (fp) != 'a')
  63     goto skip;
  64   ASSERT (freadable (fp));
  65   if (fseek (fp, 0, SEEK_END))
  66     goto skip;
  67   ASSERT (freadable (fp));
  68   if (fclose (fp))
  69     goto skip;
  70
  71   /* Open it in read-write mode.  */
  72   fp = fopen (TESTFILE, "r+");
  73   if (fp == NULL)
  74     goto skip;
  75   ASSERT (freadable (fp));
  76   if (fgetc (fp) != 'f')
  77     goto skip;
  78   ASSERT (freadable (fp));
  79   if (fseek (fp, 2, SEEK_CUR))
  80     goto skip;
  81   ASSERT (freadable (fp));
  82   if (fgetc (fp) != 'b')
  83     goto skip;
  84   ASSERT (freadable (fp));
  85   fflush (fp);
  86   ASSERT (freadable (fp));
  87   if (fgetc (fp) != 'a')
  88     goto skip;
  89   ASSERT (freadable (fp));
  90   if (fputc ('z', fp) != 'z')
  91     goto skip;
  92   ASSERT (freadable (fp));
  93   if (fseek (fp, 0, SEEK_END))
  94     goto skip;
  95   ASSERT (freadable (fp));
  96   if (fclose (fp))
  97     goto skip;
  98
  99   /* Open it in append mode.  */
 100   fp = fopen (TESTFILE, "a");
 101   if (fp == NULL)
 102     goto skip;
 103   ASSERT (!freadable (fp));
 104   if (fwrite ("bla", 1, 3, fp) < 3)
 105     goto skip;
 106   ASSERT (!freadable (fp));
 107   if (fclose (fp))
 108     goto skip;
 109
 110   return 0;
 111
 112  skip:
 113   fprintf (stderr, "Skipping test: file operations failed.\n");
 114   return 77;
 115 }