mirror of
https://github.com/Unidata/netcdf-c.git
synced 2024-12-27 08:49:16 +08:00
55 lines
1.6 KiB
C
55 lines
1.6 KiB
C
/* This is part of the netCDF package. Copyright 2020 University
|
|
Corporation for Atmospheric Research/Unidata See COPYRIGHT file for
|
|
conditions of use.
|
|
|
|
Test internal netcdf-4 file code for memory leaks. This test was
|
|
suggest by Jeff Whitaker. See
|
|
https://github.com/Unidata/netcdf-c/issues/1575.
|
|
|
|
Ed Hartnett 2/9/20
|
|
*/
|
|
|
|
#include <config.h>
|
|
#include <nc_tests.h>
|
|
#include <err_macros.h>
|
|
#include <sys/resource.h>
|
|
|
|
#define FILE_NAME "tst_mem1.nc"
|
|
#define NUM_FILE_OPENS 10000
|
|
|
|
int main()
|
|
{
|
|
int ncid, varid, idx;
|
|
struct rusage r_usage;
|
|
|
|
printf("\n*** Testing netcdf-4 memory use.\n");
|
|
printf("*** testing mem use opening/closing file...");
|
|
{
|
|
long my_rss = 0;
|
|
|
|
if (nc_create(FILE_NAME, NC_CLOBBER | NC_NETCDF4, &ncid)) ERR;
|
|
/* if (nc_create(FILE_NAME, NC_CLOBBER, &ncid)) ERR; */
|
|
if (nc_def_var(ncid, "dummy", NC_DOUBLE, 0, NULL, &varid)) ERR;
|
|
if (nc_close(ncid)) ERR;
|
|
|
|
for (idx = 0; idx < NUM_FILE_OPENS; idx++)
|
|
{
|
|
if (nc_open(FILE_NAME, NC_NOWRITE, &ncid)) ERR;
|
|
if (nc_close(ncid)) ERR;
|
|
getrusage(RUSAGE_SELF, &r_usage);
|
|
/* if (!(idx % 100)) */
|
|
/* printf("Memory usage: %ld kilobytes\n",r_usage.ru_maxrss); */
|
|
|
|
/* Memory usage goes up in the first couple of opens, but
|
|
* should then remain steady. Check that it does not
|
|
* change after the first 10 iterations. */
|
|
if (!my_rss || idx < 10)
|
|
my_rss = r_usage.ru_maxrss;
|
|
else
|
|
if (my_rss != r_usage.ru_maxrss) ERR;
|
|
};
|
|
}
|
|
SUMMARIZE_ERR;
|
|
FINAL_RESULTS;
|
|
}
|