unikernel/duniverse/dune_/test/blackbox-tests/test-cases/ppx/9650-bytecode-rewriter.t/ppx/dune

@@ -0,0 +1,5 @@
+(library
+ (name fooppx)
+ (modes byte)
+ (kind ppx_rewriter)
+ (libraries ppxlib))

unikernel/duniverse/dune_/test/blackbox-tests/test-cases/ppx/9650-bytecode-rewriter.t/ppx/fooppx.ml

@@ -0,0 +1,4 @@
+let () =
+  Ppxlib.Driver.register_transformation
+    "linter"
+    ~impl:(fun s -> Format.eprintf "running rewriter@.%!"; s)

unikernel/duniverse/dune_/test/blackbox-tests/test-cases/ppx/9650-bytecode-rewriter.t/run.t

@@ -0,0 +1,16 @@
+  $ cat >dune-project <<EOF
+  > (lang dune 3.12)
+  > EOF
+
+  $ mkdir bin
+  $ cat > bin/dune << EOF
+  > (executable
+  >  (name e)
+  >  (preprocess (pps fooppx)))
+  > EOF
+  $ cat >bin/e.ml <<EOF
+  > print_endline "Hello World"
+  > EOF
+
+  $ dune exec -- bin/e.exe
+  Hello World