diff options
| author | Ian Lynagh <ian@well-typed.com> | 2013-02-23 22:45:45 +0000 |
|---|---|---|
| committer | Ian Lynagh <ian@well-typed.com> | 2013-02-23 22:45:45 +0000 |
| commit | 11237cf673876f6ef85918383cb46b8b1e8ca099 (patch) | |
| tree | 9926bc5fd2e2780bdba098f7ce8b0f4e22c4e86a /testsuite | |
| parent | 580fd746c68415304bb9434b61df777bc88ed3a4 (diff) | |
| download | haskell-11237cf673876f6ef85918383cb46b8b1e8ca099.tar.gz | |
Add a test for #6037
Diffstat (limited to 'testsuite')
| -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']) |