From 2e85bf6fb7719993089f99bb0e70a1002391a4c0 Mon Sep 17 00:00:00 2001 From: arie Date: Wed, 5 May 2021 23:13:55 +0200 Subject: Rdf-json: fix bug in decode_object --- test/json/main.ml | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'test') diff --git a/test/json/main.ml b/test/json/main.ml index 8e116cd..2b2073d 100644 --- a/test/json/main.ml +++ b/test/json/main.ml @@ -17,7 +17,8 @@ let encode_decode_predicate = let encode_decode_object = QCheck.Test.make ~name:"decode encode object" Rdf_gen.object' - (fun object' -> Triple.Object.equal + (fun object' -> + Triple.Object.equal object' (object' |> Rdf_json.encode_object |> Rdf_json.decode_object)) -- cgit v1.2.3