diff options
Diffstat (limited to 'test/unit/kernel')
| -rw-r--r-- | test/unit/kernel/Merkle.ml | 10 |
1 files changed, 1 insertions, 9 deletions
diff --git a/test/unit/kernel/Merkle.ml b/test/unit/kernel/Merkle.ml index f12182a..6fd493a 100644 --- a/test/unit/kernel/Merkle.ml +++ b/test/unit/kernel/Merkle.ml @@ -1,18 +1,10 @@ open Rnt -module StringKey : Rnt.Kernel.Merkle.KEY with type t = string = struct - type t = string - - let encode s = String.to_bytes s |> Concepts.Representation.blob_of_bytes - let compare s1 s2 = String.compare s1 s2 |> Concepts.Ordering.of_int - let decode b = Concepts.Representation.bytes_of_blob b |> String.of_bytes |> Result.ok -end - module Make (S : Abstract.Storage.STORAGE) (C : Helpers.Storage.CONFIGURATOR) = struct open Alcotest module H = Helpers.Storage.Make (S) (C) - module T = Rnt.Kernel.Merkle.Interface (S) (StringKey) (StringKey) + module T = Rnt.Kernel.Merkle.Interface (S) (Rnt.Kernel.Merkle.StringKey) (Rnt.Kernel.Merkle.StringKey) (* TODO: be a bit more comprehensive (ideally, we want to test splits as well) *) let insert_and_lookup conn = |