Add sysdeps/ieee754/soft-fp.
[glibc.git] / posix / tst-dir.c
blob52ff36fb6e7097d3bb6126c7ed5e1fcfe6d9e361
1 /* Copyright (C) 2000-2017 Free Software Foundation, Inc.
2 This file is part of the GNU C Library.
3 Contributed by Ulrich Drepper <drepper@redhat.com>, 2000.
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.
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.
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 <http://www.gnu.org/licenses/>. */
19 #include <dirent.h>
20 #include <errno.h>
21 #include <fcntl.h>
22 #include <mcheck.h>
23 #include <stddef.h>
24 #include <stdio.h>
25 #include <stdlib.h>
26 #include <string.h>
27 #include <unistd.h>
28 #include <sys/stat.h>
29 #include <libc-diag.h>
31 /* We expect four arguments:
32 - source directory name
33 - object directory
34 - common object directory
35 - the program name with path
37 int
38 main (int argc, char *argv[])
40 const char *srcdir;
41 const char *objdir;
42 const char *common_objdir;
43 const char *progpath;
44 struct stat64 st1;
45 struct stat64 st2;
46 struct stat64 st3;
47 DIR *dir1;
48 DIR *dir2;
49 int result = 0;
50 struct dirent64 *d;
51 union
53 struct dirent64 d;
54 char room [offsetof (struct dirent64, d_name[0]) + NAME_MAX + 1];
56 direntbuf;
57 char *objdir_copy1;
58 char *objdir_copy2;
59 char *buf;
60 int fd;
62 mtrace ();
64 if (argc < 5)
66 puts ("not enough parameters");
67 exit (1);
70 /* Make parameters available with nicer names. */
71 srcdir = argv[1];
72 objdir = argv[2];
73 common_objdir = argv[3];
74 progpath = argv[4];
76 /* First test the current source dir. We cannot really compare the
77 result of `getpwd' with the srcdir string but we have other means. */
78 if (stat64 (".", &st1) < 0)
80 printf ("cannot stat starting directory: %m\n");
81 exit (1);
84 if (chdir (srcdir) < 0)
86 printf ("cannot change to source directory: %m\n");
87 exit (1);
89 if (stat64 (".", &st2) < 0)
91 printf ("cannot stat source directory: %m\n");
92 exit (1);
95 /* The two last stat64 calls better were for the same directory. */
96 if (st1.st_dev != st2.st_dev || st1.st_ino != st2.st_ino)
98 printf ("stat of source directory failed: (%lld,%lld) vs (%lld,%lld)\n",
99 (long long int) st1.st_dev, (long long int) st1.st_ino,
100 (long long int) st2.st_dev, (long long int) st2.st_ino);
101 exit (1);
104 /* Change to the object directory. */
105 if (chdir (objdir) < 0)
107 printf ("cannot change to object directory: %m\n");
108 exit (1);
110 if (stat64 (".", &st1) < 0)
112 printf ("cannot stat object directory: %m\n");
113 exit (1);
115 /* Is this the same we get as with the full path? */
116 if (stat64 (objdir, &st2) < 0)
118 printf ("cannot stat object directory with full path: %m\n");
119 exit (1);
121 if (st1.st_dev != st2.st_dev || st1.st_ino != st2.st_ino)
123 printf ("stat of object directory failed: (%lld,%lld) vs (%lld,%lld)\n",
124 (long long int) st1.st_dev, (long long int) st1.st_ino,
125 (long long int) st2.st_dev, (long long int) st2.st_ino);
126 exit (1);
129 objdir_copy1 = getcwd (NULL, 0);
130 if (objdir_copy1 == NULL)
132 printf ("cannot get current directory name for object directory: %m\n");
133 result = 1;
136 /* First test: this directory must include our program. */
137 if (stat64 (progpath, &st2) < 0)
139 printf ("cannot stat program: %m\n");
140 exit (1);
143 dir1 = opendir (".");
144 if (dir1 == NULL)
146 printf ("cannot open object directory: %m\n");
147 exit (1);
150 while ((d = readdir64 (dir1)) != NULL)
152 if (d->d_type != DT_UNKNOWN && d->d_type != DT_REG)
153 continue;
155 if (d->d_ino == st2.st_ino)
157 /* Might be it. Test the device. We could use the st_dev
158 element from st1 but what the heck, do more testing. */
159 if (stat64 (d->d_name, &st3) < 0)
161 printf ("cannot stat entry from readdir: %m\n");
162 result = 1;
163 d = NULL;
164 break;
167 if (st3.st_dev == st2.st_dev)
168 break;
172 if (d == NULL)
174 puts ("haven't found program in object directory");
175 result = 1;
178 /* We leave dir1 open. */
180 /* Stat using file descriptor. */
181 if (fstat64 (dirfd (dir1), &st2) < 0)
183 printf ("cannot fstat object directory: %m\n");
184 result = 1;
186 if (st1.st_dev != st2.st_dev || st1.st_ino != st2.st_ino)
188 printf ("fstat of object directory failed: (%lld,%lld) vs (%lld,%lld)\n",
189 (long long int) st1.st_dev, (long long int) st1.st_ino,
190 (long long int) st2.st_dev, (long long int) st2.st_ino);
191 exit (1);
194 if (chdir ("..") < 0)
196 printf ("cannot go to common object directory with \"..\": %m\n");
197 exit (1);
200 if (stat64 (".", &st1) < 0)
202 printf ("cannot stat common object directory: %m\n");
203 exit (1);
205 /* Is this the same we get as with the full path? */
206 if (stat64 (common_objdir, &st2) < 0)
208 printf ("cannot stat common object directory with full path: %m\n");
209 exit (1);
211 if (st1.st_dev != st2.st_dev || st1.st_ino != st2.st_ino)
213 printf ("stat of object directory failed: (%lld,%lld) vs (%lld,%lld)\n",
214 (long long int) st1.st_dev, (long long int) st1.st_ino,
215 (long long int) st2.st_dev, (long long int) st2.st_ino);
216 exit (1);
219 /* Stat using file descriptor. */
220 if (fstat64 (dirfd (dir1), &st2) < 0)
222 printf ("cannot fstat object directory: %m\n");
223 result = 1;
226 dir2 = opendir (common_objdir);
227 if (dir2 == NULL)
229 printf ("cannot open common object directory: %m\n");
230 exit (1);
233 while ((d = readdir64 (dir2)) != NULL)
235 if (d->d_type != DT_UNKNOWN && d->d_type != DT_DIR)
236 continue;
238 if (d->d_ino == st2.st_ino)
240 /* Might be it. Test the device. We could use the st_dev
241 element from st1 but what the heck, do more testing. */
242 if (stat64 (d->d_name, &st3) < 0)
244 printf ("cannot stat entry from readdir: %m\n");
245 result = 1;
246 d = NULL;
247 break;
250 if (st3.st_dev == st2.st_dev)
251 break;
255 /* This better should be the object directory again. */
256 if (fchdir (dirfd (dir1)) < 0)
258 printf ("cannot fchdir to object directory: %m\n");
259 exit (1);
262 objdir_copy2 = getcwd (NULL, 0);
263 if (objdir_copy2 == NULL)
265 printf ("cannot get current directory name for object directory: %m\n");
266 result = 1;
268 if (strcmp (objdir_copy1, objdir_copy2) != 0)
270 puts ("getcwd returned a different string the second time");
271 result = 1;
274 /* This better should be the common object directory again. */
275 if (fchdir (dirfd (dir2)) < 0)
277 printf ("cannot fchdir to common object directory: %m\n");
278 exit (1);
281 if (stat64 (".", &st2) < 0)
283 printf ("cannot stat common object directory: %m\n");
284 exit (1);
286 if (st1.st_dev != st2.st_dev || st1.st_ino != st2.st_ino)
288 printf ("stat of object directory failed: (%lld,%lld) vs (%lld,%lld)\n",
289 (long long int) st1.st_dev, (long long int) st1.st_ino,
290 (long long int) st2.st_dev, (long long int) st2.st_ino);
291 exit (1);
294 buf = (char *) malloc (strlen (objdir_copy1) + 1 + sizeof "tst-dir.XXXXXX");
295 if (buf == NULL)
297 printf ("cannot allocate buffer: %m");
298 exit (1);
301 stpcpy (stpcpy (stpcpy (buf, objdir_copy1), "/"), "tst-dir.XXXXXX");
302 if (mkdtemp (buf) == NULL)
304 printf ("cannot create test directory in object directory: %m\n");
305 exit (1);
307 if (stat64 (buf, &st1) < 0)
309 printf ("cannot stat new directory \"%s\": %m\n", buf);
310 exit (1);
312 if (chmod (buf, 0700) < 0)
314 printf ("cannot change mode of new directory: %m\n");
315 exit (1);
318 /* The test below covers the deprecated readdir64_r function. */
319 DIAG_PUSH_NEEDS_COMMENT;
320 DIAG_IGNORE_NEEDS_COMMENT (4.9, "-Wdeprecated-declarations");
322 /* Try to find the new directory. */
323 rewinddir (dir1);
324 while (readdir64_r (dir1, &direntbuf.d, &d) == 0 && d != NULL)
326 if (d->d_type != DT_UNKNOWN && d->d_type != DT_DIR)
327 continue;
329 if (d->d_ino == st1.st_ino)
331 /* Might be it. Test the device. We could use the st_dev
332 element from st1 but what the heck, do more testing. */
333 size_t len = strlen (objdir) + 1 + _D_EXACT_NAMLEN (d) + 1;
334 char tmpbuf[len];
336 stpcpy (stpcpy (stpcpy (tmpbuf, objdir), "/"), d->d_name);
338 if (stat64 (tmpbuf, &st3) < 0)
340 printf ("cannot stat entry from readdir: %m\n");
341 result = 1;
342 d = NULL;
343 break;
346 if (st3.st_dev == st2.st_dev
347 && strcmp (d->d_name, buf + strlen (buf) - 14) == 0)
348 break;
352 DIAG_POP_NEEDS_COMMENT;
354 if (d == NULL)
356 printf ("haven't found new directory \"%s\"\n", buf);
357 exit (1);
360 if (closedir (dir2) < 0)
362 printf ("closing dir2 failed: %m\n");
363 result = 1;
366 if (chdir (buf) < 0)
368 printf ("cannot change to new directory: %m\n");
369 exit (1);
372 dir2 = opendir (buf);
373 if (dir2 == NULL)
375 printf ("cannot open new directory: %m\n");
376 exit (1);
379 if (fstat64 (dirfd (dir2), &st2) < 0)
381 printf ("cannot fstat new directory \"%s\": %m\n", buf);
382 exit (1);
384 if (st1.st_dev != st2.st_dev || st1.st_ino != st2.st_ino)
386 printf ("stat of new directory failed: (%lld,%lld) vs (%lld,%lld)\n",
387 (long long int) st1.st_dev, (long long int) st1.st_ino,
388 (long long int) st2.st_dev, (long long int) st2.st_ino);
389 exit (1);
392 if (mkdir ("another-dir", 0777) < 0)
394 printf ("cannot create \"another-dir\": %m\n");
395 exit (1);
397 fd = open ("and-a-file", O_RDWR | O_CREAT | O_EXCL, 0666);
398 if (fd == -1)
400 printf ("cannot create \"and-a-file\": %m\n");
401 exit (1);
403 close (fd);
405 /* Some tests about error reporting. */
406 errno = 0;
407 if (chdir ("and-a-file") >= 0)
409 printf ("chdir to \"and-a-file\" succeeded\n");
410 exit (1);
412 if (errno != ENOTDIR)
414 printf ("chdir to \"and-a-file\" didn't set correct error\n");
415 result = 1;
418 errno = 0;
419 if (chdir ("and-a-file/..") >= 0)
421 printf ("chdir to \"and-a-file/..\" succeeded\n");
422 exit (1);
424 if (errno != ENOTDIR)
426 printf ("chdir to \"and-a-file/..\" didn't set correct error\n");
427 result = 1;
430 errno = 0;
431 if (chdir ("another-dir/../and-a-file") >= 0)
433 printf ("chdir to \"another-dir/../and-a-file\" succeeded\n");
434 exit (1);
436 if (errno != ENOTDIR)
438 printf ("chdir to \"another-dir/../and-a-file\" didn't set correct error\n");
439 result = 1;
442 /* The test below covers the deprecated readdir64_r function. */
443 DIAG_PUSH_NEEDS_COMMENT;
444 DIAG_IGNORE_NEEDS_COMMENT (4.9, "-Wdeprecated-declarations");
446 /* We now should have a directory and a file in the new directory. */
447 rewinddir (dir2);
448 while (readdir64_r (dir2, &direntbuf.d, &d) == 0 && d != NULL)
450 if (strcmp (d->d_name, ".") == 0
451 || strcmp (d->d_name, "..") == 0
452 || strcmp (d->d_name, "another-dir") == 0)
454 if (d->d_type != DT_UNKNOWN && d->d_type != DT_DIR)
456 printf ("d_type for \"%s\" is wrong\n", d->d_name);
457 result = 1;
459 if (stat64 (d->d_name, &st3) < 0)
461 printf ("cannot stat \"%s\" is wrong\n", d->d_name);
462 result = 1;
464 else if (! S_ISDIR (st3.st_mode))
466 printf ("\"%s\" is no directory\n", d->d_name);
467 result = 1;
470 else if (strcmp (d->d_name, "and-a-file") == 0)
472 if (d->d_type != DT_UNKNOWN && d->d_type != DT_REG)
474 printf ("d_type for \"%s\" is wrong\n", d->d_name);
475 result = 1;
477 if (stat64 (d->d_name, &st3) < 0)
479 printf ("cannot stat \"%s\" is wrong\n", d->d_name);
480 result = 1;
482 else if (! S_ISREG (st3.st_mode))
484 printf ("\"%s\" is no regular file\n", d->d_name);
485 result = 1;
488 else
490 printf ("unexpected directory entry \"%s\"\n", d->d_name);
491 result = 1;
495 DIAG_POP_NEEDS_COMMENT;
497 if (stat64 ("does-not-exist", &st1) >= 0)
499 puts ("stat for unexisting file did not fail");
500 result = 1;
503 /* Free all resources. */
505 if (closedir (dir1) < 0)
507 printf ("closing dir1 failed: %m\n");
508 result = 1;
510 if (closedir (dir2) < 0)
512 printf ("second closing dir2 failed: %m\n");
513 result = 1;
516 if (rmdir ("another-dir") < 0)
518 printf ("cannot remove \"another-dir\": %m\n");
519 result = 1;
522 if (unlink ("and-a-file") < 0)
524 printf ("cannot remove \"and-a-file\": %m\n");
525 result = 1;
528 /* One more test before we leave: mkdir() is supposed to fail with
529 EEXIST if the named file is a symlink. */
530 if (symlink ("a-symlink", "a-symlink") != 0)
532 printf ("cannot create symlink \"a-symlink\": %m\n");
533 result = 1;
535 else
537 if (mkdir ("a-symlink", 0666) == 0)
539 puts ("can make directory \"a-symlink\"");
540 result = 1;
542 else if (errno != EEXIST)
544 puts ("mkdir(\"a-symlink\") does not fail with EEXIST\n");
545 result = 1;
547 if (unlink ("a-symlink") < 0)
549 printf ("cannot unlink \"a-symlink\": %m\n");
550 result = 1;
554 if (chdir (srcdir) < 0)
556 printf ("cannot change back to source directory: %m\n");
557 exit (1);
560 if (rmdir (buf) < 0)
562 printf ("cannot remove \"%s\": %m\n", buf);
563 result = 1;
565 free (objdir_copy1);
566 free (objdir_copy2);
568 if (result == 0)
569 puts ("all OK");
571 return result;