test: preprocessor directory

Signed-off-by: Stephen Sherratt <[email protected]>

test/blackbox-tests/test-cases/preprocessor-directory.t/dune-project

@@ -0,0 +1,2 @@
+(lang dune 3.7)
+(package (name foo))

test/blackbox-tests/test-cases/preprocessor-directory.t/rewrite.sh

@@ -0,0 +1,2 @@
+#!/bin/sh
+printf 'let () = print_endline "foo (from the rewrite.sh script in the project root directory)"'

test/blackbox-tests/test-cases/preprocessor-directory.t/run.t

@@ -0,0 +1,23 @@
+This test exercises the logic for choosing the directory from which to invoke
+the preprocessor command. There are two rewrite.sh scripts in this test: one in
+the root directory which rewrites the source to print "foo ..." and one in the
+src directory which writes the source to print "bar ...".
+
+Initially the project uses dune lang 3.7 so the preprocessor command is invoked
+from the project root:
+  $ cat dune-project
+  (lang dune 3.7)
+  (package (name foo))
+  $ dune exec ./src/foo.exe
+  foo (from the rewrite.sh script in the project root directory)
+
+Change the versiono of the dune language to 3.8:
+  $ sed -i.bak 's/(lang dune 3.7)/(lang dune 3.8)/' dune-project
+
+Now the preprocessor should be invoked from the src directory because the dune
+file which specifies the preprocessor is located there:
+  $ cat dune-project
+  (lang dune 3.8)
+  (package (name foo))
+  $ dune exec ./src/foo.exe
+  bar (from the rewrite.sh script in the src directory)

test/blackbox-tests/test-cases/preprocessor-directory.t/src/dune

@@ -0,0 +1,11 @@
+; An executable which invokes a rewriter to exercise the logic for choosing the
+; directory in which to invoke the rewriter. This project has two files named
+; "rewrite.sh". One next to this dune file, and one in the project root. This
+; project is designed to work in both the case where the rewriter is invoked
+; from the project root (the behaviour in dune <= 3.7) and from the directory
+; containing the dune file that specifies the preprocessing logic.
+(executable
+ (public_name foo)
+ (preprocessor_deps rewrite.sh ../rewrite.sh)
+ (preprocess
+  (pps ppx_inline_test -- -pp ./rewrite.sh)))

test/blackbox-tests/test-cases/preprocessor-directory.t/src/foo.ml

@@ -0,0 +1 @@
+let () = ()

test/blackbox-tests/test-cases/preprocessor-directory.t/src/rewrite.sh

@@ -0,0 +1,2 @@
+#!/bin/sh
+printf 'let () = print_endline "bar (from the rewrite.sh script in the src directory)"'