annotate tests/test-glob.c @ 40203:30d91797009f

autoupdate
author Karl Berry <karl@freefriends.org>
date Fri, 01 Mar 2019 08:42:42 -0800
parents b06060465f09
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
11549
2cba55a848c7 New module glob-tests.
Simon Josefsson <simon@josefsson.org>
parents:
diff changeset
1 /* Test of glob/globfree functions.
40057
b06060465f09 maint: Run 'make update-copyright'
Paul Eggert <eggert@cs.ucla.edu>
parents: 39777
diff changeset
2 Copyright (C) 2009-2019 Free Software Foundation, Inc.
11549
2cba55a848c7 New module glob-tests.
Simon Josefsson <simon@josefsson.org>
parents:
diff changeset
3
2cba55a848c7 New module glob-tests.
Simon Josefsson <simon@josefsson.org>
parents:
diff changeset
4 This program is free software: you can redistribute it and/or modify
2cba55a848c7 New module glob-tests.
Simon Josefsson <simon@josefsson.org>
parents:
diff changeset
5 it under the terms of the GNU General Public License as published by
2cba55a848c7 New module glob-tests.
Simon Josefsson <simon@josefsson.org>
parents:
diff changeset
6 the Free Software Foundation; either version 3 of the License, or
2cba55a848c7 New module glob-tests.
Simon Josefsson <simon@josefsson.org>
parents:
diff changeset
7 (at your option) any later version.
2cba55a848c7 New module glob-tests.
Simon Josefsson <simon@josefsson.org>
parents:
diff changeset
8
2cba55a848c7 New module glob-tests.
Simon Josefsson <simon@josefsson.org>
parents:
diff changeset
9 This program is distributed in the hope that it will be useful,
2cba55a848c7 New module glob-tests.
Simon Josefsson <simon@josefsson.org>
parents:
diff changeset
10 but WITHOUT ANY WARRANTY; without even the implied warranty of
2cba55a848c7 New module glob-tests.
Simon Josefsson <simon@josefsson.org>
parents:
diff changeset
11 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
2cba55a848c7 New module glob-tests.
Simon Josefsson <simon@josefsson.org>
parents:
diff changeset
12 GNU General Public License for more details.
2cba55a848c7 New module glob-tests.
Simon Josefsson <simon@josefsson.org>
parents:
diff changeset
13
2cba55a848c7 New module glob-tests.
Simon Josefsson <simon@josefsson.org>
parents:
diff changeset
14 You should have received a copy of the GNU General Public License
19190
9759915b2aca all: prefer https: URLs
Paul Eggert <eggert@cs.ucla.edu>
parents: 19104
diff changeset
15 along with this program. If not, see <https://www.gnu.org/licenses/>. */
11549
2cba55a848c7 New module glob-tests.
Simon Josefsson <simon@josefsson.org>
parents:
diff changeset
16
2cba55a848c7 New module glob-tests.
Simon Josefsson <simon@josefsson.org>
parents:
diff changeset
17 /* Written by Simon Josefsson <simon@josefsson.org>, 2009. */
2cba55a848c7 New module glob-tests.
Simon Josefsson <simon@josefsson.org>
parents:
diff changeset
18
2cba55a848c7 New module glob-tests.
Simon Josefsson <simon@josefsson.org>
parents:
diff changeset
19 #include <config.h>
2cba55a848c7 New module glob-tests.
Simon Josefsson <simon@josefsson.org>
parents:
diff changeset
20
2cba55a848c7 New module glob-tests.
Simon Josefsson <simon@josefsson.org>
parents:
diff changeset
21 #include <glob.h>
2cba55a848c7 New module glob-tests.
Simon Josefsson <simon@josefsson.org>
parents:
diff changeset
22
12489
33ab12a7cea2 tests: add signature checks
Eric Blake <ebb9@byu.net>
parents: 12421
diff changeset
23 #include "signature.h"
33ab12a7cea2 tests: add signature checks
Eric Blake <ebb9@byu.net>
parents: 12421
diff changeset
24 SIGNATURE_CHECK (glob, int, (char const *, int, int (*) (char const *, int),
33ab12a7cea2 tests: add signature checks
Eric Blake <ebb9@byu.net>
parents: 12421
diff changeset
25 glob_t *));
33ab12a7cea2 tests: add signature checks
Eric Blake <ebb9@byu.net>
parents: 12421
diff changeset
26 SIGNATURE_CHECK (globfree, void, (glob_t *));
33ab12a7cea2 tests: add signature checks
Eric Blake <ebb9@byu.net>
parents: 12421
diff changeset
27
39777
c2e4326c3f66 glob-h: Add tests.
Bruno Haible <bruno@clisp.org>
parents: 19484
diff changeset
28 #include <errno.h>
11579
6ca34e75d78f tests/test-glob.c: Include string.h for strcmp prototype.
Simon Josefsson <simon@josefsson.org>
parents: 11549
diff changeset
29 #include <string.h>
39777
c2e4326c3f66 glob-h: Add tests.
Bruno Haible <bruno@clisp.org>
parents: 19484
diff changeset
30 #include <unistd.h>
11549
2cba55a848c7 New module glob-tests.
Simon Josefsson <simon@josefsson.org>
parents:
diff changeset
31
12496
a48d3d749ca5 Refactor common macros used in tests.
Bruno Haible <bruno@clisp.org>
parents: 12489
diff changeset
32 #include "macros.h"
11549
2cba55a848c7 New module glob-tests.
Simon Josefsson <simon@josefsson.org>
parents:
diff changeset
33
19104
4e436f948972 glob: match dangling symlinks
Paul Eggert <eggert@cs.ucla.edu>
parents: 18626
diff changeset
34 #define BASE "test-glob.t"
11549
2cba55a848c7 New module glob-tests.
Simon Josefsson <simon@josefsson.org>
parents:
diff changeset
35 #define GL_NO_SUCH_FILE "/gnulib-magic-does-not-exist"
2cba55a848c7 New module glob-tests.
Simon Josefsson <simon@josefsson.org>
parents:
diff changeset
36
2cba55a848c7 New module glob-tests.
Simon Josefsson <simon@josefsson.org>
parents:
diff changeset
37 int
2cba55a848c7 New module glob-tests.
Simon Josefsson <simon@josefsson.org>
parents:
diff changeset
38 main ()
2cba55a848c7 New module glob-tests.
Simon Josefsson <simon@josefsson.org>
parents:
diff changeset
39 {
2cba55a848c7 New module glob-tests.
Simon Josefsson <simon@josefsson.org>
parents:
diff changeset
40 int res;
2cba55a848c7 New module glob-tests.
Simon Josefsson <simon@josefsson.org>
parents:
diff changeset
41 glob_t g;
2cba55a848c7 New module glob-tests.
Simon Josefsson <simon@josefsson.org>
parents:
diff changeset
42
2cba55a848c7 New module glob-tests.
Simon Josefsson <simon@josefsson.org>
parents:
diff changeset
43 res = glob (".", 0, NULL, &g);
2cba55a848c7 New module glob-tests.
Simon Josefsson <simon@josefsson.org>
parents:
diff changeset
44 ASSERT (res == 0 && g.gl_pathc == 1);
2cba55a848c7 New module glob-tests.
Simon Josefsson <simon@josefsson.org>
parents:
diff changeset
45 globfree (&g);
2cba55a848c7 New module glob-tests.
Simon Josefsson <simon@josefsson.org>
parents:
diff changeset
46
2cba55a848c7 New module glob-tests.
Simon Josefsson <simon@josefsson.org>
parents:
diff changeset
47 res = glob (".", GLOB_NOSORT, NULL, &g);
2cba55a848c7 New module glob-tests.
Simon Josefsson <simon@josefsson.org>
parents:
diff changeset
48 ASSERT (res == 0 && g.gl_pathc == 1);
2cba55a848c7 New module glob-tests.
Simon Josefsson <simon@josefsson.org>
parents:
diff changeset
49 globfree (&g);
2cba55a848c7 New module glob-tests.
Simon Josefsson <simon@josefsson.org>
parents:
diff changeset
50
2cba55a848c7 New module glob-tests.
Simon Josefsson <simon@josefsson.org>
parents:
diff changeset
51 res = glob (".", GLOB_MARK, NULL, &g);
2cba55a848c7 New module glob-tests.
Simon Josefsson <simon@josefsson.org>
parents:
diff changeset
52 ASSERT (res == 0 && g.gl_pathc == 1);
2cba55a848c7 New module glob-tests.
Simon Josefsson <simon@josefsson.org>
parents:
diff changeset
53
2cba55a848c7 New module glob-tests.
Simon Josefsson <simon@josefsson.org>
parents:
diff changeset
54 res = glob (".", GLOB_APPEND, NULL, &g);
2cba55a848c7 New module glob-tests.
Simon Josefsson <simon@josefsson.org>
parents:
diff changeset
55 ASSERT (res == 0 && g.gl_pathc == 2);
2cba55a848c7 New module glob-tests.
Simon Josefsson <simon@josefsson.org>
parents:
diff changeset
56 globfree (&g);
2cba55a848c7 New module glob-tests.
Simon Josefsson <simon@josefsson.org>
parents:
diff changeset
57
2cba55a848c7 New module glob-tests.
Simon Josefsson <simon@josefsson.org>
parents:
diff changeset
58 res = glob (".", GLOB_NOESCAPE, NULL, &g);
2cba55a848c7 New module glob-tests.
Simon Josefsson <simon@josefsson.org>
parents:
diff changeset
59 ASSERT (res == 0 && g.gl_pathc == 1);
2cba55a848c7 New module glob-tests.
Simon Josefsson <simon@josefsson.org>
parents:
diff changeset
60 globfree (&g);
2cba55a848c7 New module glob-tests.
Simon Josefsson <simon@josefsson.org>
parents:
diff changeset
61
2cba55a848c7 New module glob-tests.
Simon Josefsson <simon@josefsson.org>
parents:
diff changeset
62 res = glob ("./*", 0, NULL, &g);
2cba55a848c7 New module glob-tests.
Simon Josefsson <simon@josefsson.org>
parents:
diff changeset
63 ASSERT (res == 0 && g.gl_pathc >= 1);
2cba55a848c7 New module glob-tests.
Simon Josefsson <simon@josefsson.org>
parents:
diff changeset
64 globfree (&g);
2cba55a848c7 New module glob-tests.
Simon Josefsson <simon@josefsson.org>
parents:
diff changeset
65
2cba55a848c7 New module glob-tests.
Simon Josefsson <simon@josefsson.org>
parents:
diff changeset
66 res = glob (GL_NO_SUCH_FILE, 0, NULL, &g);
2cba55a848c7 New module glob-tests.
Simon Josefsson <simon@josefsson.org>
parents:
diff changeset
67 ASSERT (res == GLOB_NOMATCH);
2cba55a848c7 New module glob-tests.
Simon Josefsson <simon@josefsson.org>
parents:
diff changeset
68
2cba55a848c7 New module glob-tests.
Simon Josefsson <simon@josefsson.org>
parents:
diff changeset
69 res = glob (GL_NO_SUCH_FILE, GLOB_NOCHECK, NULL, &g);
2cba55a848c7 New module glob-tests.
Simon Josefsson <simon@josefsson.org>
parents:
diff changeset
70 ASSERT (res == 0 && g.gl_pathc == 1);
2cba55a848c7 New module glob-tests.
Simon Josefsson <simon@josefsson.org>
parents:
diff changeset
71 ASSERT (strcmp (g.gl_pathv[0], GL_NO_SUCH_FILE) == 0);
2cba55a848c7 New module glob-tests.
Simon Josefsson <simon@josefsson.org>
parents:
diff changeset
72 globfree (&g);
2cba55a848c7 New module glob-tests.
Simon Josefsson <simon@josefsson.org>
parents:
diff changeset
73
19104
4e436f948972 glob: match dangling symlinks
Paul Eggert <eggert@cs.ucla.edu>
parents: 18626
diff changeset
74 if ((symlink (GL_NO_SUCH_FILE, BASE "globlink1") == 0 || errno == EEXIST)
4e436f948972 glob: match dangling symlinks
Paul Eggert <eggert@cs.ucla.edu>
parents: 18626
diff changeset
75 && (symlink (".", BASE "globlink2") == 0 || errno == EEXIST))
4e436f948972 glob: match dangling symlinks
Paul Eggert <eggert@cs.ucla.edu>
parents: 18626
diff changeset
76 {
4e436f948972 glob: match dangling symlinks
Paul Eggert <eggert@cs.ucla.edu>
parents: 18626
diff changeset
77 res = glob (BASE "globlink[12]", 0, NULL, &g);
4e436f948972 glob: match dangling symlinks
Paul Eggert <eggert@cs.ucla.edu>
parents: 18626
diff changeset
78 ASSERT (res == 0 && g.gl_pathc == 2);
4e436f948972 glob: match dangling symlinks
Paul Eggert <eggert@cs.ucla.edu>
parents: 18626
diff changeset
79 ASSERT (strcmp (g.gl_pathv[0], BASE "globlink1") == 0);
4e436f948972 glob: match dangling symlinks
Paul Eggert <eggert@cs.ucla.edu>
parents: 18626
diff changeset
80 ASSERT (strcmp (g.gl_pathv[1], BASE "globlink2") == 0);
4e436f948972 glob: match dangling symlinks
Paul Eggert <eggert@cs.ucla.edu>
parents: 18626
diff changeset
81 globfree (&g);
4e436f948972 glob: match dangling symlinks
Paul Eggert <eggert@cs.ucla.edu>
parents: 18626
diff changeset
82
4e436f948972 glob: match dangling symlinks
Paul Eggert <eggert@cs.ucla.edu>
parents: 18626
diff changeset
83 res = glob (BASE "globlink[12]", GLOB_MARK, NULL, &g);
4e436f948972 glob: match dangling symlinks
Paul Eggert <eggert@cs.ucla.edu>
parents: 18626
diff changeset
84 ASSERT (res == 0 && g.gl_pathc == 2);
4e436f948972 glob: match dangling symlinks
Paul Eggert <eggert@cs.ucla.edu>
parents: 18626
diff changeset
85 ASSERT (strcmp (g.gl_pathv[0], BASE "globlink1") == 0);
4e436f948972 glob: match dangling symlinks
Paul Eggert <eggert@cs.ucla.edu>
parents: 18626
diff changeset
86 ASSERT (strcmp (g.gl_pathv[1], BASE "globlink2/") == 0);
4e436f948972 glob: match dangling symlinks
Paul Eggert <eggert@cs.ucla.edu>
parents: 18626
diff changeset
87 globfree (&g);
4e436f948972 glob: match dangling symlinks
Paul Eggert <eggert@cs.ucla.edu>
parents: 18626
diff changeset
88 }
4e436f948972 glob: match dangling symlinks
Paul Eggert <eggert@cs.ucla.edu>
parents: 18626
diff changeset
89
11549
2cba55a848c7 New module glob-tests.
Simon Josefsson <simon@josefsson.org>
parents:
diff changeset
90 return 0;
2cba55a848c7 New module glob-tests.
Simon Josefsson <simon@josefsson.org>
parents:
diff changeset
91 }