unikernel/duniverse/dune_/test/blackbox-tests/test-cases/top-module/load-with-ppx.t

@@ -0,0 +1,33 @@
+Load a module that requires ppx
+
+  $ cat >dune-project <<EOF
+  > (lang dune 3.3)
+  > EOF
+
+  $ cat >dune <<EOF
+  > (library
+  >  (name driver_print_args)
+  >  (kind ppx_rewriter)
+  >  (modules ())
+  >  (ppx.driver (main "\| (fun () ->
+  >                    "\|   let out = Sys.argv.(4) in
+  >                    "\|   let out = open_out out in
+  >                    "\|   let rec loop () =
+  >                    "\|     match input_line stdin with
+  >                    "\|     | s -> output_string out (s ^ "\n"); loop ()
+  >                    "\|     | exception End_of_file -> close_out out
+  >                    "\|   in loop ())
+  >                    )))
+  > (library
+  >  (name foo)
+  >  (preprocess (pps driver_print_args)))
+  > EOF
+  $ cat >foo.ml <<EOF
+  > let () = ()
+  > EOF
+  $ dune ocaml top-module foo.ml
+  #directory "$TESTCASE_ROOT/_build/default/.topmod/foo.ml";;
+  #load "$TESTCASE_ROOT/_build/default/.topmod/foo.ml/foo.cmo";;
+  #ppx "$TESTCASE_ROOT/_build/default/.ppx/70f69f007f7d5814898c75dac997e15a/ppx.exe --as-ppx --cookie 'library-name=\"foo\"'";;
+  $ basename $(ls _build/default/.ppx/*/*.exe)
+  ppx.exe