[commit: unix] master: Add a test for #5319 (722396c)
Ian Lynagh
igloo at earth.li
Thu Nov 17 15:46:59 CET 2011
Repository : ssh://darcs.haskell.org//srv/darcs/packages/unix
On branch : master
http://hackage.haskell.org/trac/ghc/changeset/722396c78f534aeeaa2ee65121d705949576f2cb
>---------------------------------------------------------------
commit 722396c78f534aeeaa2ee65121d705949576f2cb
Author: Ian Lynagh <igloo at earth.li>
Date: Wed Nov 16 18:21:32 2011 +0000
Add a test for #5319
>---------------------------------------------------------------
tests/all.T | 1 +
tests/executeFile001.hs | 6 ++++++
tests/executeFile001.stdout | 1 +
3 files changed, 8 insertions(+), 0 deletions(-)
diff --git a/tests/all.T b/tests/all.T
index 0086949..273d185 100644
--- a/tests/all.T
+++ b/tests/all.T
@@ -59,3 +59,4 @@ test('3816', normal, compile_and_run, ['-package unix'])
test('processGroup001', normal, compile_and_run, ['-package unix'])
test('processGroup002', normal, compile_and_run, ['-package unix'])
+test('executeFile001', normal, compile_and_run, ['-package unix'])
diff --git a/tests/executeFile001.hs b/tests/executeFile001.hs
new file mode 100644
index 0000000..7a70695
--- /dev/null
+++ b/tests/executeFile001.hs
@@ -0,0 +1,6 @@
+
+import System.Posix.Process
+
+main :: IO ()
+main = executeFile "echo" True ["arg1", "ar g2"] Nothing
+
diff --git a/tests/executeFile001.stdout b/tests/executeFile001.stdout
new file mode 100644
index 0000000..9f4111c
--- /dev/null
+++ b/tests/executeFile001.stdout
@@ -0,0 +1 @@
+arg1 ar g2
More information about the Cvs-libraries
mailing list