From 205d12755ed0835db4de9af9485ae08422133b52 Mon Sep 17 00:00:00 2001
From: Rudi Grinberg <rudi.grinberg@gmail.com>
Date: Mon, 9 Jul 2018 22:36:21 +0700
Subject: [PATCH] Failing test for shadowing bindings

Signed-off-by: Rudi Grinberg <rudi.grinberg@gmail.com>
---
 test/blackbox-tests/dune.inc                           | 10 ++++++++++
 test/blackbox-tests/test-cases/shadow-bindings/dune    |  5 +++++
 .../test-cases/shadow-bindings/dune-project            |  1 +
 test/blackbox-tests/test-cases/shadow-bindings/foo     |  0
 test/blackbox-tests/test-cases/shadow-bindings/run.t   |  4 ++++
 5 files changed, 20 insertions(+)
 create mode 100644 test/blackbox-tests/test-cases/shadow-bindings/dune
 create mode 100644 test/blackbox-tests/test-cases/shadow-bindings/dune-project
 create mode 100644 test/blackbox-tests/test-cases/shadow-bindings/foo
 create mode 100644 test/blackbox-tests/test-cases/shadow-bindings/run.t

diff --git a/test/blackbox-tests/dune.inc b/test/blackbox-tests/dune.inc
index 72e2921f..b845770c 100644
--- a/test/blackbox-tests/dune.inc
+++ b/test/blackbox-tests/dune.inc
@@ -611,6 +611,14 @@
    test-cases/select
    (progn (run %{exe:cram.exe} -test run.t) (diff? run.t run.t.corrected)))))
 
+(alias
+ (name shadow-bindings)
+ (deps (package dune) (source_tree test-cases/shadow-bindings))
+ (action
+  (chdir
+   test-cases/shadow-bindings
+   (progn (run %{exe:cram.exe} -test run.t) (diff? run.t run.t.corrected)))))
+
 (alias
  (name subst)
  (deps (package dune) (source_tree test-cases/subst))
@@ -749,6 +757,7 @@
   (alias scope-bug)
   (alias scope-ppx-bug)
   (alias select)
+  (alias shadow-bindings)
   (alias subst)
   (alias syntax-versioning)
   (alias tests-stanza)
@@ -824,6 +833,7 @@
   (alias scope-bug)
   (alias scope-ppx-bug)
   (alias select)
+  (alias shadow-bindings)
   (alias subst)
   (alias syntax-versioning)
   (alias tests-stanza)
diff --git a/test/blackbox-tests/test-cases/shadow-bindings/dune b/test/blackbox-tests/test-cases/shadow-bindings/dune
new file mode 100644
index 00000000..68875f23
--- /dev/null
+++ b/test/blackbox-tests/test-cases/shadow-bindings/dune
@@ -0,0 +1,5 @@
+
+(alias
+ (name runtest)
+ (deps (:root foo))
+ (action (echo %{root})))
\ No newline at end of file
diff --git a/test/blackbox-tests/test-cases/shadow-bindings/dune-project b/test/blackbox-tests/test-cases/shadow-bindings/dune-project
new file mode 100644
index 00000000..b2559fa0
--- /dev/null
+++ b/test/blackbox-tests/test-cases/shadow-bindings/dune-project
@@ -0,0 +1 @@
+(lang dune 1.0)
\ No newline at end of file
diff --git a/test/blackbox-tests/test-cases/shadow-bindings/foo b/test/blackbox-tests/test-cases/shadow-bindings/foo
new file mode 100644
index 00000000..e69de29b
diff --git a/test/blackbox-tests/test-cases/shadow-bindings/run.t b/test/blackbox-tests/test-cases/shadow-bindings/run.t
new file mode 100644
index 00000000..565385e9
--- /dev/null
+++ b/test/blackbox-tests/test-cases/shadow-bindings/run.t
@@ -0,0 +1,4 @@
+Bindings introduced by user dependencies should shadow existing bindings
+
+  $ dune runtest
+  .