Add a test for #6037
authorIan Lynagh <ian@well-typed.com>
Sat, 23 Feb 2013 22:45:45 +0000 (22:45 +0000)
committerIan Lynagh <ian@well-typed.com>
Sat, 23 Feb 2013 22:45:45 +0000 (22:45 +0000)
testsuite/tests/driver/Makefile
testsuite/tests/driver/T6037.hs [new file with mode: 0644]
testsuite/tests/driver/T6037.stderr [new file with mode: 0644]
testsuite/tests/driver/all.T

index 5152061..e412002 100644 (file)
@@ -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/testsuite/tests/driver/T6037.hs b/testsuite/tests/driver/T6037.hs
new file mode 100644 (file)
index 0000000..56aa034
--- /dev/null
@@ -0,0 +1,5 @@
+
+module T6037 where
+
+fóo :: Int
+fóo = ()
diff --git a/testsuite/tests/driver/T6037.stderr b/testsuite/tests/driver/T6037.stderr
new file mode 100644 (file)
index 0000000..3059288
--- /dev/null
@@ -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 = ()
index 0020f18..4c81ba5 100644 (file)
@@ -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'])