From bebd736211a54fd1c465e1122dcd3f442772cfc4 Mon Sep 17 00:00:00 2001
From: Michael Klishin <michaelklishin@me.com>
Date: Tue, 3 Oct 2023 13:29:54 -0400
Subject: [PATCH] Compile on Erlang 26.1 (#412)

* Compile on Erlang 26.1

* Define Key type

instead of assuming that the function only accepts
a specific StartKey
---
 src/leveled_bookie.erl | 1 +
 src/leveled_iclerk.erl | 8 +++++---
 2 files changed, 6 insertions(+), 3 deletions(-)

diff --git a/src/leveled_bookie.erl b/src/leveled_bookie.erl
index a0abc7e..8b83d23 100644
--- a/src/leveled_bookie.erl
+++ b/src/leveled_bookie.erl
@@ -700,6 +700,7 @@ book_returnfolder(Pid, RunnerType) ->
                      TermHandling :: {ReturnTerms, TermRegex}) ->
                             {async, Runner::fun(() -> term())}
                                 when Bucket::term(),
+                                     Key :: term(),
                                      StartKey::term(),
                                      FoldFun::fun((Bucket, Key | {IndexVal, Key}, Acc) -> Acc),
                                      Acc::term(),
diff --git a/src/leveled_iclerk.erl b/src/leveled_iclerk.erl
index 6dd33dc..2591066 100644
--- a/src/leveled_iclerk.erl
+++ b/src/leveled_iclerk.erl
@@ -991,7 +991,7 @@ simple_score_test() ->
     ?assertMatch(-4.0, score_run(Run1, {4, 70.0, 40.0})),
     Run2 = [#candidate{compaction_perc = 75.0}],
     ?assertMatch(-35.0, score_run(Run2, {4, 70.0, 40.0})),
-    ?assertMatch(0.0, score_run([], {4, 40.0, 70.0})),
+    ?assertEqual(0.0, score_run([], {4, 40.0, 70.0})),
     Run3 = [#candidate{compaction_perc = 100.0}],
     ?assertMatch(-60.0, score_run(Run3, {4, 70.0, 40.0})).
 
@@ -1050,7 +1050,9 @@ find_bestrun_test() ->
     ?assertMatch(["b", "c", "d", "e"],check_bestrun(CList3, Params)).
 
 handle_emptycandidatelist_test() ->
-    ?assertMatch({[], 0.0}, assess_candidates([], {4, 60.0, 40.0})).
+    {A, B} = assess_candidates([], {4, 60.0, 40.0}),
+    ?assertEqual([], A),
+    ?assert(B =:= +0.0).
 
 test_ledgerkey(Key) ->
     {o, "Bucket", Key, null}.
@@ -1230,7 +1232,7 @@ compact_empty_file_test() ->
                     {3, {o, "Bucket", "Key3", null}}],
     LedgerFun1 = fun(_Srv, _Key, _ObjSQN) -> replaced end,
     Score1 = check_single_file(CDB2, LedgerFun1, LedgerSrv1, 9, 8, 4, RS),
-    ?assertMatch(0.0, Score1),
+    ?assert((+0.0 =:= Score1) orelse (-0.0 =:= Score1)),
     ok = leveled_cdb:cdb_deletepending(CDB2),
     ok = leveled_cdb:cdb_destroy(CDB2).