Add test

Signed-off-by: Nicolás Ojeda Bär <n.oje.bar@gmail.com>
ocaml · Jul 31, 2019 · 70adc42 · 70adc42
1 parent d4aad9f
commit 70adc42
Show file tree

Hide file tree

Showing 4 changed files with 19 additions and 0 deletions.
diff --git a/test/blackbox-tests/dune.inc b/test/blackbox-tests/dune.inc
@@ -1622,6 +1622,14 @@
    test-cases/windows-diff
    (progn (run %{exe:cram.exe} -test run.t) (diff? run.t run.t.corrected)))))
 
+(alias
+ (name with-stdin-from)
+ (deps (package dune) (source_tree test-cases/with-stdin-from))
+ (action
+  (chdir
+   test-cases/with-stdin-from
+   (progn (run %{exe:cram.exe} -test run.t) (diff? run.t run.t.corrected)))))
+
 (alias
  (name workspace-paths)
  (deps (package dune) (source_tree test-cases/workspace-paths))
@@ -1852,6 +1860,7 @@
   (alias vlib-default-impl)
   (alias vlib-wrong-default-impl)
   (alias windows-diff)
+  (alias with-stdin-from)
   (alias workspace-paths)
   (alias workspaces)
   (alias wrapped-false-main-module-name)
@@ -2028,6 +2037,7 @@
   (alias vlib-default-impl)
   (alias vlib-wrong-default-impl)
   (alias windows-diff)
+  (alias with-stdin-from)
   (alias workspace-paths)
   (alias workspaces)
   (alias wrapped-false-main-module-name)

diff --git a/test/blackbox-tests/test-cases/with-stdin-from/dune b/test/blackbox-tests/test-cases/with-stdin-from/dune
@@ -0,0 +1,5 @@
+(rule (with-stdout-to input.txt (echo "Hello!\n")))
+
+(alias
+ (name runtest)
+ (action (with-stdin-from input.txt (run cat))))
diff --git a/test/blackbox-tests/test-cases/with-stdin-from/dune-project b/test/blackbox-tests/test-cases/with-stdin-from/dune-project
@@ -0,0 +1 @@
+(lang dune 1.12)
diff --git a/test/blackbox-tests/test-cases/with-stdin-from/run.t b/test/blackbox-tests/test-cases/with-stdin-from/run.t
@@ -0,0 +1,3 @@
+  $ dune runtest --display short
+           cat alias runtest
+  Hello!