[commit: testsuite] master: Tests for #8601 (f50c270)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/testsuite

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/f50c270457a2b9fbf831ab53081e111c84156bf9/testsuite

>---------------------------------------------------------------

commit f50c270457a2b9fbf831ab53081e111c84156bf9
Author: John Lenz <lenz at math.uic.edu>
Date:   Tue Jan 7 07:22:56 2014 -0600

    Tests for #8601
    
    Signed-off-by: Austin Seipp <austin at well-typed.com>


>---------------------------------------------------------------

f50c270457a2b9fbf831ab53081e111c84156bf9
 tests/runghc/Makefile                           |    5 +++++
 tests/{rts/T5993.stdout => runghc/T8601.stdout} |    0
 tests/runghc/all.T                              |    2 ++
 3 files changed, 7 insertions(+)

diff --git a/tests/runghc/Makefile b/tests/runghc/Makefile
index de374d5..f96c829 100644
--- a/tests/runghc/Makefile
+++ b/tests/runghc/Makefile
@@ -5,3 +5,8 @@ include $(TOP)/mk/test.mk
 T7859:
 	-'$(RUNGHC)' -fdefer-type-errors T7859.hs
 
+#The bug is that when reading from standard input, --ghc-arg= did not work correctly.
+#In the buggy version, the following command would try and use mtl as a source file to
+#compile.
+T8601:
+	-echo 'main = putStrLn "Hello World!"' | '$(RUNGHC)' -f '$(TEST_HC)' -hide-package --ghc-arg=bytestring
diff --git a/tests/rts/T5993.stdout b/tests/runghc/T8601.stdout
similarity index 100%
copy from tests/rts/T5993.stdout
copy to tests/runghc/T8601.stdout
diff --git a/tests/runghc/all.T b/tests/runghc/all.T
index e7a5612..d268f2e 100644
--- a/tests/runghc/all.T
+++ b/tests/runghc/all.T
@@ -4,3 +4,5 @@ setTestOpts(when(compiler_profiled(), skip))
 test('T7859', req_interp, run_command,
      ['$MAKE --no-print-directory -s T7859'])
 
+test('T8601', req_interp, run_command,
+     ['$MAKE --no-print-directory -s T8601'])