[commit: testsuite] master: Add a test for #6037 (6e93289)

[Ian Lynagh]

Repository : ssh://darcs.haskell.org//srv/darcs/testsuite

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/6e9328926ad7c3a36beb390fafe9f82249a91221

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

commit 6e9328926ad7c3a36beb390fafe9f82249a91221
Author: Ian Lynagh <ian at well-typed.com>
Date:   Sat Feb 23 22:45:45 2013 +0000

    Add a test for #6037

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

 tests/driver/Makefile     |    4 ++++
 tests/driver/T6037.hs     |    5 +++++
 tests/driver/T6037.stderr |    5 +++++
 tests/driver/all.T        |    2 ++
 4 files changed, 16 insertions(+), 0 deletions(-)

diff --git a/tests/driver/Makefile b/tests/driver/Makefile
index 5152061..e412002 100644
--- a/tests/driver/Makefile
+++ b/tests/driver/Makefile
@@ -536,3 +536,7 @@ T7130:
 T7563:
 	-"$(TEST_HC)" $(TEST_HC_OPTS_NO_RECOMP) -C T7563.hs
 
+.PHONY: T6037
+T6037:
+	-LC_ALL=C "$(TEST_HC)" $(TEST_HC_OPTS_NO_RECOMP) -c T6037.hs
+
diff --git a/tests/driver/T6037.hs b/tests/driver/T6037.hs
new file mode 100644
index 0000000..56aa034
--- /dev/null
+++ b/tests/driver/T6037.hs
@@ -0,0 +1,5 @@
+
+module T6037 where
+
+fóo :: Int
+fóo = ()
diff --git a/tests/driver/T6037.stderr b/tests/driver/T6037.stderr
new file mode 100644
index 0000000..3059288
--- /dev/null
+++ b/tests/driver/T6037.stderr
@@ -0,0 +1,5 @@
+
+T6037.hs:5:7:
+    Couldn't match expected type `Int' with actual type `()'
+    In the expression: ()
+    In an equation for `f?o': f?o = ()
diff --git a/tests/driver/all.T b/tests/driver/all.T
index 0020f18..4c81ba5 100644
--- a/tests/driver/all.T
+++ b/tests/driver/all.T
@@ -364,4 +364,6 @@ test('T7060',
 test('T7130', normal, compile_fail, ['-fflul-laziness'])
 test('T7563', when(unregisterised(), skip), run_command,
      ['$MAKE -s --no-print-directory T7563'])
+test('T6037', expect_broken(6037), run_command,
+     ['$MAKE -s --no-print-directory T6037'])