Add a test case for promoting a directory

ocaml · May 23, 2020 · be9de5a · be9de5a
1 parent d29cb85
commit be9de5a
Show file tree

Hide file tree

Showing 4 changed files with 26 additions and 0 deletions.
diff --git a/test/blackbox-tests/dune.inc b/test/blackbox-tests/dune.inc
@@ -2153,6 +2153,17 @@
    test-cases/promote
    (progn (run dune-cram run run.t) (diff? run.t run.t.corrected)))))
 
+(rule
+ (alias promote-directory)
+ (deps
+  (package dune)
+  (source_tree test-cases/promote-directory)
+  (alias test-deps))
+ (action
+  (chdir
+   test-cases/promote-directory
+   (progn (run dune-cram run run.t) (diff? run.t run.t.corrected)))))
+
 (rule
  (alias quoting)
  (deps (package dune) (source_tree test-cases/quoting) (alias test-deps))
@@ -3222,6 +3233,7 @@
   (alias private-public-overlap)
   (alias project-root)
   (alias promote)
+  (alias promote-directory)
   (alias quoting)
   (alias re-exported-deps)
   (alias reason)
@@ -3494,6 +3506,7 @@
   (alias private-modules)
   (alias project-root)
   (alias promote)
+  (alias promote-directory)
   (alias quoting)
   (alias re-exported-deps)
   (alias redirections)

diff --git a/test/blackbox-tests/test-cases/promote-directory/dune b/test/blackbox-tests/test-cases/promote-directory/dune
@@ -0,0 +1,7 @@
+(rule
+ (mode (promote (until-clean)))
+ (targets x/)
+ (action
+  (progn
+   (bash "mkdir -p x")
+   (bash "echo z > x/y"))))
diff --git a/test/blackbox-tests/test-cases/promote-directory/dune-project b/test/blackbox-tests/test-cases/promote-directory/dune-project
@@ -0,0 +1 @@
+(lang dune 2.5)
diff --git a/test/blackbox-tests/test-cases/promote-directory/run.t b/test/blackbox-tests/test-cases/promote-directory/run.t
@@ -0,0 +1,5 @@
+Check that directories are correctly promoted
+
+  $ dune build x
+  $ cat x/y
+  z