1 files changed, 69 insertions, 0 deletions
diff --git a/sendmail/libsm/t-rpool.c b/sendmail/libsm/t-rpool.c
new file mode 100644
index 0000000..b671a4b
--- /dev/null
+++ b/sendmail/libsm/t-rpool.c
@@ -0,0 +1,69 @@
+/*
+ * 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, "@(#)$Id: 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();
+}