add failing test for array

Author: jchavarri

ppx/test/example.ml

@@ -21,6 +21,7 @@ type ('a, 'b) p2 = A of 'a | B of 'b [@@deriving json]
 type allow_extra_fields = {a: int} [@@deriving json] [@@json.allow_extra_fields]
 type allow_extra_fields2 = A of {a: int} [@json.allow_extra_fields] [@@deriving json]
 type drop_default_option = { a: int; b_opt: int option; [@option] [@json.drop_default] } [@@deriving json]
+type array_list = { a: int array; b: int list} [@@deriving json]
 
 type json = Ppx_deriving_json_runtime.t
 type of_json = C : string * (json -> 'a) * ('a -> json) * 'a -> of_json
@@ -55,6 +56,7 @@ let of_json_cases = [
   C ({|["A",{"a":1,"b":2}]|}, allow_extra_fields2_of_json, allow_extra_fields2_to_json, A {a=1});
   C ({|{"a":1}|}, drop_default_option_of_json, drop_default_option_to_json, {a=1; b_opt=None});
   C ({|{"a":1,"b_opt":2}|}, drop_default_option_of_json, drop_default_option_to_json, {a=1; b_opt=Some 2});
+  C ({|{"a":[1],"b":[2]}|}, array_list_of_json, array_list_to_json, {a=[|1|]; b=[2]});
 ]
 let run' (C (data, of_json, to_json, v)) =
   print_endline (Printf.sprintf "JSON    DATA: %s" data);

ppx/test/ppx_deriving_json_js.e2e.t

@@ -87,6 +87,8 @@
   JSON REPRINT: {"a":1}
   JSON    DATA: {"a":1,"b_opt":2}
   JSON REPRINT: {"a":1,"b_opt":2}
+  JSON    DATA: {"a":[1],"b":[2]}
+  JSON REPRINT: {"a":[1],"b":[2]}
   *** json_string deriver tests ***
   ** To_json_string **
   A 42 -> ["A",42]

ppx/test/ppx_deriving_json_native.e2e.t

@@ -15,77 +15,17 @@
   > ' >> main.ml
 
   $ dune build ./main.exe
+  File "example.ml", line 24, characters 27-32:
+  24 | type array_list = { a: int array; b: int list} [@@deriving json]
+                                  ^^^^^
+  Error: Unbound value array_of_json
+  Hint: Did you mean param_of_json?
+  [1]
 
   $ dune exec ./main.exe
-  JSON    DATA: 1
-  JSON REPRINT: 1
-  JSON    DATA: "9223372036854775807"
-  JSON REPRINT: "9223372036854775807"
-  JSON    DATA: 1.1
-  JSON REPRINT: 1.1
-  JSON    DATA: 1.0
-  JSON REPRINT: 1.0
-  JSON    DATA: 42
-  JSON REPRINT: 42.0
-  JSON    DATA: "OK"
-  JSON REPRINT: "OK"
-  JSON    DATA: "some"
-  JSON REPRINT: "some"
-  JSON    DATA: ["Ok", 1]
-  JSON REPRINT: ["Ok",1]
-  JSON    DATA: ["Error", "oops"]
-  JSON REPRINT: ["Error","oops"]
-  JSON    DATA: [42, "works"]
-  JSON REPRINT: [42,"works"]
-  JSON    DATA: {"name":"N","age":1}
-  JSON REPRINT: {"name":"N","age":1}
-  JSON    DATA: ["A"]
-  JSON REPRINT: ["A"]
-  JSON    DATA: ["B", 42]
-  JSON REPRINT: ["B",42]
-  JSON    DATA: ["C", {"name": "cname"}]
-  JSON REPRINT: ["C",{"name":"cname"}]
-  JSON    DATA: ["A"]
-  JSON REPRINT: ["A"]
-  JSON    DATA: ["S2", 42, "hello"]
-  JSON REPRINT: ["S2",42,"hello"]
-  JSON    DATA: ["B", 42]
-  JSON REPRINT: ["B",42]
-  JSON    DATA: ["P2", 42, "hello"]
-  JSON REPRINT: ["P2",42,"hello"]
-  JSON    DATA: ["Fix",["Fix",["Fix",["A"]]]]
-  JSON REPRINT: ["Fix",["Fix",["Fix",["A"]]]]
-  JSON    DATA: ["Fix",["Fix",["Fix",["A"]]]]
-  JSON REPRINT: ["Fix",["Fix",["Fix",["A"]]]]
-  JSON    DATA: {"my_name":"N","my_age":1}
-  JSON REPRINT: {"my_name":"N","my_age":1}
-  JSON    DATA: {"my_name":"N"}
-  JSON REPRINT: {"my_name":"N","my_age":100}
-  JSON    DATA: {}
-  JSON REPRINT: {"k":null}
-  JSON    DATA: {"k":42}
-  JSON REPRINT: {"k":42}
-  JSON    DATA: ["A",1]
-  JSON REPRINT: ["A",1]
-  JSON    DATA: ["B","ok"]
-  JSON REPRINT: ["B","ok"]
-  JSON    DATA: {"a":1,"b":2}
-  JSON REPRINT: {"a":1}
-  JSON    DATA: ["A",{"a":1,"b":2}]
-  JSON REPRINT: ["A",{"a":1}]
-  JSON    DATA: {"a":1}
-  JSON REPRINT: {"a":1}
-  JSON    DATA: {"a":1,"b_opt":2}
-  JSON REPRINT: {"a":1,"b_opt":2}
-  *** json_string deriver tests ***
-  ** To_json_string **
-  A 42 -> ["A",42]
-  B false -> ["B",false]
-  ** Of_json_string **
-  ["A", 42] = A 42 -> true
-  ["B", false] = B false -> true
-  ** Json_string **
-  A 42 -> ["A",42]
-  B false -> ["B",false]
-  ["A", 42] = A 42 -> true
-  ["B", false] = B false -> true
+  File "example.ml", line 24, characters 27-32:
+  24 | type array_list = { a: int array; b: int list} [@@deriving json]
+                                  ^^^^^
+  Error: Unbound value array_of_json
+  Hint: Did you mean param_of_json?
+  [1]