diff options
Diffstat (limited to 'testsuite/tests')
| -rw-r--r-- | testsuite/tests/driver/Makefile | 4 | ||||
| -rw-r--r-- | testsuite/tests/driver/T2507.hs | 5 | ||||
| -rw-r--r-- | testsuite/tests/driver/T2507.stderr | 5 | ||||
| -rw-r--r-- | testsuite/tests/driver/all.T | 1 |
4 files changed, 15 insertions, 0 deletions
diff --git a/testsuite/tests/driver/Makefile b/testsuite/tests/driver/Makefile index e4120023e3..2a06257cf4 100644 --- a/testsuite/tests/driver/Makefile +++ b/testsuite/tests/driver/Makefile @@ -540,3 +540,7 @@ T7563: T6037: -LC_ALL=C "$(TEST_HC)" $(TEST_HC_OPTS_NO_RECOMP) -c T6037.hs +.PHONY: T2507 +T2507: + -LC_ALL=C "$(TEST_HC)" $(TEST_HC_OPTS_NO_RECOMP) -c T2507.hs + diff --git a/testsuite/tests/driver/T2507.hs b/testsuite/tests/driver/T2507.hs new file mode 100644 index 0000000000..8f6c0c0076 --- /dev/null +++ b/testsuite/tests/driver/T2507.hs @@ -0,0 +1,5 @@ + +module T2507 where + +foo :: Int +foo = () diff --git a/testsuite/tests/driver/T2507.stderr b/testsuite/tests/driver/T2507.stderr new file mode 100644 index 0000000000..925a8709dd --- /dev/null +++ b/testsuite/tests/driver/T2507.stderr @@ -0,0 +1,5 @@ + +T2507.hs:5:7: + Couldn't match expected type `Int' with actual type `()' + In the expression: () + In an equation for `foo': foo = () diff --git a/testsuite/tests/driver/all.T b/testsuite/tests/driver/all.T index 4c81ba5cbb..609e8ea392 100644 --- a/testsuite/tests/driver/all.T +++ b/testsuite/tests/driver/all.T @@ -366,4 +366,5 @@ 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']) +test('T2507', normal, run_command, ['$MAKE -s --no-print-directory T2507']) |