/* Copyright (C) 2000-2014 Free Software Foundation, Inc. This file is part of the GNU C Library. Contributed by Ulrich Drepper <drepper@redhat.com>. The GNU C Library is free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 of the License, or (at your option) any later version. The GNU C Library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with the GNU C Library; if not, see <http://www.gnu.org/licenses/>. */ #include <errno.h> #include <error.h> #include <limits.h> #include <malloc.h> #include <stdlib.h> #include <stdio.h> /* Number of samples per size. */ #define N 50000 static void fixed_test (int size) { char *ptrs[N]; int i; for (i = 0; i < N; ++i) { int j; ptrs[i] = (char *) calloc (1, size); if (ptrs[i] == NULL) break; for (j = 0; j < size; ++j) { if (ptrs[i][j] != '\0') error (EXIT_FAILURE, 0, "byte not cleared (size %d, element %d, byte %d)", size, i, j); ptrs[i][j] = '\xff'; } } while (i-- > 0) free (ptrs[i]); } static void random_test (void) { char *ptrs[N]; int i; for (i = 0; i < N; ++i) { int j; int n = 1 + random () % 10; int elem = 1 + random () % 100; int size = n * elem; ptrs[i] = (char *) calloc (n, elem); if (ptrs[i] == NULL) break; for (j = 0; j < size; ++j) { if (ptrs[i][j] != '\0') error (EXIT_FAILURE, 0, "byte not cleared (size %d, element %d, byte %d)", size, i, j); ptrs[i][j] = '\xff'; } } while (i-- > 0) free (ptrs[i]); } static void null_test (void) { /* If the size is 0 the result is implementation defined. Just make sure the program doesn't crash. */ calloc (0, 0); calloc (0, UINT_MAX); calloc (UINT_MAX, 0); calloc (0, ~((size_t) 0)); calloc (~((size_t) 0), 0); } static int do_test (void) { /* We are allocating blocks with `calloc' and check whether every block is completely cleared. We first try this for some fixed times and then with random size. */ fixed_test (15); fixed_test (5); fixed_test (17); fixed_test (6); fixed_test (31); fixed_test (96); random_test (); null_test (); return 0; } #define TEST_FUNCTION do_test () #include "../test-skeleton.c"