1 files changed, 76 insertions, 0 deletions
diff --git a/src/third_party/wiredtiger/test/format/compact.c b/src/third_party/wiredtiger/test/format/compact.c
new file mode 100644
index 00000000000..ad603504023
--- /dev/null
+++ b/src/third_party/wiredtiger/test/format/compact.c
@@ -0,0 +1,76 @@
+/*-
+ * Public Domain 2014-2015 MongoDB, Inc.
+ * Public Domain 2008-2014 WiredTiger, Inc.
+ *
+ * This is free and unencumbered software released into the public domain.
+ *
+ * Anyone is free to copy, modify, publish, use, compile, sell, or
+ * distribute this software, either in source code form or as a compiled
+ * binary, for any purpose, commercial or non-commercial, and by any
+ * means.
+ *
+ * In jurisdictions that recognize copyright laws, the author or authors
+ * of this software dedicate any and all copyright interest in the
+ * software to the public domain. We make this dedication for the benefit
+ * of the public at large and to the detriment of our heirs and
+ * successors. We intend this dedication to be an overt act of
+ * relinquishment in perpetuity of all present and future rights to this
+ * software under copyright law.
+ *
+ * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+ * EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+ * MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
+ * IN NO EVENT SHALL THE AUTHORS BE LIABLE FOR ANY CLAIM, DAMAGES OR
+ * OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE,
+ * ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR
+ * OTHER DEALINGS IN THE SOFTWARE.
+ */
+
+#include "format.h"
+
+/*
+ * compaction --
+ *	Periodically do a compaction operation.
+ */
+void *
+compact(void *arg)
+{
+	WT_CONNECTION *conn;
+	WT_SESSION *session;
+	u_int period;
+	int ret;
+
+	(void)(arg);
+
+	/* Compaction isn't supported for all data sources. */
+	if (DATASOURCE("helium") || DATASOURCE("kvsbdb"))
+		return (NULL);
+
+	/* Open a session. */
+	conn = g.wts_conn;
+	if ((ret = conn->open_session(conn, NULL, NULL, &session)) != 0)
+		die(ret, "connection.open_session");
+
+	/*
+	 * Perform compaction at somewhere under 15 seconds (so we get at
+	 * least one done), and then at 23 second intervals.
+	 */
+	for (period = mmrand(NULL, 1, 15);; period = 23) {
+		/* Sleep for short periods so we don't make the run wait. */
+		while (period > 0 && !g.workers_finished) {
+			--period;
+			sleep(1);
+		}
+		if (g.workers_finished)
+			break;
+
+		if ((ret = session->compact(
+		    session, g.uri, NULL)) != 0 && ret != WT_ROLLBACK)
+			die(ret, "session.compact");
+	}
+
+	if ((ret = session->close(session, NULL)) != 0)
+		die(ret, "session.close");
+
+	return (NULL);
+}