1/* Tests for fcntl.
2 Copyright (C) 2000-2022 Free Software Foundation, Inc.
3 This file is part of the GNU C Library.
4
5 The GNU C Library is free software; you can redistribute it and/or
6 modify it under the terms of the GNU Lesser General Public
7 License as published by the Free Software Foundation; either
8 version 2.1 of the License, or (at your option) any later version.
9
10 The GNU C Library is distributed in the hope that it will be useful,
11 but WITHOUT ANY WARRANTY; without even the implied warranty of
12 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
13 Lesser General Public License for more details.
14
15 You should have received a copy of the GNU Lesser General Public
16 License along with the GNU C Library; if not, see
17 <https://www.gnu.org/licenses/>. */
18
19#include <errno.h>
20#include <fcntl.h>
21#include <paths.h>
22#include <string.h>
23#include <unistd.h>
24#include <sys/stat.h>
25
26
27/* Prototype for our test function. */
28extern void do_prepare (int argc, char *argv[]);
29extern int do_test (int argc, char *argv[]);
30
31/* We have a preparation function. */
32#define PREPARE do_prepare
33
34#include "../test-skeleton.c"
35
36
37/* Name of the temporary files. */
38static char *name;
39
40/* File descriptor to temporary file. */
41static int fd;
42
43void
44do_prepare (int argc, char *argv[])
45{
46 size_t name_len;
47
48 name_len = strlen (test_dir);
49 name = xmalloc (n: name_len + sizeof ("/fcntlXXXXXX"));
50 mempcpy (mempcpy (name, test_dir, name_len),
51 "/fcntlXXXXXX", sizeof ("/fcntlXXXXXX"));
52 /* Create the temporary file. */
53 fd = mkstemp (template: name);
54 if (fd == -1)
55 {
56 printf (format: "cannot open temporary file: %m\n");
57 exit (1);
58 }
59 add_temp_file (name);
60}
61
62
63int
64do_test (int argc, char *argv[])
65{
66 int fd2;
67 int fd3;
68 struct stat64 st;
69 int val;
70 int result = 0;
71
72 if (fstat64 (fd: fd, buf: &st) != 0)
73 {
74 printf (format: "cannot stat test file: %m\n");
75 return 1;
76 }
77 if (! S_ISREG (st.st_mode) || st.st_size != 0)
78 {
79 puts (s: "file not created correctly");
80 return 1;
81 }
82
83 /* Get the flags with fcntl(). */
84 val = fcntl (fd: fd, F_GETFL);
85 if (val == -1)
86 {
87 printf (format: "fcntl(fd, F_GETFL) failed: %m\n");
88 result = 1;
89 }
90 else if ((val & O_ACCMODE) != O_RDWR)
91 {
92 puts (s: "temporary file not opened for read and write");
93 result = 1;
94 }
95
96 /* Set the flags to something else. */
97 if (fcntl (fd: fd, F_SETFL, O_RDONLY) == -1)
98 {
99 printf (format: "fcntl(fd, F_SETFL, O_RDONLY) failed: %m\n");
100 result = 1;
101 }
102
103 val = fcntl (fd: fd, F_GETFL);
104 if (val == -1)
105 {
106 printf (format: "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 (s: "temporary file access mode changed");
112 result = 1;
113 }
114
115 /* Set the flags to something else. */
116 if (fcntl (fd: fd, F_SETFL, O_APPEND) == -1)
117 {
118 printf (format: "fcntl(fd, F_SETFL, O_APPEND) failed: %m\n");
119 result = 1;
120 }
121
122 val = fcntl (fd: fd, F_GETFL);
123 if (val == -1)
124 {
125 printf (format: "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 (s: "O_APPEND not set");
131 result = 1;
132 }
133
134 val = fcntl (fd: fd, F_GETFD);
135 if (val == -1)
136 {
137 printf (format: "fcntl(fd, F_GETFD) failed: %m\n");
138 result = 1;
139 }
140 else if (fcntl (fd: fd, F_SETFD, val | FD_CLOEXEC) == -1)
141 {
142 printf (format: "fcntl(fd, F_SETFD, FD_CLOEXEC) failed: %m\n");
143 result = 1;
144 }
145 else
146 {
147 val = fcntl (fd: fd, F_GETFD);
148 if (val == -1)
149 {
150 printf (format: "fcntl(fd, F_GETFD) after F_SETFD failed: %m\n");
151 result = 1;
152 }
153 else if ((val & FD_CLOEXEC) == 0)
154 {
155 puts (s: "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 (fd: fd2);
166
167 fd3 = fcntl (fd: fd, F_DUPFD, fd2 + 1);
168 if (fd3 == -1)
169 {
170 printf (format: "fcntl(fd, F_DUPFD, %d) failed: %m\n", fd2 + 1);
171 result = 1;
172 }
173 else if (fd3 <= fd2)
174 {
175 printf (format: "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 (fd: fd3, F_GETFD);
182 if (val == -1)
183 {
184 printf (format: "fcntl(fd3, F_GETFD) after F_DUPFD failed: %m\n");
185 result = 1;
186 }
187 else if ((val & FD_CLOEXEC) != 0)
188 {
189 puts (s: "FD_CLOEXEC still set");
190 result = 1;
191 }
192
193 close (fd: fd3);
194 }
195
196 return result;
197}
198

source code of glibc/io/tst-fcntl.c