diff options
Diffstat (limited to 'test/unit/backend/Storage.ml')
| -rw-r--r-- | test/unit/backend/Storage.ml | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/test/unit/backend/Storage.ml b/test/unit/backend/Storage.ml index 76bda8b..a6765bf 100644 --- a/test/unit/backend/Storage.ml +++ b/test/unit/backend/Storage.ml @@ -6,17 +6,17 @@ module Make (S : Abstract.Storage.STORAGE) (C : Helpers.Storage.CONFIGURATOR) = module H = Helpers.Storage.Make (S) (C) let storage_and_retrieval conn = - let key = Concepts.Hash.hash_of_value (Concepts.Value.String "value") in + let key = Concepts.Value.String "value" |> Concepts.Encoding.blob_of_value |> Concepts.Hash.hash_of_blob in let value = Concepts.Value.Integer 42 in - let blob = Concepts.Representation.blob_of_value value in + let blob = Concepts.Encoding.blob_of_value value in let v, v' = begin let open Utilities.Result in let* tx = S.start conn in - let* v = S.get tx key in - let* () = S.put tx key blob in - let* v' = S.get tx key in - Ok Concepts.Representation.(Option.map value_of_blob v, Option.map value_of_blob v') + let* v = S.get tx (S.Hash key) in + let* () = S.put tx (S.Hash key) blob in + let* v' = S.get tx (S.Hash key) in + Ok Concepts.Encoding.(Option.map value_of_blob v, Option.map value_of_blob v') end |> Helpers.condition_as_failure in |