Add test case for bug 2206

Signed-off-by: Rudi Grinberg <rudi.grinberg@gmail.com>
ocaml · May 29, 2019 · d79fe8b · d79fe8b
1 parent 310f1e1
commit d79fe8b
Show file tree

Hide file tree

Showing 8 changed files with 34 additions and 0 deletions.
diff --git a/test/blackbox-tests/dune.inc b/test/blackbox-tests/dune.inc
@@ -659,6 +659,14 @@
    test-cases/github2123
    (progn (run %{exe:cram.exe} -test run.t) (diff? run.t run.t.corrected)))))
 
+(alias
+ (name github2206)
+ (deps (package dune) (source_tree test-cases/github2206))
+ (action
+  (chdir
+   test-cases/github2206
+   (progn (run %{exe:cram.exe} -test run.t) (diff? run.t run.t.corrected)))))
+
 (alias
  (name github24)
  (deps (package dune) (source_tree test-cases/github24))
@@ -1557,6 +1565,7 @@
   (alias github2033)
   (alias github2061)
   (alias github2123)
+  (alias github2206)
   (alias github24)
   (alias github25)
   (alias github534)
@@ -1733,6 +1742,7 @@
   (alias github2033)
   (alias github2061)
   (alias github2123)
+  (alias github2206)
   (alias github24)
   (alias github25)
   (alias github534)

diff --git a/test/blackbox-tests/test-cases/github2206/copy_files/dune b/test/blackbox-tests/test-cases/github2206/copy_files/dune
@@ -0,0 +1,5 @@
+(copy_files sources/*)
+
+(executable
+ (name foo)
+ (preprocess (action (run %{project_root}/pp.exe %{input-file}))))
diff --git a/test/blackbox-tests/test-cases/github2206/copy_files/foo.ml b/test/blackbox-tests/test-cases/github2206/copy_files/foo.ml
diff --git a/test/blackbox-tests/test-cases/github2206/copy_files/sources/foo b/test/blackbox-tests/test-cases/github2206/copy_files/sources/foo
diff --git a/test/blackbox-tests/test-cases/github2206/dune b/test/blackbox-tests/test-cases/github2206/dune
@@ -0,0 +1,2 @@
+(executable
+ (name pp))
diff --git a/test/blackbox-tests/test-cases/github2206/dune-project b/test/blackbox-tests/test-cases/github2206/dune-project
@@ -0,0 +1 @@
+(lang dune 1.10)
diff --git a/test/blackbox-tests/test-cases/github2206/pp.ml b/test/blackbox-tests/test-cases/github2206/pp.ml
@@ -0,0 +1,7 @@
+let file = Sys.argv.(1)
+
+let () =
+  let ch = open_in file in
+  let s = really_input_string ch (in_channel_length ch) in
+  close_in_noerr ch;
+  print_string s
diff --git a/test/blackbox-tests/test-cases/github2206/run.t b/test/blackbox-tests/test-cases/github2206/run.t
@@ -0,0 +1,9 @@
+copy_files would break the generation of the preprocessing flags
+  $ dune build copy_files/.merlin
+  File "copy_files/dune", line 5, characters 21-63:
+  5 |  (preprocess (action (run %{project_root}/pp.exe %{input-file}))))
+                           ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
+  Warning: .merlin generated is inaccurate. Cannot mix preprocessed and non preprocessed specificiations.
+  Split the stanzas into different directories or silence this warning by adding (allow_approximate_merlin) to your dune-project.
+  $ cat copy_files/.merlin | grep "FLG -pp"
+  [1]