contrib/netbsd-tests/lib/libc/gen/t_dir.c

   1 /* $NetBSD: t_dir.c,v 1.10 2017/01/11 18:15:02 christos Exp $ */
   2
   3 /*-
   4  * Copyright (c) 2010 The NetBSD Foundation, Inc.
   5  * All rights reserved.
   6  *
   7  * Redistribution and use in source and binary forms, with or without
   8  * modification, are permitted provided that the following conditions
   9  * are met:
  10  * 1. Redistributions of source code must retain the above copyright
  11  *    notice, this list of conditions and the following disclaimer.
  12  * 2. Redistributions in binary form must reproduce the above copyright
  13  *    notice, this list of conditions and the following disclaimer in the
  14  *    documentation and/or other materials provided with the distribution.
  15  *
  16  * THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS
  17  * ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
  18  * TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
  19  * PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS
  20  * BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
  21  * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
  22  * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
  23  * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
  24  * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
  25  * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
  26  * POSSIBILITY OF SUCH DAMAGE.
  27  */
  28
  29 #include <sys/stat.h>
  30 #include <assert.h>
  31 #include <atf-c.h>
  32 #include <dirent.h>
  33 #include <err.h>
  34 #include <errno.h>
  35 #include <fcntl.h>
  36 #include <stdio.h>
  37 #include <stdlib.h>
  38 #include <string.h>
  39 #include <unistd.h>
  40
  41
  42
  43 ATF_TC(seekdir_basic);
  44 ATF_TC_HEAD(seekdir_basic, tc)
  45 {
  46
  47         atf_tc_set_md_var(tc, "descr", "Check telldir(3) and seekdir(3) "
  48             "for correct behavior (PR lib/24324)");
  49 }
  50
  51 ATF_TC_BODY(seekdir_basic, tc)
  52 {
  53         DIR *dp;
  54         char *wasname;
  55         struct dirent *entry;
  56         long here;
  57
  58 #define CREAT(x, m)     do {                                            \
  59                 int _creat_fd;                                          \
  60                 ATF_REQUIRE_MSG((_creat_fd = creat((x), (m))) != -1,    \
  61                     "creat(%s, %x) failed: %s", (x), (m),               \
  62                     strerror(errno));                                   \
  63                 (void)close(_creat_fd);                                 \
  64         } while(0);
  65
  66         ATF_REQUIRE_MSG(mkdir("t", 0755) == 0,
  67             "mkdir failed: %s", strerror(errno));
  68         CREAT("t/a", 0600);
  69         CREAT("t/b", 0600);
  70         CREAT("t/c", 0600);
  71
  72         dp = opendir("t");
  73         if ( dp == NULL)
  74                 atf_tc_fail("Could not open temp directory.");
  75
  76         /* skip two for . and .. */
  77         entry = readdir(dp);
  78         ATF_REQUIRE_MSG(entry != NULL, "readdir[%s] failed: %s",
  79             ".", strerror(errno));
  80
  81         entry = readdir(dp);
  82         ATF_REQUIRE_MSG(entry != NULL, "readdir[%s] failed: %s",
  83             "..", strerror(errno));
  84
  85         /* get first entry */
  86         entry = readdir(dp);
  87         ATF_REQUIRE_MSG(entry != NULL, "readdir[%s] failed: %s",
  88             "first", strerror(errno));
  89
  90         here = telldir(dp);
  91         ATF_REQUIRE_MSG(here != -1, "telldir failed: %s", strerror(errno));
  92
  93         /* get second entry */
  94         entry = readdir(dp);
  95         ATF_REQUIRE_MSG(entry != NULL, "readdir[%s] failed: %s",
  96             "second", strerror(errno));
  97
  98         wasname = strdup(entry->d_name);
  99         if (wasname == NULL)
 100                 atf_tc_fail("cannot allocate memory");
 101
 102         /* get third entry */
 103         entry = readdir(dp);
 104         ATF_REQUIRE_MSG(entry != NULL, "readdir[%s] failed: %s",
 105             "third", strerror(errno));
 106
 107         /* try to return to the position after the first entry */
 108         seekdir(dp, here);
 109         entry = readdir(dp);
 110         ATF_REQUIRE_MSG(entry != NULL, "readdir[%s] failed: %s",
 111             "first[1]", strerror(errno));
 112         if (strcmp(entry->d_name, wasname) != 0)
 113                 atf_tc_fail("1st seekdir found wrong name");
 114
 115         /* try again, and throw in a telldir() for good measure */
 116         seekdir(dp, here);
 117         here = telldir(dp);
 118         entry = readdir(dp);
 119         ATF_REQUIRE_MSG(entry != NULL, "readdir[%s] failed: %s",
 120             "second[1]", strerror(errno));
 121         if (strcmp(entry->d_name, wasname) != 0)
 122                 atf_tc_fail("2nd seekdir found wrong name");
 123
 124         /* One more time, to make sure that telldir() doesn't affect result */
 125         seekdir(dp, here);
 126         entry = readdir(dp);
 127         ATF_REQUIRE_MSG(entry != NULL, "readdir[%s] failed: %s",
 128             "third[1]", strerror(errno));
 129
 130         if (strcmp(entry->d_name, wasname) != 0)
 131                 atf_tc_fail("3rd seekdir found wrong name");
 132
 133         closedir(dp);
 134         free(wasname);
 135 }
 136
 137 /* There is no sbrk on AArch64 and RISC-V */
 138 #if !defined(__aarch64__) && !defined(__riscv)
 139 ATF_TC(telldir_leak);
 140 ATF_TC_HEAD(telldir_leak, tc)
 141 {
 142
 143         atf_tc_set_md_var(tc, "descr",
 144             "Check telldir(3) for memory leakage (PR lib/24324)");
 145 }
 146
 147 ATF_TC_BODY(telldir_leak, tc)
 148 {
 149         DIR *dp;
 150         char *memused;
 151         int i;
 152         int oktouse = 4096;
 153
 154         dp = opendir(".");
 155         if (dp == NULL)
 156                 atf_tc_fail("Could not open current directory");
 157
 158         (void)telldir(dp);
 159         memused = sbrk(0);
 160         closedir(dp);
 161
 162         for (i = 0; i < 1000; i++) {
 163                 dp = opendir(".");
 164                 if (dp == NULL)
 165                         atf_tc_fail("Could not open current directory");
 166
 167                 (void)telldir(dp);
 168                 closedir(dp);
 169
 170                 if ((char *)sbrk(0) - memused > oktouse) {
 171                         (void)printf("Used %td extra bytes for %d telldir "
 172                             "calls", ((char *)sbrk(0) - memused), i);
 173                         oktouse = (char *)sbrk(0) - memused;
 174                 }
 175         }
 176         if (oktouse > 4096) {
 177                 atf_tc_fail("Failure: leaked %d bytes", oktouse);
 178         } else {
 179                 (void)printf("OK: used %td bytes\n", (char *)(sbrk(0))-memused);
 180         }
 181 }
 182 #endif
 183
 184 ATF_TP_ADD_TCS(tp)
 185 {
 186
 187         ATF_TP_ADD_TC(tp, seekdir_basic);
 188 #if !defined(__aarch64__) && !defined(__riscv)
 189         ATF_TP_ADD_TC(tp, telldir_leak);
 190 #endif
 191
 192         return atf_no_error();
 193 }