unikernel/duniverse/dune_/test/blackbox-tests/test-cases/utop/utop-ppx-rewriters.t/dune-project

@@ -0,0 +1 @@
+(lang dune 2.5)

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

@@ -0,0 +1,4 @@
+(library
+ (name fooppx)
+ (kind ppx_rewriter)
+ (libraries ppxlib))

unikernel/duniverse/dune_/test/blackbox-tests/test-cases/utop/utop-ppx-rewriters.t/ppx/fooppx.ml

@@ -0,0 +1,10 @@
+open Ppxlib
+
+let rules =
+  let extension =
+    Extension.declare "foo" Expression Ast_pattern.__ (fun ~loc ~path:_ _ ->
+      Ast_builder.Default.estring ~loc "PPX extension")
+  in
+  [ Context_free.Rule.extension extension ]
+
+let () = Ppxlib.Driver.register_transformation "rules" ~rules

unikernel/duniverse/dune_/test/blackbox-tests/test-cases/utop/utop-ppx-rewriters.t/run.t

@@ -0,0 +1,3 @@
+Running dune utop with directory containing a PPX rewriter
+  $ dune utop ppx -- use_ppx.ml
+  PPX extension

unikernel/duniverse/dune_/test/blackbox-tests/test-cases/utop/utop-ppx-rewriters.t/use_ppx.ml

@@ -0,0 +1,3 @@
+let () =
+  Printf.printf "%s\n" [%foo];
+  exit 0