Add test

ocaml-ppx · Feb 24, 2023 · a682291 · a682291
1 parent 5d2b319
commit a682291
Showing 1 changed file with 9 additions and 0 deletions.
diff --git a/test/traverse/test.ml b/test/traverse/test.ml
@@ -82,3 +82,12 @@ class virtual iter :
     method t : t -> unit
   end
 |}]
+
+type t =
+  | X
+  | Arrow of { label : string option; domain : t; range : t }
+[@@deriving traverse]
+[%%expect{|
+Line _, characters 2-61:
+Error: This constructor expects an inlined record argument.
+|}]