From a5ade0565085d9aba776766e42e747633f21ad82 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Cl=C3=A9ment=20Pit-Claudel?= <clement.pitclaudel@live.com>
Date: Fri, 22 May 2020 17:15:36 -0400
Subject: [PATCH] Add a test for promoting from a nonexistent subdir
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

Signed-off-by: Clément Pit-Claudel <clement.pitclaudel@live.com>
---
 test/blackbox-tests/dune.inc                        | 13 +++++++++++++
 .../test-cases/nonexistent-subdir/dune              |  4 ++++
 .../test-cases/nonexistent-subdir/dune-project      |  1 +
 .../test-cases/nonexistent-subdir/run.t             |  4 ++++
 4 files changed, 22 insertions(+)
 create mode 100644 test/blackbox-tests/test-cases/nonexistent-subdir/dune
 create mode 100644 test/blackbox-tests/test-cases/nonexistent-subdir/dune-project
 create mode 100644 test/blackbox-tests/test-cases/nonexistent-subdir/run.t

diff --git a/test/blackbox-tests/dune.inc b/test/blackbox-tests/dune.inc
index fdf3d0d62cb..578aa07beb4 100644
--- a/test/blackbox-tests/dune.inc
+++ b/test/blackbox-tests/dune.inc
@@ -1894,6 +1894,17 @@
    test-cases/no-name-field
    (progn (run dune-cram run run.t) (diff? run.t run.t.corrected)))))
 
+(rule
+ (alias nonexistent-subdir)
+ (deps
+  (package dune)
+  (source_tree test-cases/nonexistent-subdir)
+  (alias test-deps))
+ (action
+  (chdir
+   test-cases/nonexistent-subdir
+   (progn (run dune-cram run run.t) (diff? run.t run.t.corrected)))))
+
 (rule
  (alias null-dep)
  (deps (package dune) (source_tree test-cases/null-dep) (alias test-deps))
@@ -3197,6 +3208,7 @@
   (alias no-infer)
   (alias no-installable-mode)
   (alias no-name-field)
+  (alias nonexistent-subdir)
   (alias null-dep)
   (alias ocaml-config-macro)
   (alias ocaml-syntax)
@@ -3479,6 +3491,7 @@
   (alias no-infer)
   (alias no-installable-mode)
   (alias no-name-field)
+  (alias nonexistent-subdir)
   (alias null-dep)
   (alias ocaml-config-macro)
   (alias ocaml-syntax)
diff --git a/test/blackbox-tests/test-cases/nonexistent-subdir/dune b/test/blackbox-tests/test-cases/nonexistent-subdir/dune
new file mode 100644
index 00000000000..b7ee92b2c7d
--- /dev/null
+++ b/test/blackbox-tests/test-cases/nonexistent-subdir/dune
@@ -0,0 +1,4 @@
+(subdir "x"
+ (rule
+ (mode (promote (until-clean)))
+ (action (with-stdout-to y (echo "z")))))
diff --git a/test/blackbox-tests/test-cases/nonexistent-subdir/dune-project b/test/blackbox-tests/test-cases/nonexistent-subdir/dune-project
new file mode 100644
index 00000000000..5bbef0b4909
--- /dev/null
+++ b/test/blackbox-tests/test-cases/nonexistent-subdir/dune-project
@@ -0,0 +1 @@
+(lang dune 2.5)
diff --git a/test/blackbox-tests/test-cases/nonexistent-subdir/run.t b/test/blackbox-tests/test-cases/nonexistent-subdir/run.t
new file mode 100644
index 00000000000..de540dcf6a5
--- /dev/null
+++ b/test/blackbox-tests/test-cases/nonexistent-subdir/run.t
@@ -0,0 +1,4 @@
+Check that promoting from a nonexistent subdir doesn't cause crashes.
+  $ dune build x/y
+  $ cat x/y
+  z