Add a test with (preprocess (action ...))

Signed-off-by: Jeremie Dimino <jeremie@dimino.org>

test/blackbox-tests/dune.inc

@@ -539,6 +539,14 @@
     (run %{exe:cram.exe} -skip-versions 4.02.3 -test run.t)
     (diff? run.t run.t.corrected)))))
 
+(alias
+ (name preprocess-with-action)
+ (deps (package dune) (source_tree test-cases/preprocess-with-action))
+ (action
+  (chdir
+   test-cases/preprocess-with-action
+   (progn (run %{exe:cram.exe} -test run.t) (diff? run.t run.t.corrected)))))
+
 (alias
  (name private-public-overlap)
  (deps (package dune) (source_tree test-cases/private-public-overlap))
@@ -749,6 +757,7 @@
   (alias package-dep)
   (alias path-variables)
   (alias ppx-rewriter)
+  (alias preprocess-with-action)
   (alias private-public-overlap)
   (alias project-root)
   (alias promote)
@@ -826,6 +835,7 @@
   (alias output-obj)
   (alias package-dep)
   (alias path-variables)
+  (alias preprocess-with-action)
   (alias project-root)
   (alias promote)
   (alias quoting)

test/blackbox-tests/test-cases/preprocess-with-action/dune-project

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

test/blackbox-tests/test-cases/preprocess-with-action/dune/dune

@@ -0,0 +1,3 @@
+(test
+ (name test)
+ (preprocess (action (run pp/pp.exe %{first-dep}))))

test/blackbox-tests/test-cases/preprocess-with-action/dune/test.expected

@@ -0,0 +1 @@
+Hello, world!

test/blackbox-tests/test-cases/preprocess-with-action/dune/test.ml

@@ -0,0 +1 @@
+print_endline _STRING_

test/blackbox-tests/test-cases/preprocess-with-action/jbuild/jbuild

@@ -0,0 +1,10 @@
+(executable
+ ((name test)
+  (preprocess (action (run pp/pp.exe ${<})))))
+
+(rule
+ (with-stdout-to test.output (run ./test.exe)))
+
+(alias
+ ((name runtest)
+  (action (diff test.expected test.output))))

test/blackbox-tests/test-cases/preprocess-with-action/jbuild/test.expected

@@ -0,0 +1 @@
+Hello, world!

test/blackbox-tests/test-cases/preprocess-with-action/jbuild/test.ml

@@ -0,0 +1 @@
+print_endline _STRING_

test/blackbox-tests/test-cases/preprocess-with-action/pp/dune

@@ -0,0 +1,4 @@
+(executable
+ (name pp))
+
+(ocamllex pp)

test/blackbox-tests/test-cases/preprocess-with-action/pp/pp.mll

@@ -0,0 +1,10 @@
+rule main = parse
+  | eof { () }
+  | "_STRING_" { Printf.printf "%S" "Hello, world!"; main lexbuf }
+  | _ as c { print_char c; main lexbuf }
+
+{
+  let () =
+    set_binary_mode_out stdout true;
+    main (Lexing.from_channel (open_in_bin Sys.argv.(1)))
+}

test/blackbox-tests/test-cases/preprocess-with-action/run.t

@@ -0,0 +1,4 @@
+  $ dune runtest
+  File "dune/dune", line 3, characters 38-48:
+  Error: unknown variable "first-dep"
+  [1]