Add back some variant tests (#39)

melange-community · Dec 4, 2024 · 887de49 · 887de49
1 parent 500cb42
commit 887de49
Show file tree

Hide file tree

Showing 3 changed files with 20 additions and 0 deletions.
diff --git a/ppx/test/example.ml b/ppx/test/example.ml
@@ -46,6 +46,10 @@ let of_json_cases = [
   C ({|["P2", 42, "hello"]|}, poly2_of_json, poly2_to_json, (`P2 (42, "hello") : poly2));
   C ({|["Fix",["Fix",["Fix",["A"]]]]|}, recur_of_json, recur_to_json, (Fix (Fix (Fix A))));
   C ({|["Fix",["Fix",["Fix",["A"]]]]|}, polyrecur_of_json, polyrecur_to_json, (`Fix (`Fix (`Fix `A))));
+  C ({|["A"]|}, evar_of_json, evar_to_json, (A : evar));
+  C ({|["b_aliased"]|}, evar_of_json, evar_to_json, (B : evar)); (* variant B repr as "b_aliased" in JSON *)
+  C ({|["b"]|}, epoly_of_json, epoly_to_json, (`b : epoly));
+  C ({|["A_aliased"]|}, epoly_of_json, epoly_to_json, (`a : epoly)); (* polyvariant `a aliased to "A_aliased"*)
   C ({|{"my_name":"N","my_age":1}|}, record_aliased_of_json, record_aliased_to_json, {name="N"; age=1});
   C ({|{"my_name":"N"}|}, record_aliased_of_json, record_aliased_to_json, {name="N"; age=100});
   C ({|{}|}, record_opt_of_json, record_opt_to_json, {k=None});

diff --git a/ppx/test/ppx_deriving_json_js.e2e.t b/ppx/test/ppx_deriving_json_js.e2e.t
@@ -69,6 +69,14 @@
   JSON REPRINT: ["Fix",["Fix",["Fix",["A"]]]]
   JSON    DATA: ["Fix",["Fix",["Fix",["A"]]]]
   JSON REPRINT: ["Fix",["Fix",["Fix",["A"]]]]
+  JSON    DATA: ["A"]
+  JSON REPRINT: ["A"]
+  JSON    DATA: ["b_aliased"]
+  JSON REPRINT: ["b_aliased"]
+  JSON    DATA: ["b"]
+  JSON REPRINT: ["b"]
+  JSON    DATA: ["A_aliased"]
+  JSON REPRINT: ["A_aliased"]
   JSON    DATA: {"my_name":"N","my_age":1}
   JSON REPRINT: {"my_name":"N","my_age":1}
   JSON    DATA: {"my_name":"N"}

diff --git a/ppx/test/ppx_deriving_json_native.e2e.t b/ppx/test/ppx_deriving_json_native.e2e.t
@@ -59,6 +59,14 @@
   JSON REPRINT: ["Fix",["Fix",["Fix",["A"]]]]
   JSON    DATA: ["Fix",["Fix",["Fix",["A"]]]]
   JSON REPRINT: ["Fix",["Fix",["Fix",["A"]]]]
+  JSON    DATA: ["A"]
+  JSON REPRINT: ["A"]
+  JSON    DATA: ["b_aliased"]
+  JSON REPRINT: ["b_aliased"]
+  JSON    DATA: ["b"]
+  JSON REPRINT: ["b"]
+  JSON    DATA: ["A_aliased"]
+  JSON REPRINT: ["A_aliased"]
   JSON    DATA: {"my_name":"N","my_age":1}
   JSON REPRINT: {"my_name":"N","my_age":1}
   JSON    DATA: {"my_name":"N"}