maint.mk: tweak new rule's name not to impinge
[pspp] / tests / test-getcwd-lgpl.c
1 /* Test of getcwd() function.
2    Copyright (C) 2009-2011 Free Software Foundation, Inc.
3
4    This program is free software: you can redistribute it and/or modify
5    it under the terms of the GNU General Public License as published by
6    the Free Software Foundation; either version 3 of the License, or
7    (at your option) any later version.
8
9    This program is distributed in the hope that it will be useful,
10    but WITHOUT ANY WARRANTY; without even the implied warranty of
11    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
12    GNU General Public License for more details.
13
14    You should have received a copy of the GNU General Public License
15    along with this program.  If not, see <http://www.gnu.org/licenses/>.  */
16
17 #include <config.h>
18
19 #include <unistd.h>
20
21 #include "signature.h"
22 SIGNATURE_CHECK (getcwd, char *, (char *, size_t));
23
24 #include <errno.h>
25 #include <stdio.h>
26 #include <stdlib.h>
27 #include <string.h>
28
29 #include "macros.h"
30
31 int
32 main (int argc, char **argv)
33 {
34   char *pwd1;
35   char *pwd2;
36   /* If the user provides an argument, attempt to chdir there first.  */
37   if (1 < argc)
38     {
39       if (chdir (argv[1]) == 0)
40         printf ("changed to directory %s\n", argv[1]);
41     }
42
43   pwd1 = getcwd (NULL, 0);
44   ASSERT (pwd1 && *pwd1);
45   if (1 < argc)
46     printf ("cwd=%s\n", pwd1);
47
48   /* Make sure the result is usable.  */
49   ASSERT (chdir (pwd1) == 0);
50   ASSERT (chdir (".//./.") == 0);
51
52   /* Make sure that result is normalized.  */
53   pwd2 = getcwd (NULL, 0);
54   ASSERT (pwd2);
55   ASSERT (strcmp (pwd1, pwd2) == 0);
56   free (pwd2);
57   {
58     size_t len = strlen (pwd1);
59     ssize_t i = len - 10;
60     if (i < 1)
61       i = 1;
62     pwd2 = getcwd (NULL, len + 1);
63     ASSERT (pwd2);
64     free (pwd2);
65     pwd2 = malloc (len + 2);
66     for ( ; i <= len; i++)
67       {
68         errno = 0;
69         ASSERT (getcwd (pwd2, i) == NULL);
70         ASSERT (errno == ERANGE);
71         errno = 0;
72         ASSERT (getcwd (NULL, i) == NULL);
73         ASSERT (errno == ERANGE);
74       }
75     ASSERT (getcwd (pwd2, len + 1) == pwd2);
76     pwd2[len] = '/';
77     pwd2[len + 1] = '\0';
78   }
79   ASSERT (strstr (pwd2, "/./") == NULL);
80   ASSERT (strstr (pwd2, "/../") == NULL);
81   ASSERT (strstr (pwd2 + 1 + (pwd2[1] == '/'), "//") == NULL);
82
83   free (pwd1);
84   free (pwd2);
85
86   return 0;
87 }