/*
 * Copyright (c) 2000-2001 Sendmail, Inc. and its suppliers.
 *	All rights reserved.
 *
 * By using this file, you agree to the terms and conditions set
 * forth in the LICENSE file which can be found at the top level of
 * the sendmail distribution.
 */

#include <sm/gen.h>
SM_IDSTR(id, "@(#)$Sendmail: t-rpool.c,v 1.18 2001/09/11 04:04:49 gshapiro Exp $")

#include <sm/debug.h>
#include <sm/heap.h>
#include <sm/rpool.h>
#include <sm/io.h>
#include <sm/test.h>

static void
rfree __P((
	void *cx));

static void
rfree(cx)
	void *cx;
{
	(void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, "rfree freeing `%s'\n",
			     (char *) cx);
}

int
main(argc, argv)
	int argc;
	char *argv[];
{
	SM_RPOOL_T *rpool;
	char *a[26];
	int i, j;
	SM_RPOOL_ATTACH_T att;

	sm_test_begin(argc, argv, "test rpool");
	sm_debug_addsetting_x("sm_check_heap", 1);
	rpool = sm_rpool_new_x(NULL);
	SM_TEST(rpool != NULL);
	att = sm_rpool_attach_x(rpool, rfree, "attachment #1");
	SM_TEST(att != NULL);
	for (i = 0; i < 26; ++i)
	{
		size_t sz = i * i * i;

		a[i] = sm_rpool_malloc_x(rpool, sz);
		for (j = 0; j < sz; ++j)
			a[i][j] = 'a' + i;
	}
	att = sm_rpool_attach_x(rpool, rfree, "attachment #2");
	(void) sm_rpool_attach_x(rpool, rfree, "attachment #3");
	sm_rpool_detach(att);

	/* XXX more tests? */
#if DEBUG
	sm_dprintf("heap after filling up rpool:\n");
	sm_heap_report(smioout, 3);
	sm_dprintf("freeing rpool:\n");
	sm_rpool_free(rpool);
	sm_dprintf("heap after freeing rpool:\n");
	sm_heap_report(smioout, 3);
#endif /* DEBUG */
	return sm_test_end();
}