From ba78e05d958ab197ed4b11f8c59939c95426d273 Mon Sep 17 00:00:00 2001
From: Jeremie Dimino <jdimino@janestreet.com>
Date: Wed, 9 May 2018 16:44:53 +0100
Subject: [PATCH] Add a test for #761

---
 test/blackbox-tests/dune.inc                  | 10 ++++++++
 test/blackbox-tests/test-cases/github761/dune |  7 ++++++
 .../blackbox-tests/test-cases/github761/run.t | 23 +++++++++++++++++++
 3 files changed, 40 insertions(+)
 create mode 100644 test/blackbox-tests/test-cases/github761/dune
 create mode 100644 test/blackbox-tests/test-cases/github761/run.t

diff --git a/test/blackbox-tests/dune.inc b/test/blackbox-tests/dune.inc
index 9805d07f..e00ee5ff 100644
--- a/test/blackbox-tests/dune.inc
+++ b/test/blackbox-tests/dune.inc
@@ -201,6 +201,14 @@
     test-cases/github759
     (progn (run ${exe:cram.exe} -test run.t) (diff? run.t run.t.corrected))))))
 
+(alias
+ ((name github761)
+  (deps ((package dune) (files_recursively_in test-cases/github761)))
+  (action
+   (chdir
+    test-cases/github761
+    (progn (run ${exe:cram.exe} -test run.t) (diff? run.t run.t.corrected))))))
+
 (alias
  ((name include-loop)
   (deps ((package dune) (files_recursively_in test-cases/include-loop)))
@@ -485,6 +493,7 @@
     (alias github660)
     (alias github717-odoc-index)
     (alias github759)
+    (alias github761)
     (alias include-loop)
     (alias inline_tests)
     (alias installable-dup-private-libs)
@@ -538,6 +547,7 @@
     (alias github597)
     (alias github660)
     (alias github759)
+    (alias github761)
     (alias include-loop)
     (alias inline_tests)
     (alias installable-dup-private-libs)
diff --git a/test/blackbox-tests/test-cases/github761/dune b/test/blackbox-tests/test-cases/github761/dune
new file mode 100644
index 00000000..3a2cc268
--- /dev/null
+++ b/test/blackbox-tests/test-cases/github761/dune
@@ -0,0 +1,7 @@
+(alias
+ ((name foo/bar)
+  (action (echo toto))))
+
+(alias
+ ((name bar)
+  (action (echo toto))))
diff --git a/test/blackbox-tests/test-cases/github761/run.t b/test/blackbox-tests/test-cases/github761/run.t
new file mode 100644
index 00000000..1f74f841
--- /dev/null
+++ b/test/blackbox-tests/test-cases/github761/run.t
@@ -0,0 +1,23 @@
+  $ jbuilder build @bar
+  Internal error, please report upstream including the contents of _build/log.
+  Description: 
+  ("Alias0.make: Invalid alias" (name foo/bar) (dir _build/default))
+  Backtrace:
+  Raised at file "src/stdune/exn.ml", line 32, characters 5-10
+  Called from file "src/build_system.ml", line 228, characters 8-146
+  Called from file "src/gen_rules.ml", line 914, characters 16-49
+  Called from file "src/gen_rules.ml", line 964, characters 8-37
+  Called from file "src/stdune/list.ml", line 13, characters 10-13
+  Called from file "src/gen_rules.ml", line 955, characters 4-777
+  Called from file "src/gen_rules.ml", line 994, characters 19-30
+  Called from file "src/build_system.ml", line 889, characters 6-62
+  Called from file "src/build_system.ml", line 865, characters 6-59
+  Re-raised at file "src/build_system.ml", line 876, characters 6-17
+  Called from file "src/build_system.ml" (inlined), line 833, characters 32-63
+  Called from file "src/build_system.ml", line 843, characters 4-24
+  Called from file "src/build_interpret.ml", line 101, characters 24-40
+  Called from file "src/build_interpret.ml", line 60, characters 31-43
+  Called from file "src/build_interpret.ml", line 60, characters 31-43
+  Called from file "src/build_system.ml", line 1215, characters 10-108
+  Called from file "src/fiber/fiber.ml", line 359, characters 6-13
+  [1]