Add test for concat_or_split

Signed-off-by: Rudi Grinberg <rudi.grinberg@gmail.com>
2018-06-04 18:24:03 +07:00 · 2018-06-04 18:24:03 +07:00 · 69c0ab48ce
parent 0219b0ffdb
commit 69c0ab48ce
4 changed files with 17 additions and 0 deletions
--- a/test/blackbox-tests/test-cases/quoting/quote-from-context/args
+++ b/test/blackbox-tests/test-cases/quoting/quote-from-context/args
@ -0,0 +1,3 @@
+foo
+bar
+baz
--- a/test/blackbox-tests/test-cases/quoting/quote-from-context/count_args.ml
+++ b/test/blackbox-tests/test-cases/quoting/quote-from-context/count_args.ml
@ -0,0 +1,3 @@
+
+let () =
+  Printf.printf "Number of args: %d\n" (Array.length Sys.argv - 1)
--- a/test/blackbox-tests/test-cases/quoting/quote-from-context/dune
+++ b/test/blackbox-tests/test-cases/quoting/quote-from-context/dune
@ -0,0 +1,6 @@
+(executable
+ ((name count_args)))
+
+(alias
+ ((name runtest)
+  (action (run ./count_args.exe ${read-lines:args}))))
--- a/test/blackbox-tests/test-cases/quoting/run.t
+++ b/test/blackbox-tests/test-cases/quoting/run.t
@ -17,3 +17,8 @@ The targets should only be interpreted as a single path when quoted
  - s
  - t
  [1]
+
+  $ dune runtest --root quote-from-context
+  Entering directory 'quote-from-context'
+    count_args alias runtest
+  Number of args: 3