From 722396c78f534aeeaa2ee65121d705949576f2cb Mon Sep 17 00:00:00 2001
From: Ian Lynagh <igloo@earth.li>
Date: Wed, 16 Nov 2011 18:21:32 +0000
Subject: [PATCH] Add a test for #5319
---
tests/all.T | 1 +
tests/executeFile001.hs | 6 ++++++
tests/executeFile001.stdout | 1 +
3 files changed, 8 insertions(+)
create mode 100644 tests/executeFile001.hs
create mode 100644 tests/executeFile001.stdout
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
--
GitLab