From c1f81bef64566ad98ee18d5d6b1e8f877a8a088e Mon Sep 17 00:00:00 2001
From: Rudi Grinberg <rudi.grinberg@gmail.com>
Date: Sat, 12 May 2018 18:23:08 +0700
Subject: [PATCH] Add test for #764

---
 test/blackbox-tests/dune.inc                   | 12 ++++++++++++
 test/blackbox-tests/gen_tests.ml               |  1 +
 test/blackbox-tests/test-cases/github764/run.t |  3 +++
 3 files changed, 16 insertions(+)
 create mode 100644 test/blackbox-tests/test-cases/github764/run.t

diff --git a/test/blackbox-tests/dune.inc b/test/blackbox-tests/dune.inc
index 3c9cf7b5..6863fa98 100644
--- a/test/blackbox-tests/dune.inc
+++ b/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)
diff --git a/test/blackbox-tests/gen_tests.ml b/test/blackbox-tests/gen_tests.ml
index 505bc1e0..085c22b6 100644
--- a/test/blackbox-tests/gen_tests.ml
+++ b/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 (
diff --git a/test/blackbox-tests/test-cases/github764/run.t b/test/blackbox-tests/test-cases/github764/run.t
new file mode 100644
index 00000000..97e12f41
--- /dev/null
+++ b/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]