grisp · bchassoul · Apr 1, 2024 · Jan 25, 2024 · Mar 15, 2024 · Mar 15, 2024
diff --git a/src/grisp_io_binlog.erl b/src/grisp_io_binlog.erl
@@ -80,7 +80,7 @@ truncate(To, #binlog{seq = Seq} = L) when To >= Seq ->
     clear(L);
 truncate(To, #binlog{queue = Q0} = L) ->
     case queue:out(Q0) of
-        {{value, {Seq, Bin}}, Q1} when Seq < To ->
+        {{value, {Seq, Bin}}, Q1} when Seq =< To ->
             truncate(To, drop(Q1, Bin, L));
         _ ->
             L

diff --git a/test/grisp_io_binlog_SUITE.erl b/test/grisp_io_binlog_SUITE.erl
@@ -94,7 +94,7 @@ truncate(_Config) ->
     ?assertEqual(L0, truncate(5, L0)),
     {L1, D1} = insert_many([{N, <<>>} || N <- lists:seq(1, 10)], L0),
     ?assertEqual(0, D1),
-    ?assertItems([{N, <<>>} || N <- lists:seq(5, 10)], truncate(5, L1)),
+    ?assertItems([{N, <<>>} || N <- lists:seq(6, 10)], truncate(5, L1)),
     ?assertItems([], truncate(15, L1)),
     ?assertEqual(10, seq(L1)).