From 1a35fa647b3598111d7dcb281309651ab413b1bc Mon Sep 17 00:00:00 2001 From: Marcos Magueta Date: Fri, 18 Sep 2026 00:18:43 -0300 Subject: make substantial relation use merkle.interface --- test/unit/kernel/SubstantialRelation.ml | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) (limited to 'test/unit/kernel') diff --git a/test/unit/kernel/SubstantialRelation.ml b/test/unit/kernel/SubstantialRelation.ml index 9d60685..f639599 100644 --- a/test/unit/kernel/SubstantialRelation.ml +++ b/test/unit/kernel/SubstantialRelation.ml @@ -17,15 +17,14 @@ module Make (S : Abstract.Storage.STORAGE) (C : Helpers.Storage.CONFIGURATOR) = |> BatMap.String.add "age" (Concepts.Value.Integer 42) } let assert_and_enumerate conn = - let tuple = Concepts.Tuple.Representation.to_blob alaric in let before, after, enumerated = begin let open Utilities.Result in let* tx = S.start conn in let* relation = SR.empty tx ~schematics:(hash "schema") () in - let* before = SR.contains_tuple tx relation tuple in - let* relation = SR.assert_tuple tx relation tuple in - let* after = SR.contains_tuple tx relation tuple in + let* before = SR.contains_tuple tx relation alaric in + let* relation = SR.assert_tuple tx relation alaric in + let* after = SR.contains_tuple tx relation alaric in let* () = S.commit tx in let* cursor = SR.enumerate conn relation in let* scan = Protocols.Cursor.require cursor in -- cgit v1.2.3