Test when wrap-comments

ocaml-ppx · Feb 28, 2022 · adbe120 · adbe120
1 parent 45dfa65
commit adbe120
Show file tree

Hide file tree

Showing 3 changed files with 42 additions and 0 deletions.
diff --git a/test/passing/dune.inc b/test/passing/dune.inc
@@ -5023,6 +5023,24 @@
  (package ocamlformat)
  (action (diff tests/use_file.mlt.err use_file.mlt.stderr)))
 
+(rule
+ (deps tests/.ocamlformat )
+ (package ocamlformat)
+ (action
+  (with-stdout-to verbatim_comments-wrap.ml.stdout
+   (with-stderr-to verbatim_comments-wrap.ml.stderr
+     (run %{bin:ocamlformat} --margin-check --wrap-comments %{dep:tests/verbatim_comments.ml})))))
+
+(rule
+ (alias runtest)
+ (package ocamlformat)
+ (action (diff tests/verbatim_comments-wrap.ml.ref verbatim_comments-wrap.ml.stdout)))
+
+(rule
+ (alias runtest)
+ (package ocamlformat)
+ (action (diff tests/verbatim_comments-wrap.ml.err verbatim_comments-wrap.ml.stderr)))
+
 (rule
  (deps tests/.ocamlformat )
  (package ocamlformat)

diff --git a/test/passing/tests/verbatim_comments-wrap.ml.opts b/test/passing/tests/verbatim_comments-wrap.ml.opts
@@ -0,0 +1 @@
+--wrap-comments
diff --git a/test/passing/tests/verbatim_comments-wrap.ml.ref b/test/passing/tests/verbatim_comments-wrap.ml.ref
@@ -0,0 +1,23 @@
+(*= Redistribution and use in source and binary forms, with or without
+modification, are permitted provided that the following conditions are met:
+
+* Redistributions of source code must retain the above copyright notice, this
+  list of conditions and the following disclaimer.
+
+* [...]
+
+THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+[...] *)
+
+let _ =
+  (*= Redistribution and use in source and binary forms, with or without
+modification, are permitted provided that the following conditions are met:
+
+* Redistributions of source code must retain the above copyright notice, this
+  list of conditions and the following disclaimer.
+
+* [...]
+
+THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+[...] *)
+  ()