common/t-sysutils.c

   1 /* t-sysutils.c - Module test for sysutils.c
   2  *      Copyright (C) 2007 Free Software Foundation, Inc.
   3  *
   4  * This file is part of GnuPG.
   5  *
   6  * GnuPG is free software; you can redistribute it and/or modify
   7  * it under the terms of the GNU General Public License as published by
   8  * the Free Software Foundation; either version 3 of the License, or
   9  * (at your option) any later version.
  10  *
  11  * GnuPG is distributed in the hope that it will be useful,
  12  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  13  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  14  * GNU General Public License for more details.
  15  *
  16  * You should have received a copy of the GNU General Public License
  17  * along with this program; if not, see <http://www.gnu.org/licenses/>.
  18  */
  19
  20 #include <config.h>
  21 #include <stdio.h>
  22 #include <stdlib.h>
  23
  24 #include "util.h"
  25 #include "sysutils.h"
  26
  27 #define pass()  do { ; } while(0)
  28 #define fail(a)  do { fprintf (stderr, "%s:%d: test %d failed\n",\
  29                                __FILE__,__LINE__, (a));          \
  30                      errcount++;                                 \
  31                    } while(0)
  32
  33 static int verbose;
  34 static int errcount;
  35
  36
  37 static void
  38 test_gnupg_tmpfile (void)
  39 {
  40   FILE *fparr[10];
  41   int fparridx;
  42   int idx;
  43   FILE *fp;
  44   char buffer[100];
  45
  46 #define ASTRING "fooooooooooooooo\n"  /* Needs to be shorter than BUFFER.  */
  47
  48   for (fparridx=0; fparridx < DIM (fparr); fparridx++)
  49     {
  50       fp = gnupg_tmpfile ();
  51       fparr[fparridx] = fp;
  52       if (!fp)
  53         fail (fparridx);
  54       else
  55         {
  56           fputs ( ASTRING, fp);
  57           rewind (fp);
  58           if (!fgets (buffer, sizeof (buffer), fp))
  59             fail (fparridx);
  60           if (strcmp (buffer, ASTRING))
  61             fail (fparridx);
  62           if (fgets (buffer, sizeof (buffer), fp))
  63             fail (fparridx);
  64         }
  65     }
  66   for (idx=0; idx < fparridx; idx++)
  67     {
  68       if (fparr[idx])
  69         fclose (fparr[idx]);
  70     }
  71 }
  72
  73
  74
  75 int
  76 main (int argc, char **argv)
  77 {
  78   if (argc > 1 && !strcmp (argv[1], "--verbose"))
  79     verbose = 1;
  80
  81   test_gnupg_tmpfile ();
  82
  83   return !!errcount;
  84 }
  85