From 629b3d07ee8aa112cfa7214adf712fd0e584cdb1 Mon Sep 17 00:00:00 2001
From: Rudi Grinberg <rudi.grinberg@gmail.com>
Date: Mon, 9 Jul 2018 00:33:07 +0700
Subject: [PATCH] Add test to show bug with expanding %{ocaml:..} forms

Signed-off-by: Rudi Grinberg <rudi.grinberg@gmail.com>
---
 test/blackbox-tests/dune.inc                           | 10 ++++++++++
 test/blackbox-tests/test-cases/ocaml-config-macro/dune |  3 +++
 .../test-cases/ocaml-config-macro/dune-project         |  1 +
 .../blackbox-tests/test-cases/ocaml-config-macro/run.t |  7 +++++++
 4 files changed, 21 insertions(+)
 create mode 100644 test/blackbox-tests/test-cases/ocaml-config-macro/dune
 create mode 100644 test/blackbox-tests/test-cases/ocaml-config-macro/dune-project
 create mode 100644 test/blackbox-tests/test-cases/ocaml-config-macro/run.t

diff --git a/test/blackbox-tests/dune.inc b/test/blackbox-tests/dune.inc
index bf0c54a1..984ac606 100644
--- a/test/blackbox-tests/dune.inc
+++ b/test/blackbox-tests/dune.inc
@@ -436,6 +436,14 @@
    test-cases/null-dep
    (progn (run %{exe:cram.exe} -test run.t) (diff? run.t run.t.corrected)))))
 
+(alias
+ (name ocaml-config-macro)
+ (deps (package dune) (source_tree test-cases/ocaml-config-macro))
+ (action
+  (chdir
+   test-cases/ocaml-config-macro
+   (progn (run %{exe:cram.exe} -test run.t) (diff? run.t run.t.corrected)))))
+
 (alias
  (name ocaml-syntax)
  (deps (package dune) (source_tree test-cases/ocaml-syntax))
@@ -698,6 +706,7 @@
   (alias multiple-private-libs)
   (alias no-installable-mode)
   (alias null-dep)
+  (alias ocaml-config-macro)
   (alias ocaml-syntax)
   (alias ocamldep-multi-stanzas)
   (alias odoc)
@@ -773,6 +782,7 @@
   (alias misc)
   (alias no-installable-mode)
   (alias null-dep)
+  (alias ocaml-config-macro)
   (alias ocaml-syntax)
   (alias ocamldep-multi-stanzas)
   (alias output-obj)
diff --git a/test/blackbox-tests/test-cases/ocaml-config-macro/dune b/test/blackbox-tests/test-cases/ocaml-config-macro/dune
new file mode 100644
index 00000000..55237b58
--- /dev/null
+++ b/test/blackbox-tests/test-cases/ocaml-config-macro/dune
@@ -0,0 +1,3 @@
+(rule
+ (targets x)
+ (action (with-stdout-to %{targets} (echo %{ocaml-config:system}))))
\ No newline at end of file
diff --git a/test/blackbox-tests/test-cases/ocaml-config-macro/dune-project b/test/blackbox-tests/test-cases/ocaml-config-macro/dune-project
new file mode 100644
index 00000000..b2559fa0
--- /dev/null
+++ b/test/blackbox-tests/test-cases/ocaml-config-macro/dune-project
@@ -0,0 +1 @@
+(lang dune 1.0)
\ No newline at end of file
diff --git a/test/blackbox-tests/test-cases/ocaml-config-macro/run.t b/test/blackbox-tests/test-cases/ocaml-config-macro/run.t
new file mode 100644
index 00000000..512709cd
--- /dev/null
+++ b/test/blackbox-tests/test-cases/ocaml-config-macro/run.t
@@ -0,0 +1,7 @@
+%{ocaml-config:...} macros should be available. we don't print anything because
+the values are all platform specific.
+
+  $ dune build
+  File "dune", line 3, characters 41-61:
+  Error: Unknown form: %{ocaml-config:system}
+  [1]
\ No newline at end of file