io/tst-fcntl.c

   1 /* Tests for fcntl.
   2    Copyright (C) 2000 Free Software Foundation, Inc.
   3    This file is part of the GNU C Library.
   4    Contributed by Ulrich Drepper <drepper@cygnus.com>, 2000.
   5
   6    The GNU C Library is free software; you can redistribute it and/or
   7    modify it under the terms of the GNU Lesser General Public
   8    License as published by the Free Software Foundation; either
   9    version 2.1 of the License, or (at your option) any later version.
  10
  11    The GNU C Library 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 GNU
  14    Lesser General Public License for more details.
  15
  16    You should have received a copy of the GNU Lesser General Public
  17    License along with the GNU C Library; if not, write to the Free
  18    Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
  19    02111-1307 USA.  */
  20
  21 #include <errno.h>
  22 #include <fcntl.h>
  23 #include <paths.h>
  24 #include <string.h>
  25 #include <unistd.h>
  26 #include <sys/stat.h>
  27
  28
  29 /* Prototype for our test function.  */
  30 extern void do_prepare (int argc, char *argv[]);
  31 extern int do_test (int argc, char *argv[]);
  32
  33 /* We have a preparation function.  */
  34 #define PREPARE do_prepare
  35
  36 #include "../test-skeleton.c"
  37
  38
  39 /* Name of the temporary files.  */
  40 static char *name;
  41
  42 void
  43 do_prepare (int argc, char *argv[])
  44 {
  45    size_t name_len;
  46
  47    name_len = strlen (test_dir);
  48    name = malloc (name_len + sizeof ("/fcntlXXXXXX"));
  49    mempcpy (mempcpy (name, test_dir, name_len),
  50             "/fcntlXXXXXX", sizeof ("/fcntlXXXXXX"));
  51    add_temp_file (name);
  52 }
  53
  54
  55 int
  56 do_test (int argc, char *argv[])
  57 {
  58   int fd;
  59   int fd2;
  60   int fd3;
  61   struct stat64 st;
  62   int val;
  63   int result = 0;
  64
  65   /* Create the temporary file.  */
  66   fd = mkstemp (name);
  67   if (fd == -1)
  68     {
  69       printf ("cannot open temporary file: %m\n");
  70       return 1;
  71     }
  72   if (fstat64 (fd, &st) != 0)
  73     {
  74       printf ("cannot stat test file: %m\n");
  75       return 1;
  76     }
  77   if (! S_ISREG (st.st_mode) || st.st_size != 0)
  78     {
  79       puts ("file not created correctly");
  80       return 1;
  81     }
  82
  83   /* Get the flags with fcntl().  */
  84   val = fcntl (fd, F_GETFL);
  85   if (val == -1)
  86     {
  87       printf ("fcntl(fd, F_GETFL) failed: %m\n");
  88       result = 1;
  89     }
  90   else if ((val & O_ACCMODE) != O_RDWR)
  91     {
  92       puts ("temporary file not opened for read and write");
  93       result = 1;
  94     }
  95
  96   /* Set the flags to something else.  */
  97   if (fcntl (fd, F_SETFL, O_RDONLY) == -1)
  98     {
  99       printf ("fcntl(fd, F_SETFL, O_RDONLY) failed: %m\n");
 100       result = 1;
 101     }
 102
 103   val = fcntl (fd, F_GETFL);
 104   if (val == -1)
 105     {
 106       printf ("fcntl(fd, F_GETFL) after F_SETFL failed: %m\n");
 107       result = 1;
 108     }
 109   else if ((val & O_ACCMODE) != O_RDWR)
 110     {
 111       puts ("temporary file access mode changed");
 112       result = 1;
 113     }
 114
 115   /* Set the flags to something else.  */
 116   if (fcntl (fd, F_SETFL, O_APPEND) == -1)
 117     {
 118       printf ("fcntl(fd, F_SETFL, O_APPEND) failed: %m\n");
 119       result = 1;
 120     }
 121
 122   val = fcntl (fd, F_GETFL);
 123   if (val == -1)
 124     {
 125       printf ("fcntl(fd, F_GETFL) after second F_SETFL failed: %m\n");
 126       result = 1;
 127     }
 128   else if ((val & O_APPEND) == 0)
 129     {
 130       puts ("O_APPEND not set");
 131       result = 1;
 132     }
 133
 134   val = fcntl (fd, F_GETFD);
 135   if (val == -1)
 136     {
 137       printf ("fcntl(fd, F_GETFD) failed: %m\n");
 138       result = 1;
 139     }
 140   else if (fcntl (fd, F_SETFD, val | FD_CLOEXEC) == -1)
 141     {
 142       printf ("fcntl(fd, F_SETFD, FD_CLOEXEC) failed: %m\n");
 143       result = 1;
 144     }
 145   else
 146     {
 147       val = fcntl (fd, F_GETFD);
 148       if (val == -1)
 149         {
 150           printf ("fcntl(fd, F_GETFD) after F_SETFD failed: %m\n");
 151           result = 1;
 152         }
 153       else if ((val & FD_CLOEXEC) == 0)
 154         {
 155           puts ("FD_CLOEXEC not set");
 156           result = 1;
 157         }
 158     }
 159
 160   /* Get a number of a free descriptor.  If /dev/null is not available
 161      don't continue testing.  */
 162   fd2 = open (_PATH_DEVNULL, O_RDWR);
 163   if (fd2 == -1)
 164     return result;
 165   close (fd2);
 166
 167   fd3 = fcntl (fd, F_DUPFD, fd2 + 1);
 168   if (fd3 == -1)
 169     {
 170       printf ("fcntl(fd, F_DUPFD, %d) failed: %m\n", fd2 + 1);
 171       result = 1;
 172     }
 173   else if (fd3 <= fd2)
 174     {
 175       printf ("F_DUPFD returned %d which is not larger than %d\n", fd3, fd2);
 176       result = 1;
 177     }
 178
 179   if (fd3 != -1)
 180     {
 181       val = fcntl (fd3, F_GETFD);
 182       if (val == -1)
 183         {
 184           printf ("fcntl(fd3, F_GETFD) after F_DUPFD failed: %m\n");
 185           result = 1;
 186         }
 187       else if ((val & FD_CLOEXEC) != 0)
 188         {
 189           puts ("FD_CLOEXEC still set");
 190           result = 1;
 191         }
 192
 193       close (fd3);
 194     }
 195
 196   return result;
 197 }