Public Shadows Property TransactionLogLimit As Long

public new long TransactionLogLimit {get; set;}

var options = (BPlusTree<int, string>.OptionsV2)Options;
options.TransactionLogLimit = 30;

using (BPlusTree<int, string> tree = Create(options))
{
    tree.EnableCount();
    Assert.AreEqual(0, tree.Count);

    tree.Add(1, "A");
    tree.Rollback();
    Assert.AreEqual(0, tree.Count);

    tree.Add(1, "A");
    tree.Add(2, "B"); //The second write exceeds 30 bytes and auto-commits
    tree.Rollback();
    Assert.AreEqual(2, tree.Count);
    tree.Add(3, "C");
    tree.Add(4, "D"); //The second write will commit, but not the last
    tree.Add(5, "E");
    tree.Rollback();
    Assert.AreEqual(4, tree.Count);
    Assert.IsFalse(tree.ContainsKey(5));
}

Dim options As var = DirectCast(Options, BPlusTree(Of Integer, String).OptionsV2)
options.TransactionLogLimit = 30

Using tree As BPlusTree(Of Integer, String) = Create(options)
    tree.EnableCount()
    Assert.AreEqual(0, tree.Count)

    tree.Add(1, "A")
    tree.Rollback()
    Assert.AreEqual(0, tree.Count)

    tree.Add(1, "A")
    tree.Add(2, "B")
    'The second write exceeds 30 bytes and auto-commits
    tree.Rollback()
    Assert.AreEqual(2, tree.Count)
    tree.Add(3, "C")
    tree.Add(4, "D")
    'The second write will commit, but not the last
    tree.Add(5, "E")
    tree.Rollback()
    Assert.AreEqual(4, tree.Count)
    Assert.IsFalse(tree.ContainsKey(5))
End Using