Simplify test

Co-authored-by: Paul-Elliot <[email protected]> Signed-off-by: Stefan Muenzel <[email protected]>
ocaml-ppx · Mar 28, 2023 · 33a0bac · 33a0bac
1 parent 41a8ba6
commit 33a0bac
Showing 1 changed file with 2 additions and 4 deletions.
diff --git a/test/traverse/test.ml b/test/traverse/test.ml
@@ -83,12 +83,10 @@ class virtual iter :
   end
 |}]
 
-type t =
-  | X
-  | Arrow of { label : string option; domain : t; range : t }
+type t = Inline of { a : string option; b : t }
 [@@deriving traverse]
 [%%expect{|
-type t = X | Arrow of { label : string option; domain : t; range : t; }
+type t = Inline of { a : string option; b : t; }
 class virtual map :
   object
     method virtual option : ('a -> 'a) -> 'a option -> 'a option