Silence yojson deprecation warnings in tests

andreas · Aug 11, 2019 · 7550dc1 · 7550dc1
1 parent b187eaa
commit 7550dc1
Show file tree

Hide file tree

Showing 3 changed files with 5 additions and 5 deletions.
diff --git a/graphql-async/test/async_test.ml b/graphql-async/test/async_test.ml
@@ -2,13 +2,13 @@ open Async_kernel
 open Async_unix
 
 let yojson = (module struct
-  type t = Yojson.Basic.json
+  type t = Yojson.Basic.json [@@warning "-3"]
 
   let pp formatter t =
     Format.pp_print_text formatter (Yojson.Basic.pretty_to_string t)
 
   let equal = (=)
-end : Alcotest.TESTABLE with type t = Yojson.Basic.json)
+end : Alcotest.TESTABLE with type t = Yojson.Basic.json) [@@warning "-3"]
 
 let test_query schema ctx query expected =
   Thread_safe.block_on_async_exn begin fun () ->

diff --git a/graphql-lwt/test/lwt_test.ml b/graphql-lwt/test/lwt_test.ml
@@ -1,13 +1,13 @@
 open Lwt
 
 let yojson = (module struct
-  type t = Yojson.Basic.json
+  type t = Yojson.Basic.json [@@warning "-3"]
 
   let pp formatter t =
     Format.pp_print_text formatter (Yojson.Basic.pretty_to_string t)
 
   let equal = (=)
-end : Alcotest.TESTABLE with type t = Yojson.Basic.json)
+end : Alcotest.TESTABLE with type t = Yojson.Basic.json) [@@warning "-3"]
 
 let test_query schema ctx query expected =
   Lwt_main.run begin

diff --git a/graphql/test/test_common.ml b/graphql/test/test_common.ml
@@ -5,7 +5,7 @@ let yojson = (module struct
     Format.pp_print_text formatter (Yojson.Basic.pretty_to_string t)
 
   let equal = (=)
-end : Alcotest.TESTABLE with type t = Yojson.Basic.json)
+end : Alcotest.TESTABLE with type t = Yojson.Basic.json) [@@warning "-3"]
 
 let list_of_seq seq =
   let rec loop seq =