Public Sub TruncateLog() 

public void TruncateLog()

using (TempFile tmp = new TempFile())
using (var log = new TransactionLog<int, string>(Options(tmp)))
{
    var token = log.BeginTransaction();
    log.AddValue(ref token, 1, "test");
    log.CommitTransaction(ref token);

    var test = new Dictionary<int, string>();
    log.ReplayLog(test);

    Assert.AreEqual(1, test.Count);
    Assert.IsTrue(test.ContainsKey(1));
    Assert.AreEqual("test", test[1]);

    log.TruncateLog();
    test.Clear();
    log.ReplayLog(test);

    Assert.AreEqual(0, test.Count);
}

Using tmp As New TempFile()
    Using log As var = New TransactionLog(Of Integer, String)(Options(tmp))
        Dim token As var = log.BeginTransaction()
        log.AddValue(token, 1, "test")
        log.CommitTransaction(token)

        Dim test As var = New Dictionary(Of Integer, String)()
        log.ReplayLog(test)

        Assert.AreEqual(1, test.Count)
        Assert.IsTrue(test.ContainsKey(1))
        Assert.AreEqual("test", test(1))

        log.TruncateLog()
        test.Clear()
        log.ReplayLog(test)

        Assert.AreEqual(0, test.Count)
    End Using
End Using