diff options
| -rw-r--r-- | testsuite/tests/driver/Makefile | 4 | ||||
| -rw-r--r-- | testsuite/tests/driver/T6037.hs | 5 | ||||
| -rw-r--r-- | testsuite/tests/driver/T6037.stderr | 5 | ||||
| -rw-r--r-- | testsuite/tests/driver/all.T | 2 |
4 files changed, 16 insertions, 0 deletions
diff --git a/testsuite/tests/driver/Makefile b/testsuite/tests/driver/Makefile index 5152061f2f..e4120023e3 100644 --- a/testsuite/tests/driver/Makefile +++ b/testsuite/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/testsuite/tests/driver/T6037.hs b/testsuite/tests/driver/T6037.hs new file mode 100644 index 0000000000..56aa03462c --- /dev/null +++ b/testsuite/tests/driver/T6037.hs @@ -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 index 0000000000..3059288d10 --- /dev/null +++ b/testsuite/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/testsuite/tests/driver/all.T b/testsuite/tests/driver/all.T index 0020f1836c..4c81ba5cbb 100644 --- a/testsuite/tests/driver/all.T +++ b/testsuite/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']) |