Mercurial > hg > octave-kai > gnulib-hg

annotate tests/test-rmdir.h @ 17082:62741e75b7c5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
poll/select: document portability problems not fixed by Gnulib. * doc/posix-functions/poll.texi: poll does not work well on pipes under Windows. It has the same limitations as select on BeOS. * doc/posix-functions/select.texi: select does not work well on pipes under Windows.
author Paolo Bonzini <pbonzini@redhat.com>
date Thu, 13 Sep 2012 08:51:16 +0200
parents 8250f2777afc
children e542fd46ad6f
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
11995
5767a52927aa openat-tests: ensure unlinkat behaves like rmdir
Eric Blake <ebb9@byu.net>
parents:
diff changeset
1 /* Tests of rmdir.
16201
8250f2777afc maint: update all copyright year number ranges
Jim Meyering <meyering@redhat.com>
parents: 14897
diff changeset
2 Copyright (C) 2009-2012 Free Software Foundation, Inc.
11995
5767a52927aa openat-tests: ensure unlinkat behaves like rmdir
Eric Blake <ebb9@byu.net>
parents:
diff changeset
3
5767a52927aa openat-tests: ensure unlinkat behaves like rmdir
Eric Blake <ebb9@byu.net>
parents:
diff changeset
4 This program is free software: you can redistribute it and/or modify
5767a52927aa openat-tests: ensure unlinkat behaves like rmdir
Eric Blake <ebb9@byu.net>
parents:
diff changeset
5 it under the terms of the GNU General Public License as published by
5767a52927aa openat-tests: ensure unlinkat behaves like rmdir
Eric Blake <ebb9@byu.net>
parents:
diff changeset
6 the Free Software Foundation; either version 3 of the License, or
5767a52927aa openat-tests: ensure unlinkat behaves like rmdir
Eric Blake <ebb9@byu.net>
parents:
diff changeset
7 (at your option) any later version.
5767a52927aa openat-tests: ensure unlinkat behaves like rmdir
Eric Blake <ebb9@byu.net>
parents:
diff changeset
8
5767a52927aa openat-tests: ensure unlinkat behaves like rmdir
Eric Blake <ebb9@byu.net>
parents:
diff changeset
9 This program is distributed in the hope that it will be useful,
5767a52927aa openat-tests: ensure unlinkat behaves like rmdir
Eric Blake <ebb9@byu.net>
parents:
diff changeset
10 but WITHOUT ANY WARRANTY; without even the implied warranty of
5767a52927aa openat-tests: ensure unlinkat behaves like rmdir
Eric Blake <ebb9@byu.net>
parents:
diff changeset
11 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
5767a52927aa openat-tests: ensure unlinkat behaves like rmdir
Eric Blake <ebb9@byu.net>
parents:
diff changeset
12 GNU General Public License for more details.
5767a52927aa openat-tests: ensure unlinkat behaves like rmdir
Eric Blake <ebb9@byu.net>
parents:
diff changeset
13
5767a52927aa openat-tests: ensure unlinkat behaves like rmdir
Eric Blake <ebb9@byu.net>
parents:
diff changeset
14 You should have received a copy of the GNU General Public License
5767a52927aa openat-tests: ensure unlinkat behaves like rmdir
Eric Blake <ebb9@byu.net>
parents:
diff changeset
15 along with this program. If not, see <http://www.gnu.org/licenses/>. */
5767a52927aa openat-tests: ensure unlinkat behaves like rmdir
Eric Blake <ebb9@byu.net>
parents:
diff changeset
16
5767a52927aa openat-tests: ensure unlinkat behaves like rmdir
Eric Blake <ebb9@byu.net>
parents:
diff changeset
17 /* Written by Eric Blake <ebb9@byu.net>, 2009. */
5767a52927aa openat-tests: ensure unlinkat behaves like rmdir
Eric Blake <ebb9@byu.net>
parents:
diff changeset
18
5767a52927aa openat-tests: ensure unlinkat behaves like rmdir
Eric Blake <ebb9@byu.net>
parents:
diff changeset
19 /* This file is designed to test both rmdir(n) and
5767a52927aa openat-tests: ensure unlinkat behaves like rmdir
Eric Blake <ebb9@byu.net>
parents:
diff changeset
20 unlinkat(AT_FDCWD,n,AT_REMOVEDIR). FUNC is the function to test.
5767a52927aa openat-tests: ensure unlinkat behaves like rmdir
Eric Blake <ebb9@byu.net>
parents:
diff changeset
21 Assumes that BASE and ASSERT are already defined, and that
12043
fc84db4ef49d test-unlinkat: enhance test, to expose Solaris 9 bug
Eric Blake <ebb9@byu.net>
parents: 11995
diff changeset
22 appropriate headers are already included. If PRINT, then warn
fc84db4ef49d test-unlinkat: enhance test, to expose Solaris 9 bug
Eric Blake <ebb9@byu.net>
parents: 11995
diff changeset
23 before returning status 77 when symlinks are unsupported. */
11995
5767a52927aa openat-tests: ensure unlinkat behaves like rmdir
Eric Blake <ebb9@byu.net>
parents:
diff changeset
24
5767a52927aa openat-tests: ensure unlinkat behaves like rmdir
Eric Blake <ebb9@byu.net>
parents:
diff changeset
25 static int
12043
fc84db4ef49d test-unlinkat: enhance test, to expose Solaris 9 bug
Eric Blake <ebb9@byu.net>
parents: 11995
diff changeset
26 test_rmdir_func (int (*func) (char const *name), bool print)
11995
5767a52927aa openat-tests: ensure unlinkat behaves like rmdir
Eric Blake <ebb9@byu.net>
parents:
diff changeset
27 {
5767a52927aa openat-tests: ensure unlinkat behaves like rmdir
Eric Blake <ebb9@byu.net>
parents:
diff changeset
28 /* Setup. */
5767a52927aa openat-tests: ensure unlinkat behaves like rmdir
Eric Blake <ebb9@byu.net>
parents:
diff changeset
29 ASSERT (mkdir (BASE "dir", 0700) == 0);
5767a52927aa openat-tests: ensure unlinkat behaves like rmdir
Eric Blake <ebb9@byu.net>
parents:
diff changeset
30 ASSERT (close (creat (BASE "dir/file", 0600)) == 0);
5767a52927aa openat-tests: ensure unlinkat behaves like rmdir
Eric Blake <ebb9@byu.net>
parents:
diff changeset
31
5767a52927aa openat-tests: ensure unlinkat behaves like rmdir
Eric Blake <ebb9@byu.net>
parents:
diff changeset
32 /* Basic error conditions. */
5767a52927aa openat-tests: ensure unlinkat behaves like rmdir
Eric Blake <ebb9@byu.net>
parents:
diff changeset
33 errno = 0;
5767a52927aa openat-tests: ensure unlinkat behaves like rmdir
Eric Blake <ebb9@byu.net>
parents:
diff changeset
34 ASSERT (func ("") == -1);
5767a52927aa openat-tests: ensure unlinkat behaves like rmdir
Eric Blake <ebb9@byu.net>
parents:
diff changeset
35 ASSERT (errno == ENOENT);
5767a52927aa openat-tests: ensure unlinkat behaves like rmdir
Eric Blake <ebb9@byu.net>
parents:
diff changeset
36 errno = 0;
5767a52927aa openat-tests: ensure unlinkat behaves like rmdir
Eric Blake <ebb9@byu.net>
parents:
diff changeset
37 ASSERT (func (BASE "nosuch") == -1);
5767a52927aa openat-tests: ensure unlinkat behaves like rmdir
Eric Blake <ebb9@byu.net>
parents:
diff changeset
38 ASSERT (errno == ENOENT);
5767a52927aa openat-tests: ensure unlinkat behaves like rmdir
Eric Blake <ebb9@byu.net>
parents:
diff changeset
39 errno = 0;
5767a52927aa openat-tests: ensure unlinkat behaves like rmdir
Eric Blake <ebb9@byu.net>
parents:
diff changeset
40 ASSERT (func (BASE "nosuch/") == -1);
5767a52927aa openat-tests: ensure unlinkat behaves like rmdir
Eric Blake <ebb9@byu.net>
parents:
diff changeset
41 ASSERT (errno == ENOENT);
5767a52927aa openat-tests: ensure unlinkat behaves like rmdir
Eric Blake <ebb9@byu.net>
parents:
diff changeset
42 errno = 0;
5767a52927aa openat-tests: ensure unlinkat behaves like rmdir
Eric Blake <ebb9@byu.net>
parents:
diff changeset
43 ASSERT (func (".") == -1);
5767a52927aa openat-tests: ensure unlinkat behaves like rmdir
Eric Blake <ebb9@byu.net>
parents:
diff changeset
44 ASSERT (errno == EINVAL || errno == EBUSY);
5767a52927aa openat-tests: ensure unlinkat behaves like rmdir
Eric Blake <ebb9@byu.net>
parents:
diff changeset
45 /* Resulting errno after ".." or "/" is too varied to test; it is
5767a52927aa openat-tests: ensure unlinkat behaves like rmdir
Eric Blake <ebb9@byu.net>
parents:
diff changeset
46 reasonable to see any of EINVAL, EBUSY, EEXIST, ENOTEMPTY,
5767a52927aa openat-tests: ensure unlinkat behaves like rmdir
Eric Blake <ebb9@byu.net>
parents:
diff changeset
47 EACCES, EPERM. */
5767a52927aa openat-tests: ensure unlinkat behaves like rmdir
Eric Blake <ebb9@byu.net>
parents:
diff changeset
48 ASSERT (func ("..") == -1);
5767a52927aa openat-tests: ensure unlinkat behaves like rmdir
Eric Blake <ebb9@byu.net>
parents:
diff changeset
49 ASSERT (func ("/") == -1);
5767a52927aa openat-tests: ensure unlinkat behaves like rmdir
Eric Blake <ebb9@byu.net>
parents:
diff changeset
50 ASSERT (func ("///") == -1);
5767a52927aa openat-tests: ensure unlinkat behaves like rmdir
Eric Blake <ebb9@byu.net>
parents:
diff changeset
51 errno = 0;
5767a52927aa openat-tests: ensure unlinkat behaves like rmdir
Eric Blake <ebb9@byu.net>
parents:
diff changeset
52 ASSERT (func (BASE "dir/file/") == -1);
5767a52927aa openat-tests: ensure unlinkat behaves like rmdir
Eric Blake <ebb9@byu.net>
parents:
diff changeset
53 ASSERT (errno == ENOTDIR);
5767a52927aa openat-tests: ensure unlinkat behaves like rmdir
Eric Blake <ebb9@byu.net>
parents:
diff changeset
54
5767a52927aa openat-tests: ensure unlinkat behaves like rmdir
Eric Blake <ebb9@byu.net>
parents:
diff changeset
55 /* Non-empty directory. */
5767a52927aa openat-tests: ensure unlinkat behaves like rmdir
Eric Blake <ebb9@byu.net>
parents:
diff changeset
56 errno = 0;
5767a52927aa openat-tests: ensure unlinkat behaves like rmdir
Eric Blake <ebb9@byu.net>
parents:
diff changeset
57 ASSERT (func (BASE "dir") == -1);
5767a52927aa openat-tests: ensure unlinkat behaves like rmdir
Eric Blake <ebb9@byu.net>
parents:
diff changeset
58 ASSERT (errno == EEXIST || errno == ENOTEMPTY);
5767a52927aa openat-tests: ensure unlinkat behaves like rmdir
Eric Blake <ebb9@byu.net>
parents:
diff changeset
59
5767a52927aa openat-tests: ensure unlinkat behaves like rmdir
Eric Blake <ebb9@byu.net>
parents:
diff changeset
60 /* Non-directory. */
5767a52927aa openat-tests: ensure unlinkat behaves like rmdir
Eric Blake <ebb9@byu.net>
parents:
diff changeset
61 errno = 0;
5767a52927aa openat-tests: ensure unlinkat behaves like rmdir
Eric Blake <ebb9@byu.net>
parents:
diff changeset
62 ASSERT (func (BASE "dir/file") == -1);
5767a52927aa openat-tests: ensure unlinkat behaves like rmdir
Eric Blake <ebb9@byu.net>
parents:
diff changeset
63 ASSERT (errno == ENOTDIR);
5767a52927aa openat-tests: ensure unlinkat behaves like rmdir
Eric Blake <ebb9@byu.net>
parents:
diff changeset
64
5767a52927aa openat-tests: ensure unlinkat behaves like rmdir
Eric Blake <ebb9@byu.net>
parents:
diff changeset
65 /* Empty directory. */
5767a52927aa openat-tests: ensure unlinkat behaves like rmdir
Eric Blake <ebb9@byu.net>
parents:
diff changeset
66 ASSERT (unlink (BASE "dir/file") == 0);
5767a52927aa openat-tests: ensure unlinkat behaves like rmdir
Eric Blake <ebb9@byu.net>
parents:
diff changeset
67 errno = 0;
12084
34277de50e87 tests: tighten link, rmdir, and remove tests
Eric Blake <ebb9@byu.net>
parents: 12043
diff changeset
68 ASSERT (func (BASE "dir/.//") == -1);
14897
f93c6aa561db rmdir: Avoid test failure on HP-UX 10.20.
Bruno Haible <bruno@clisp.org>
parents: 14079
diff changeset
69 ASSERT (errno == EINVAL || errno == EBUSY || errno == EEXIST
f93c6aa561db rmdir: Avoid test failure on HP-UX 10.20.
Bruno Haible <bruno@clisp.org>
parents: 14079
diff changeset
70 || errno == ENOTEMPTY);
11995
5767a52927aa openat-tests: ensure unlinkat behaves like rmdir
Eric Blake <ebb9@byu.net>
parents:
diff changeset
71 ASSERT (func (BASE "dir") == 0);
5767a52927aa openat-tests: ensure unlinkat behaves like rmdir
Eric Blake <ebb9@byu.net>
parents:
diff changeset
72
5767a52927aa openat-tests: ensure unlinkat behaves like rmdir
Eric Blake <ebb9@byu.net>
parents:
diff changeset
73 /* Test symlink behavior. Specifying trailing slash should remove
5767a52927aa openat-tests: ensure unlinkat behaves like rmdir
Eric Blake <ebb9@byu.net>
parents:
diff changeset
74 referent directory (POSIX), or cause ENOTDIR failure (Linux), but
5767a52927aa openat-tests: ensure unlinkat behaves like rmdir
Eric Blake <ebb9@byu.net>
parents:
diff changeset
75 not touch symlink. We prefer the Linux behavior for its
5767a52927aa openat-tests: ensure unlinkat behaves like rmdir
Eric Blake <ebb9@byu.net>
parents:
diff changeset
76 intuitiveness (especially compared to rmdir("symlink-to-file/")),
5767a52927aa openat-tests: ensure unlinkat behaves like rmdir
Eric Blake <ebb9@byu.net>
parents:
diff changeset
77 but not enough to penalize POSIX systems with an rpl_rmdir. */
5767a52927aa openat-tests: ensure unlinkat behaves like rmdir
Eric Blake <ebb9@byu.net>
parents:
diff changeset
78 if (symlink (BASE "dir", BASE "link") != 0)
5767a52927aa openat-tests: ensure unlinkat behaves like rmdir
Eric Blake <ebb9@byu.net>
parents:
diff changeset
79 {
12043
fc84db4ef49d test-unlinkat: enhance test, to expose Solaris 9 bug
Eric Blake <ebb9@byu.net>
parents: 11995
diff changeset
80 if (print)
12421
e8d2c6fc33ad Use spaces for indentation, not tabs.
Bruno Haible <bruno@clisp.org>
parents: 12146
diff changeset
81 fputs ("skipping test: symlinks not supported on this file system\n",
e8d2c6fc33ad Use spaces for indentation, not tabs.
Bruno Haible <bruno@clisp.org>
parents: 12146
diff changeset
82 stderr);
11995
5767a52927aa openat-tests: ensure unlinkat behaves like rmdir
Eric Blake <ebb9@byu.net>
parents:
diff changeset
83 return 77;
5767a52927aa openat-tests: ensure unlinkat behaves like rmdir
Eric Blake <ebb9@byu.net>
parents:
diff changeset
84 }
5767a52927aa openat-tests: ensure unlinkat behaves like rmdir
Eric Blake <ebb9@byu.net>
parents:
diff changeset
85 ASSERT (mkdir (BASE "dir", 0700) == 0);
5767a52927aa openat-tests: ensure unlinkat behaves like rmdir
Eric Blake <ebb9@byu.net>
parents:
diff changeset
86 errno = 0;
5767a52927aa openat-tests: ensure unlinkat behaves like rmdir
Eric Blake <ebb9@byu.net>
parents:
diff changeset
87 if (func (BASE "link/") == 0)
5767a52927aa openat-tests: ensure unlinkat behaves like rmdir
Eric Blake <ebb9@byu.net>
parents:
diff changeset
88 {
5767a52927aa openat-tests: ensure unlinkat behaves like rmdir
Eric Blake <ebb9@byu.net>
parents:
diff changeset
89 struct stat st;
5767a52927aa openat-tests: ensure unlinkat behaves like rmdir
Eric Blake <ebb9@byu.net>
parents:
diff changeset
90 errno = 0;
5767a52927aa openat-tests: ensure unlinkat behaves like rmdir
Eric Blake <ebb9@byu.net>
parents:
diff changeset
91 ASSERT (stat (BASE "link", &st) == -1);
5767a52927aa openat-tests: ensure unlinkat behaves like rmdir
Eric Blake <ebb9@byu.net>
parents:
diff changeset
92 ASSERT (errno == ENOENT);
5767a52927aa openat-tests: ensure unlinkat behaves like rmdir
Eric Blake <ebb9@byu.net>
parents:
diff changeset
93 }
5767a52927aa openat-tests: ensure unlinkat behaves like rmdir
Eric Blake <ebb9@byu.net>
parents:
diff changeset
94 else
5767a52927aa openat-tests: ensure unlinkat behaves like rmdir
Eric Blake <ebb9@byu.net>
parents:
diff changeset
95 {
5767a52927aa openat-tests: ensure unlinkat behaves like rmdir
Eric Blake <ebb9@byu.net>
parents:
diff changeset
96 ASSERT (errno == ENOTDIR);
5767a52927aa openat-tests: ensure unlinkat behaves like rmdir
Eric Blake <ebb9@byu.net>
parents:
diff changeset
97 ASSERT (func (BASE "dir") == 0);
5767a52927aa openat-tests: ensure unlinkat behaves like rmdir
Eric Blake <ebb9@byu.net>
parents:
diff changeset
98 }
5767a52927aa openat-tests: ensure unlinkat behaves like rmdir
Eric Blake <ebb9@byu.net>
parents:
diff changeset
99 ASSERT (unlink (BASE "link") == 0);
5767a52927aa openat-tests: ensure unlinkat behaves like rmdir
Eric Blake <ebb9@byu.net>
parents:
diff changeset
100
5767a52927aa openat-tests: ensure unlinkat behaves like rmdir
Eric Blake <ebb9@byu.net>
parents:
diff changeset
101 return 0;
5767a52927aa openat-tests: ensure unlinkat behaves like rmdir
Eric Blake <ebb9@byu.net>
parents:
diff changeset
102 }