annotate tests/test-argv-iter.c @ 17632:86af85d364e1 default tip

unistd: port readlink to Mac OS X 10.3.9 * lib/unistd.in.h (_GL_INCLUDING_UNISTD_H): New macro, to work around self-include problem in Mac OS X 10.3.9 when combined with readlink module. Problem reported by Klaus Zietler in <http://bugs.gnu.org/16825>.
author Paul Eggert <eggert@penguin.cs.ucla.edu>
date Tue, 25 Feb 2014 11:16:27 -0800
parents 344018b6e5d7
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
11708
f74cfe188f81 argv-iter: new module
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
1 /* Test argv iterator
17587
344018b6e5d7 maint: update copyright
Eric Blake <eblake@redhat.com>
parents: 17249
diff changeset
2 Copyright (C) 2008-2014 Free Software Foundation, Inc.
11708
f74cfe188f81 argv-iter: new module
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
3
f74cfe188f81 argv-iter: new module
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
4 This program is free software: you can redistribute it and/or modify
f74cfe188f81 argv-iter: new module
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
5 it under the terms of the GNU General Public License as published by
f74cfe188f81 argv-iter: new module
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
6 the Free Software Foundation; either version 3 of the License, or
f74cfe188f81 argv-iter: new module
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
7 (at your option) any later version.
f74cfe188f81 argv-iter: new module
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
8
f74cfe188f81 argv-iter: new module
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
9 This program is distributed in the hope that it will be useful,
f74cfe188f81 argv-iter: new module
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
10 but WITHOUT ANY WARRANTY; without even the implied warranty of
f74cfe188f81 argv-iter: new module
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
11 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
f74cfe188f81 argv-iter: new module
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
12 GNU General Public License for more details.
f74cfe188f81 argv-iter: new module
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
13
f74cfe188f81 argv-iter: new module
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
14 You should have received a copy of the GNU General Public License
f74cfe188f81 argv-iter: new module
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
15 along with this program. If not, see <http://www.gnu.org/licenses/>. */
f74cfe188f81 argv-iter: new module
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
16
f74cfe188f81 argv-iter: new module
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
17 /* Written by Jim Meyering. */
f74cfe188f81 argv-iter: new module
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
18
f74cfe188f81 argv-iter: new module
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
19 #include <config.h>
12487
8ba9831d54bf Include header file being tested immediately after config.h.
Bruno Haible <bruno@clisp.org>
parents: 12197
diff changeset
20
8ba9831d54bf Include header file being tested immediately after config.h.
Bruno Haible <bruno@clisp.org>
parents: 12197
diff changeset
21 #include "argv-iter.h"
8ba9831d54bf Include header file being tested immediately after config.h.
Bruno Haible <bruno@clisp.org>
parents: 12197
diff changeset
22
11708
f74cfe188f81 argv-iter: new module
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
23 #include <stdio.h>
f74cfe188f81 argv-iter: new module
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
24 #include <string.h>
f74cfe188f81 argv-iter: new module
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
25
12496
a48d3d749ca5 Refactor common macros used in tests.
Bruno Haible <bruno@clisp.org>
parents: 12487
diff changeset
26 #include "macros.h"
a48d3d749ca5 Refactor common macros used in tests.
Bruno Haible <bruno@clisp.org>
parents: 12487
diff changeset
27
11708
f74cfe188f81 argv-iter: new module
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
28 #define ARRAY_CARDINALITY(Array) (sizeof (Array) / sizeof *(Array))
12772
2ea3e3fab7ee define STREQ(a,b) consistently, removing useless parentheses
Jim Meyering <meyering@redhat.com>
parents: 12559
diff changeset
29 #define STREQ(a, b) (strcmp (a, b) == 0)
11708
f74cfe188f81 argv-iter: new module
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
30
f74cfe188f81 argv-iter: new module
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
31 static FILE *
f74cfe188f81 argv-iter: new module
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
32 write_nul_delimited_argv (char **argv)
f74cfe188f81 argv-iter: new module
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
33 {
f74cfe188f81 argv-iter: new module
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
34 FILE *fp = tmpfile ();
f74cfe188f81 argv-iter: new module
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
35 ASSERT (fp);
f74cfe188f81 argv-iter: new module
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
36 while (*argv)
f74cfe188f81 argv-iter: new module
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
37 {
f74cfe188f81 argv-iter: new module
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
38 size_t len = strlen (*argv) + 1;
f74cfe188f81 argv-iter: new module
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
39 ASSERT (fwrite (*argv, len, 1, fp) == 1);
f74cfe188f81 argv-iter: new module
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
40 argv++;
f74cfe188f81 argv-iter: new module
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
41 }
f74cfe188f81 argv-iter: new module
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
42 ASSERT (fflush (fp) == 0);
f74cfe188f81 argv-iter: new module
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
43 rewind (fp);
f74cfe188f81 argv-iter: new module
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
44 return fp;
f74cfe188f81 argv-iter: new module
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
45 }
f74cfe188f81 argv-iter: new module
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
46
f74cfe188f81 argv-iter: new module
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
47 int
12197
e45d9bb2233e tests: avoid several compiler warnings
Eric Blake <ebb9@byu.net>
parents: 11709
diff changeset
48 main (void)
11708
f74cfe188f81 argv-iter: new module
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
49 {
f74cfe188f81 argv-iter: new module
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
50 /* set_program_name (argv[0]); placate overzealous "syntax-check" test. */
12197
e45d9bb2233e tests: avoid several compiler warnings
Eric Blake <ebb9@byu.net>
parents: 11709
diff changeset
51 static char one[] = "1";
e45d9bb2233e tests: avoid several compiler warnings
Eric Blake <ebb9@byu.net>
parents: 11709
diff changeset
52 static char two[] = "2";
e45d9bb2233e tests: avoid several compiler warnings
Eric Blake <ebb9@byu.net>
parents: 11709
diff changeset
53 static char three[] = "3";
11708
f74cfe188f81 argv-iter: new module
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
54 static char *av[][4] = {
f74cfe188f81 argv-iter: new module
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
55 {NULL},
12197
e45d9bb2233e tests: avoid several compiler warnings
Eric Blake <ebb9@byu.net>
parents: 11709
diff changeset
56 {one, NULL},
e45d9bb2233e tests: avoid several compiler warnings
Eric Blake <ebb9@byu.net>
parents: 11709
diff changeset
57 {one, two, NULL},
e45d9bb2233e tests: avoid several compiler warnings
Eric Blake <ebb9@byu.net>
parents: 11709
diff changeset
58 {one, two, three, NULL}
11708
f74cfe188f81 argv-iter: new module
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
59 };
f74cfe188f81 argv-iter: new module
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
60
f74cfe188f81 argv-iter: new module
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
61 int use_stream;
f74cfe188f81 argv-iter: new module
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
62 for (use_stream = 0; use_stream < 2; use_stream++)
f74cfe188f81 argv-iter: new module
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
63 {
f74cfe188f81 argv-iter: new module
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
64 size_t i;
f74cfe188f81 argv-iter: new module
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
65 for (i = 0; i < ARRAY_CARDINALITY (av); i++)
f74cfe188f81 argv-iter: new module
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
66 {
f74cfe188f81 argv-iter: new module
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
67 FILE *fp;
f74cfe188f81 argv-iter: new module
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
68 struct argv_iterator *ai;
f74cfe188f81 argv-iter: new module
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
69 size_t n_found = 0;
f74cfe188f81 argv-iter: new module
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
70 if (use_stream)
f74cfe188f81 argv-iter: new module
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
71 {
f74cfe188f81 argv-iter: new module
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
72 /* Generate an identical list to be read via FP. */
f74cfe188f81 argv-iter: new module
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
73 ASSERT ((fp = write_nul_delimited_argv (av[i])) != NULL);
f74cfe188f81 argv-iter: new module
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
74 ai = argv_iter_init_stream (fp);
f74cfe188f81 argv-iter: new module
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
75 }
f74cfe188f81 argv-iter: new module
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
76 else
f74cfe188f81 argv-iter: new module
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
77 {
f74cfe188f81 argv-iter: new module
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
78 fp = NULL;
f74cfe188f81 argv-iter: new module
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
79 ai = argv_iter_init_argv (av[i]);
f74cfe188f81 argv-iter: new module
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
80 }
f74cfe188f81 argv-iter: new module
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
81 ASSERT (ai);
f74cfe188f81 argv-iter: new module
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
82
f74cfe188f81 argv-iter: new module
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
83 while (1)
f74cfe188f81 argv-iter: new module
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
84 {
f74cfe188f81 argv-iter: new module
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
85 enum argv_iter_err ai_err;
f74cfe188f81 argv-iter: new module
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
86 char *s = argv_iter (ai, &ai_err);
f74cfe188f81 argv-iter: new module
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
87 ASSERT ((i == n_found) == (ai_err == AI_ERR_EOF));
f74cfe188f81 argv-iter: new module
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
88 ASSERT ((s == NULL) ^ (ai_err == AI_ERR_OK));
f74cfe188f81 argv-iter: new module
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
89 ASSERT (ai_err == AI_ERR_OK || ai_err == AI_ERR_EOF);
f74cfe188f81 argv-iter: new module
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
90 if (ai_err == AI_ERR_OK)
f74cfe188f81 argv-iter: new module
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
91 ++n_found;
f74cfe188f81 argv-iter: new module
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
92 if (ai_err == AI_ERR_EOF)
f74cfe188f81 argv-iter: new module
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
93 break;
f74cfe188f81 argv-iter: new module
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
94 /* In stream mode, the strings are equal, but
f74cfe188f81 argv-iter: new module
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
95 in argv mode the actual pointers are equal. */
f74cfe188f81 argv-iter: new module
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
96 ASSERT (use_stream
f74cfe188f81 argv-iter: new module
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
97 ? STREQ (s, av[i][n_found - 1])
f74cfe188f81 argv-iter: new module
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
98 : s == av[i][n_found - 1]);
f74cfe188f81 argv-iter: new module
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
99 }
f74cfe188f81 argv-iter: new module
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
100 ASSERT (argv_iter_n_args (ai) == i);
f74cfe188f81 argv-iter: new module
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
101 argv_iter_free (ai);
f74cfe188f81 argv-iter: new module
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
102 if (fp)
f74cfe188f81 argv-iter: new module
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
103 ASSERT (fclose (fp) == 0);
f74cfe188f81 argv-iter: new module
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
104 }
f74cfe188f81 argv-iter: new module
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
105 }
f74cfe188f81 argv-iter: new module
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
106
f74cfe188f81 argv-iter: new module
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
107 return 0;
f74cfe188f81 argv-iter: new module
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
108 }