Always do locking when iterating over list of streams (bug 15142)
[glibc.git] / timezone / tst-tzset.c
blob05a6139ec2b0910dba69065c59ba569501b48fee
1 /* tzset tests with crafted time zone data.
2 Copyright (C) 2015-2017 Free Software Foundation, Inc.
4 The GNU C Library is free software; you can redistribute it and/or
5 modify it under the terms of the GNU Lesser General Public
6 License as published by the Free Software Foundation; either
7 version 2.1 of the License, or (at your option) any later version.
9 The GNU C Library 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 GNU
12 Lesser General Public License for more details.
14 You should have received a copy of the GNU Lesser General Public
15 License along with the GNU C Library; if not, see
16 <http://www.gnu.org/licenses/>. */
18 #define _GNU_SOURCE 1
20 #include <errno.h>
21 #include <stdio.h>
22 #include <stdlib.h>
23 #include <string.h>
24 #include <sys/resource.h>
25 #include <time.h>
26 #include <unistd.h>
28 #define TIMEOUT 5
29 static int do_test (void);
30 #define TEST_FUNCTION do_test ()
31 #include "../test-skeleton.c"
33 /* Returns the name of a large TZ file. */
34 static char *
35 create_tz_file (off64_t size)
37 char *path;
38 int fd = create_temp_file ("tst-tzset-", &path);
39 if (fd < 0)
40 exit (1);
42 // Reopen for large-file support.
43 close (fd);
44 fd = open64 (path, O_WRONLY);
45 if (fd < 0)
47 printf ("open64 (%s) failed: %m\n", path);
48 exit (1);
51 static const char data[] = {
52 0x54, 0x5a, 0x69, 0x66, 0x32, 0x00, 0x00, 0x00,
53 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
54 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x01,
55 0x00, 0x00, 0x00, 0x01, 0x00, 0x00, 0x00, 0x00,
56 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x01,
57 0x00, 0x00, 0x00, 0x04, 0x00, 0x00, 0x00, 0x00,
58 0x00, 0x00, 0x58, 0x54, 0x47, 0x00, 0x00, 0x00,
59 0x54, 0x5a, 0x69, 0x66, 0x32, 0x00, 0x00, 0x00,
60 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
61 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x01,
62 0x00, 0x00, 0x00, 0x01, 0x00, 0x00, 0x00, 0x00,
63 0x00, 0x00, 0x00, 0x01, 0x00, 0x00, 0x00, 0x01,
64 0x00, 0x00, 0x00, 0x04, 0xf8, 0x00, 0x00, 0x00,
65 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
66 0x00, 0x00, 0x00, 0x58, 0x54, 0x47, 0x00, 0x00,
67 0x00, 0x0a, 0x58, 0x54, 0x47, 0x30, 0x0a
69 ssize_t ret = write (fd, data, sizeof (data));
70 if (ret < 0)
72 printf ("write failed: %m\n");
73 exit (1);
75 if ((size_t) ret != sizeof (data))
77 printf ("Short write\n");
78 exit (1);
80 if (lseek64 (fd, size, SEEK_CUR) < 0)
82 printf ("lseek failed: %m\n");
83 close (fd);
84 return NULL;
86 if (write (fd, "", 1) != 1)
88 printf ("Single-byte write failed\n");
89 close (fd);
90 return NULL;
92 if (close (fd) != 0)
94 printf ("close failed: %m\n");
95 exit (1);
97 return path;
100 static void
101 test_tz_file (off64_t size)
103 char *path = create_tz_file (size);
104 if (setenv ("TZ", path, 1) < 0)
106 printf ("setenv failed: %m\n");
107 exit (1);
109 tzset ();
110 free (path);
113 static int
114 do_test (void)
116 /* Limit the size of the process. Otherwise, some of the tests will
117 consume a lot of resources. */
119 struct rlimit limit;
120 if (getrlimit (RLIMIT_AS, &limit) != 0)
122 printf ("getrlimit (RLIMIT_AS) failed: %m\n");
123 return 1;
125 long target = 512 * 1024 * 1024;
126 if (limit.rlim_cur == RLIM_INFINITY || limit.rlim_cur > target)
128 limit.rlim_cur = 512 * 1024 * 1024;
129 if (setrlimit (RLIMIT_AS, &limit) != 0)
131 printf ("setrlimit (RLIMIT_AS) failed: %m\n");
132 return 1;
137 int errors = 0;
138 for (int i = 1; i <= 4; ++i)
140 char tz[16];
141 snprintf (tz, sizeof (tz), "XT%d", i);
142 if (setenv ("TZ", tz, 1) < 0)
144 printf ("setenv failed: %m\n");
145 return 1;
147 tzset ();
148 if (strcmp (tzname[0], tz) == 0)
150 printf ("Unexpected success for %s\n", tz);
151 ++errors;
155 /* Large TZ files. */
157 /* This will succeed on 64-bit architectures, and fail on 32-bit
158 architectures. It used to crash on 32-bit. */
159 test_tz_file (64 * 1024 * 1024);
161 /* This will fail on 64-bit and 32-bit architectures. It used to
162 cause a test timeout on 64-bit and crash on 32-bit if the TZ file
163 open succeeded for some reason (it does not use O_LARGEFILE in
164 regular builds). */
165 test_tz_file (4LL * 1024 * 1024 * 1024 - 6);
167 /* Large TZ variables. */
169 size_t length = 64 * 1024 * 1024;
170 char *value = malloc (length + 1);
171 if (value == NULL)
173 puts ("malloc failed: %m");
174 return 1;
176 value[length] = '\0';
178 memset (value, ' ', length);
179 value[0] = 'U';
180 value[1] = 'T';
181 value[2] = 'C';
182 if (setenv ("TZ", value, 1) < 0)
184 printf ("setenv failed: %m\n");
185 return 1;
187 tzset ();
189 memset (value, '0', length);
190 value[0] = '<';
191 value[length - 1] = '>';
192 if (setenv ("TZ", value, 1) < 0)
194 printf ("setenv failed: %m\n");
195 return 1;
197 tzset ();
200 return errors > 0;