unikernel/duniverse/dune_/test/blackbox-tests/test-cases/ppx/ppx-runtime-lib-scope.t

@@ -0,0 +1,58 @@
+Create ppx1, ppx2 and exe:
+- ppx1 is a regular ppx rewriter
+- ppx2 is also a ppx rewriter, preprocessed with ppx1
+- exe depends on ppx2
+
+  $ mkdir -p project/ppx/ppx1 project/ppx/ppx2 project/exe
+  $ cat > project/ppx/dune-project <<EOF
+  > (lang dune 3.7)
+  > (package (name the-ppx))
+  > EOF
+  $ cat > project/ppx/ppx1/dune <<EOF
+  > (library
+  >  (name ppx1)
+  >  (public_name the-ppx.ppx1)
+  >  (kind ppx_rewriter)
+  >  (ppx.driver (main Ppx1.main)))
+  > EOF
+  $ cat > project/ppx/ppx1/ppx1.ml <<EOF
+  > let main () =
+  >   let out = ref "" in
+  >   let args =
+  >     [ ("-o", Arg.Set_string out, "")
+  >     ; ("--impl", Arg.Set_string (ref ""), "")
+  >     ; ("--as-ppx", Arg.Set (ref false), "")
+  >     ; ("--cookie", Arg.Set (ref false), "")
+  >     ]
+  >   in
+  >   let anon _ = () in
+  >   Arg.parse (Arg.align args) anon "";
+  >   let out = open_out !out in
+  >   close_out out;
+  > EOF
+  $ cat > project/ppx/ppx2/dune <<EOF
+  > (library
+  >  (name ppx2)
+  >  (public_name the-ppx.ppx2)
+  >  (preprocess (pps ppx1)) ; changing to the-ppx.ppx1 makes it work
+  >  (kind ppx_rewriter))
+  > EOF
+  $ cat > project/ppx/ppx2/ppx2.ml <<EOF
+  > let main () = ()
+  > EOF
+
+  $ cat > project/dune-project <<EOF
+  > (lang dune 3.7)
+  > (package (name the-exe))
+  > EOF
+  $ cat > project/exe/dune <<EOF
+  > (executable
+  >  (name the_exe)
+  >  (public_name the-exe)
+  >  (libraries the-ppx.ppx2))
+  > EOF
+  $ touch project/exe/the_exe.ml
+
+  $ OCAMLPATH=$PWD/prefix/lib/:$OCAMLPATH dune build --root project ./exe/the_exe.exe
+  Entering directory 'project'
+  Leaving directory 'project'