unikernel/duniverse/dune_/test/blackbox-tests/test-cases/github4682.t/ppx/dune

@@ -0,0 +1,4 @@
+(library
+ (name ppx)
+ (kind ppx_rewriter)
+ (ppx.driver (main Ppx.main)))

unikernel/duniverse/dune_/test/blackbox-tests/test-cases/github4682.t/ppx/ppx.ml

@@ -0,0 +1,12 @@
+let main () =
+  let out = ref "" in
+  let args =
+    [ ("-o", Arg.Set_string out, "")
+    ; ("--impl", Arg.Set_string (ref ""), "")
+    ; ("--as-ppx", Arg.Set (ref false), "")
+    ]
+  in
+  let anon _ = () in
+  Arg.parse (Arg.align args) anon "";
+  let out = open_out !out in
+  close_out out;

unikernel/duniverse/dune_/test/blackbox-tests/test-cases/github4682.t/ppx/ppx.mli

@@ -0,0 +1 @@
+val main : unit -> unit