diff options
| author | nineonine <mail4chemik@gmail.com> | 2019-05-21 21:34:27 -0700 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2019-06-09 18:45:31 -0400 |
| commit | ed20412a8ce7578d073461892c9643591c6993a5 (patch) | |
| tree | 0c70668748e35547124d056a43ae8d24192aceed /testsuite/tests/rename | |
| parent | 13572480cbb8588033a60c675bec0cdae382fb91 (diff) | |
| download | haskell-ed20412a8ce7578d073461892c9643591c6993a5.tar.gz | |
Do not report error if Name in pragma is unbound
Diffstat (limited to 'testsuite/tests/rename')
| -rw-r--r-- | testsuite/tests/rename/should_fail/T16610.hs | 6 | ||||
| -rw-r--r-- | testsuite/tests/rename/should_fail/T16610.stderr | 3 | ||||
| -rw-r--r-- | testsuite/tests/rename/should_fail/all.T | 1 |
3 files changed, 10 insertions, 0 deletions
diff --git a/testsuite/tests/rename/should_fail/T16610.hs b/testsuite/tests/rename/should_fail/T16610.hs new file mode 100644 index 0000000000..e8d4024381 --- /dev/null +++ b/testsuite/tests/rename/should_fail/T16610.hs @@ -0,0 +1,6 @@ +module T16610 where + +data Foo = Foo +instance Eq Foo where + {-# INLINE wrong #-} + wrong _ = True diff --git a/testsuite/tests/rename/should_fail/T16610.stderr b/testsuite/tests/rename/should_fail/T16610.stderr new file mode 100644 index 0000000000..9f1a671b53 --- /dev/null +++ b/testsuite/tests/rename/should_fail/T16610.stderr @@ -0,0 +1,3 @@ + +T16610.hs:6:3: error: + ‘wrong’ is not a (visible) method of class ‘Eq’ diff --git a/testsuite/tests/rename/should_fail/all.T b/testsuite/tests/rename/should_fail/all.T index 28f97909c1..35a3174000 100644 --- a/testsuite/tests/rename/should_fail/all.T +++ b/testsuite/tests/rename/should_fail/all.T @@ -150,3 +150,4 @@ test('T15957_Fail', normal, compile_fail, ['-Werror -Wall -Wno-missing-signature test('T16385', normal, compile_fail, ['']) test('T16504', normal, compile_fail, ['']) test('T14548', normal, compile_fail, ['']) +test('T16610', normal, compile_fail, ['']) |