2005-05-02 Roland McGrath <roland@redhat.com>
[kopensolaris-gnu/glibc.git] / 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    char 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 }