diff options
author | Richard Eisenberg <eir@cis.upenn.edu> | 2014-10-28 13:10:11 -0400 |
---|---|---|
committer | Richard Eisenberg <eir@cis.upenn.edu> | 2014-11-01 21:12:55 -0400 |
commit | 862772b7ecfce977ffe7090659da3bd923ef946a (patch) | |
tree | 1e437f893bb8223455de0c3c2b1c5c872262ebd5 /testsuite/tests | |
parent | 99882babf9bb2d73b972330b1cfa9495a029855b (diff) | |
download | haskell-862772b7ecfce977ffe7090659da3bd923ef946a.tar.gz |
Test #9084 in th/T9084.
The patch includes errors for a whole host of pragmas. But, these
are generated one at a time, and it doesn't seem like a good idea
to add gobs of test-cases here.
Diffstat (limited to 'testsuite/tests')
-rw-r--r-- | testsuite/tests/th/T9084.hs | 10 | ||||
-rw-r--r-- | testsuite/tests/th/T9084.stderr | 2 | ||||
-rw-r--r-- | testsuite/tests/th/all.T | 1 |
3 files changed, 13 insertions, 0 deletions
diff --git a/testsuite/tests/th/T9084.hs b/testsuite/tests/th/T9084.hs new file mode 100644 index 0000000000..6b1fe0dd26 --- /dev/null +++ b/testsuite/tests/th/T9084.hs @@ -0,0 +1,10 @@ +{-# LANGUAGE TemplateHaskell #-} + +module T9084 where + +$([d| + class C a where + meth :: a -> a + meth = undefined -- give a (silly) default + {-# MINIMAL meth #-} + |]) diff --git a/testsuite/tests/th/T9084.stderr b/testsuite/tests/th/T9084.stderr new file mode 100644 index 0000000000..ad90d1bd9c --- /dev/null +++ b/testsuite/tests/th/T9084.stderr @@ -0,0 +1,2 @@ + +T9084.hs:5:3: MINIMAL pragmas not (yet) handled by Template Haskell diff --git a/testsuite/tests/th/all.T b/testsuite/tests/th/all.T index 28ae4fb486..d6aaa84ef5 100644 --- a/testsuite/tests/th/all.T +++ b/testsuite/tests/th/all.T @@ -333,3 +333,4 @@ test('T9262', normal, compile, ['-v0']) test('T9199', normal, compile, ['-v0']) test('T9692', normal, compile, ['-v0']) test('T8953', normal, compile, ['-v0']) +test('T9084', normal, compile_fail, ['-v0']) |