diff options
| author | Thomas Miedema <thomasmiedema@gmail.com> | 2015-09-17 03:25:11 +0200 |
|---|---|---|
| committer | Thomas Miedema <thomasmiedema@gmail.com> | 2015-09-17 03:26:02 +0200 |
| commit | 8d89d80d907a7df1d455e87a382b41dc65c42140 (patch) | |
| tree | a08c88656376e04a33f678636d06187137157695 /testsuite/tests | |
| parent | e66daecafd83216f076a55e3313799f0834dc599 (diff) | |
| download | haskell-8d89d80d907a7df1d455e87a382b41dc65c42140.tar.gz | |
Testsuite: add test for #10781
Diffstat (limited to 'testsuite/tests')
| -rw-r--r-- | testsuite/tests/rename/should_fail/T10781.hs | 12 | ||||
| -rw-r--r-- | testsuite/tests/rename/should_fail/T10781.stderr | 2 | ||||
| -rw-r--r-- | testsuite/tests/rename/should_fail/all.T | 1 |
3 files changed, 15 insertions, 0 deletions
diff --git a/testsuite/tests/rename/should_fail/T10781.hs b/testsuite/tests/rename/should_fail/T10781.hs new file mode 100644 index 0000000000..9991c94774 --- /dev/null +++ b/testsuite/tests/rename/should_fail/T10781.hs @@ -0,0 +1,12 @@ +module T10781 where +{- ghc-7.10.2 reported: + +T10781.hs:6:5: + Found hole ‘_name’ with type: t + Where: ‘t’ is a rigid type variable bound by + the inferred type of f :: t at T10781.hs:6:1 + Relevant bindings include f :: t (bound at T10781.hs:6:1) + In the expression: Foo._name + In an equation for ‘f’: f = Foo._name +-} +f = Foo._name diff --git a/testsuite/tests/rename/should_fail/T10781.stderr b/testsuite/tests/rename/should_fail/T10781.stderr new file mode 100644 index 0000000000..5d4dc3c098 --- /dev/null +++ b/testsuite/tests/rename/should_fail/T10781.stderr @@ -0,0 +1,2 @@ + +T10781.hs:12:5: error: Not in scope: ‘Foo._name’ diff --git a/testsuite/tests/rename/should_fail/all.T b/testsuite/tests/rename/should_fail/all.T index bd717dd8d5..48814ec983 100644 --- a/testsuite/tests/rename/should_fail/all.T +++ b/testsuite/tests/rename/should_fail/all.T @@ -137,3 +137,4 @@ test('T9032', test('T10618', normal, compile_fail, ['']) test('T10668', normal, compile_fail, ['']) test('T5001b', normal, compile_fail, ['']) +test('T10781', normal, compile_fail, ['']) |