make substantial relation use merkle.interface

1 files changed, 3 insertions, 4 deletions

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