Add test for #764

test/blackbox-tests/dune.inc

@@ -217,6 +217,16 @@
     test-cases/github761
     (progn (run ${exe:cram.exe} -test run.t) (diff? run.t run.t.corrected))))))
 
+(alias
+ ((name github764)
+  (deps ((package dune) (files_recursively_in test-cases/github764)))
+  (action
+   (chdir
+    test-cases/github764
+    (progn
+     (run ${exe:cram.exe} -skip-platforms win -test run.t)
+     (diff? run.t run.t.corrected))))))
+
 (alias
  ((name ignored_subdirs)
   (deps ((package dune) (files_recursively_in test-cases/ignored_subdirs)))
@@ -511,6 +521,7 @@
     (alias github734)
     (alias github759)
     (alias github761)
+    (alias github764)
     (alias ignored_subdirs)
     (alias include-loop)
     (alias inline_tests)
@@ -567,6 +578,7 @@
     (alias github734)
     (alias github759)
     (alias github761)
+    (alias github764)
     (alias ignored_subdirs)
     (alias include-loop)
     (alias inline_tests)

test/blackbox-tests/gen_tests.ml

@@ -104,6 +104,7 @@ let exclusions =
   ; make "menhir"~external_deps:true
   ; make "utop"~external_deps:true
   ; make "configurator" ~skip_platforms:[Win]
+  ; make "github764" ~skip_platforms:[Win]
   ]
 
 let all_tests = lazy (

test/blackbox-tests/test-cases/github764/run.t

@@ -0,0 +1,3 @@
+  $ ln -s . x && ln -s . y && jbuilder build
+  Path . has already been scanned. Cannot scan it again through symlink x
+  [1]