Wrote a test for #1426. And fixed it. Fixes #1426.

git-svn-id: file:///svn/toku/tokudb@9204 c7de825b-a66e-492c-adef-691d508d4ae1

src/tests/Makefile

@@ -46,6 +46,7 @@ BDB_DONTRUN_TESTS = \
 	helgrind1 \
 	helgrind2 \
 	helgrind3 \
+	test1426 \
 #\ ends prev line
 
 BDB_TESTS = $(patsubst %.c,%.bdb$(BINSUF),$(filter-out $(patsubst %,%.c,$(BDB_DONTRUN_TESTS)),$(SRCS)))
@@ -176,6 +177,7 @@ endif
 clean:
 	rm -f $(ALL_TESTS)
 	rm -rf dir.*.tdb dir.*.bdb dir.*.tdb.recover
+	rm -f dump.bdb.1426 dump.tdb.1426
 
 ifeq ($(VGRIND),)
   BDB_SUPPRESSIONS =
@@ -282,6 +284,14 @@ tgbr_%_b.tdbrun: test_get_both_range.tdb$(BINSUF)
 tgbr_%_c.tdbrun: test_get_both_range.tdb$(BINSUF)
 	$(VGRIND) ./$< $(VERBVERBOSE) -i $* -c $(MAYBEINVERTER) $(SUMMARIZE_CMD)
 
+# test1426 is run by comparing the BDB output to the TDB output
+test1426.tdbrun: test1426.tdb  test1426.bdb
+	./test1426.tdb -q
+	./test1426.bdb -q
+	db_dump -p -h dir.test1426.c.bdb main > dump.bdb.1426
+	../../utils/tokudb_dump -p -h dir.test1426.c.tdb main > dump.tdb.1426
+	diff -I db_pagesize=4096 dump.bdb.1426 dump.tdb.1426
+
 # helgrind1 is supposed to fail.
 helgrind1.tdbrun: TDBVGRIND=$(HGRIND) --log-file=helgrind1.tdb.deleteme
 helgrind1.tdbrun: MAYBEINVERTER=$(INVERTER)

src/tests/test1426.c

+/* -*- mode: C; c-basic-offset: 4 -*- */
+#ident "Copyright (c) 2007 Tokutek Inc.  All rights reserved."
+#include "test.h"
+/* Test for #1426. Make sure deletes and inserts in a FIFO work. */
+/* This test is run using a special makefile rule that runs the TDB version and the BDB version, dumps their outputs, and compares them */
+
+#include <db.h>
+#include <memory.h>
+#include <fcntl.h>
+
+// |DB_INIT_TXN| DB_INIT_LOG  | DB_RECOVER
+const int envflags = DB_CREATE|DB_INIT_MPOOL|DB_INIT_LOCK |DB_THREAD |DB_PRIVATE;
+
+DB_ENV *env;
+DB     *db;
+DB_TXN * const null_txn = NULL;
+
+static void
+empty_cachetable (void)
+// Make all the cachetable entries clean.
+// Brute force it by closing and reopening everything.
+{
+    int r;
+    r = db->close(db, 0);                                                 CKERR(r);
+    r = env->close(env, 0);                                               CKERR(r);
+    r = db_env_create(&env, 0);                                           CKERR(r);
+#ifdef TOKUDB
+    r = env->set_cachesize(env, 0, 10000000, 1);                          CKERR(r);
+#endif
+    r = env->open(env, ENVDIR, envflags, S_IRWXU+S_IRWXG+S_IRWXO);        CKERR(r);
+    r = db_create(&db, env, 0);                                           CKERR(r);
+    r = db->open(db, null_txn, "main", 0,     DB_BTREE, 0, 0666);         CKERR(r);
+}
+
+static void
+do_insert_delete_fifo (void)
+{
+    system("rm -rf " ENVDIR);
+    toku_os_mkdir(ENVDIR, S_IRWXU+S_IRWXG+S_IRWXO);
+    
+    int r;
+    r = db_env_create(&env, 0);                                           CKERR(r);
+#ifdef TOKUDB
+    r = env->set_cachesize(env, 0, 10000000, 1);                          CKERR(r);
+#endif
+    r = env->open(env, ENVDIR, envflags, S_IRWXU+S_IRWXG+S_IRWXO);        CKERR(r);
+    r = db_create(&db, env, 0);                                           CKERR(r);
+    r = db->set_pagesize(db, 4096);                                       CKERR(r);
+    r = db->open(db, null_txn, "main", 0,     DB_BTREE, DB_CREATE, 0666); CKERR(r);
+    {
+	u_int64_t i;
+	u_int64_t n_deleted = 0;
+	u_int64_t N=20000; // total number to insert
+	u_int64_t M= 5000; // size of rolling fifo
+	u_int64_t D=  200; // number to delete at once
+	for (i=0; i<N; i++) {
+	    {
+		char k[100],v[100];
+		int keylen = snprintf(k, sizeof k, "%016" PRIu64 "key", i);
+		int vallen = snprintf(v, sizeof v, "%016" PRIu64 "val%08x%08x%08x", i, myrandom(), myrandom(), myrandom());
+		DBT kt, vt;
+		r = db->put(db, null_txn, dbt_init(&kt, k, keylen) , dbt_init(&vt, v, vallen), DB_YESOVERWRITE);    CKERR(r);
+	    }
+	    if (i%D==0) {
+		// Once every D steps, delete everything until there are only M things left.
+		// Flush the data down the tree for all the values we will do
+		{
+		    u_int64_t peek_here = n_deleted;
+		    while (peek_here + M < i) {
+			char k[100];
+			int keylen = snprintf(k, sizeof k, "%016" PRIu64 "key", peek_here);
+			DBT kt;
+			DBT vt;
+			memset(&vt, 0, sizeof(vt));
+			vt.flags = DB_DBT_MALLOC;
+			r = db->get(db, null_txn, dbt_init(&kt, k, keylen), &vt, 0); CKERR(r);
+			peek_here++;
+			toku_free(vt.data);
+		    }
+		}
+		empty_cachetable();
+		while (n_deleted + M < i) {
+		    char k[100];
+		    int keylen = snprintf(k, sizeof k, "%016" PRIu64 "key", n_deleted);
+		    DBT kt;
+		    r = db->del(db, null_txn, dbt_init(&kt, k, keylen), 0);
+		    if (r!=0) printf("error %d %s", r, db_strerror(r));
+		    CKERR(r);
+		    n_deleted++;
+		    empty_cachetable();
+		}
+	    }
+	}
+    }
+    r = db->close(db, 0);                                                 CKERR(r);
+    r = env->close(env, 0);                                               CKERR(r);
+}
+
+int
+test_main (int argc, const char *argv[])
+{
+    parse_args(argc, argv);
+    do_insert_delete_fifo();
+    return 0;
+}
+

src/ydb.c

@@ -812,7 +812,13 @@ static int toku_env_set_verbose(DB_ENV * env, u_int32_t which, int onoff) {
 }
 
 static int toku_env_txn_checkpoint(DB_ENV * env, u_int32_t kbyte __attribute__((__unused__)), u_int32_t min __attribute__((__unused__)), u_int32_t flags __attribute__((__unused__))) {
+    if (env->i->logger) {
+	// checkpoints the logger and the cachetable
 	return toku_logger_log_checkpoint(env->i->logger);
+    } else {
+	// if no logger, then checkpoint the cachetable only
+	return toku_cachetable_checkpoint(env->i->cachetable);
+    }
 }
 
 static int toku_env_txn_stat(DB_ENV * env, DB_TXN_STAT ** statp, u_int32_t flags) {