Add extra test case for operator with parens

Signed-off-by: Nathan Rebours <nathan.p.rebours@gmail.com>
ocaml-ppx · Jan 31, 2024 · 3ee3d52 · 3ee3d52
1 parent 88b3c94
commit 3ee3d52
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/test/base/test.ml b/test/base/test.ml
@@ -121,6 +121,11 @@ let _ = convert_longident "+."
 ("( + ).", Ppxlib.Longident.Ldot (Ppxlib.Longident.Lident "+", ""))
 |}]
 
+let _ = convert_longident "(+.)"
+[%%expect{|
+- : string * longident = ("( +. )", Ppxlib.Longident.Lident "+.")
+|}]
+
 let _ = convert_longident "Foo.(+.)"
 [%%expect{|
 - : string * longident =