tests/test-fwriting.c

   1 /* Test of fwriting() 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 "fwriting.h"
  23
  24 #include <stdlib.h>
  25
  26 #define ASSERT(expr) if (!(expr)) abort ();
  27
  28 #define TESTFILE "t-fwriting.tmp"
  29
  30 int
  31 main ()
  32 {
  33   FILE *fp;
  34
  35   /* Create a file with some contents.  Write-only file is always writing.  */
  36   fp = fopen (TESTFILE, "w");
  37   if (fp == NULL)
  38     goto skip;
  39   ASSERT (fwriting (fp));
  40   if (fwrite ("foobarsh", 1, 8, fp) < 8)
  41     goto skip;
  42   ASSERT (fwriting (fp));
  43   if (fclose (fp))
  44     goto skip;
  45
  46   /* Open it in read-only mode.  Read-only file is never writing.  */
  47   fp = fopen (TESTFILE, "r");
  48   if (fp == NULL)
  49     goto skip;
  50   ASSERT (!fwriting (fp));
  51   if (fgetc (fp) != 'f')
  52     goto skip;
  53   ASSERT (!fwriting (fp));
  54   if (fseek (fp, 2, SEEK_CUR))
  55     goto skip;
  56   ASSERT (!fwriting (fp));
  57   if (fgetc (fp) != 'b')
  58     goto skip;
  59   ASSERT (!fwriting (fp));
  60   if (fseek (fp, 0, SEEK_END))
  61     goto skip;
  62   ASSERT (!fwriting (fp));
  63   if (fclose (fp))
  64     goto skip;
  65
  66   /* Open it in read-write mode.  POSIX requires a reposition (fseek,
  67      fsetpos, rewind) or fflush when transitioning from write to read,
  68      fwriting is only deterministic after input or output, but this
  69      test case should be portable even on open, after reposition, and
  70      after fflush.  */
  71   fp = fopen (TESTFILE, "r+");
  72   if (fp == NULL)
  73     goto skip;
  74   ASSERT (!fwriting (fp));
  75   if (fgetc (fp) != 'f')
  76     goto skip;
  77   ASSERT (!fwriting (fp));
  78   if (fseek (fp, 2, SEEK_CUR))
  79     goto skip;
  80   ASSERT (!fwriting (fp));
  81   if (fgetc (fp) != 'b')
  82     goto skip;
  83   ASSERT (!fwriting (fp));
  84   if (fseek (fp, 0, SEEK_CUR) != 0)
  85     goto skip;
  86   if (fputc ('z', fp) != 'z')
  87     goto skip;
  88   ASSERT (fwriting (fp));
  89   if (fseek (fp, 0, SEEK_END))
  90     goto skip;
  91   /* fwriting (fp) is undefined here, but freading is false.  */
  92   if (fclose (fp))
  93     goto skip;
  94
  95   /* Open it in append mode.  */
  96   fp = fopen (TESTFILE, "a");
  97   if (fp == NULL)
  98     goto skip;
  99   ASSERT (fwriting (fp));
 100   if (fwrite ("bla", 1, 3, fp) < 3)
 101     goto skip;
 102   ASSERT (fwriting (fp));
 103   if (fclose (fp))
 104     goto skip;
 105
 106   return 0;
 107
 108  skip:
 109   fprintf (stderr, "Skipping test: file operations failed.\n");
 110   return 77;
 111 }