unikernel/duniverse/dune_/test/blackbox-tests/utils/ocamlformat.ml

@@ -0,0 +1,16 @@
+(* This can be used when testing formatting rules instead of calling the real
+   ocamlformat binary. But when doing so, be careful not to expose it to too
+   many tests because it will be also be used by `@fmt` in dune itself.
+*)
+
+let () =
+  let args =
+    Sys.argv
+    |> Array.to_list
+    |> List.tl
+    |> List.map (fun s -> Printf.sprintf "%S" s)
+    |> String.concat " "
+  in
+  Printf.eprintf "fake ocamlformat is running: %s\n" args;
+  Printf.printf "(* fake ocamlformat output *)"
+;;