Add a test for #5319
authorIan Lynagh <igloo@earth.li>
Wed, 16 Nov 2011 18:21:32 +0000 (18:21 +0000)
committerIan Lynagh <igloo@earth.li>
Wed, 16 Nov 2011 18:21:32 +0000 (18:21 +0000)
tests/all.T
tests/executeFile001.hs [new file with mode: 0644]
tests/executeFile001.stdout [new file with mode: 0644]

index 0086949..273d185 100644 (file)
@@ -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 (file)
index 0000000..7a70695
--- /dev/null
@@ -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 (file)
index 0000000..9f4111c
--- /dev/null
@@ -0,0 +1 @@
+arg1 ar   g2