diff options
| author | Richard Eisenberg <eir@cis.upenn.edu> | 2014-11-03 15:33:51 -0500 |
|---|---|---|
| committer | Richard Eisenberg <eir@cis.upenn.edu> | 2014-11-21 11:15:44 -0500 |
| commit | dbf360a5264d5d6597e046dcd9b4f49effa91eee (patch) | |
| tree | fbf21ae1d3f177781641d5db09c0b2bbefa429ed /testsuite | |
| parent | 6d404707e533922c26aebb82cf97565fe773ca60 (diff) | |
| download | haskell-dbf360a5264d5d6597e046dcd9b4f49effa91eee.tar.gz | |
Test #7484 in th/T7484
Diffstat (limited to 'testsuite')
| -rw-r--r-- | testsuite/tests/th/T7484.hs | 7 | ||||
| -rw-r--r-- | testsuite/tests/th/T7484.stderr | 4 | ||||
| -rw-r--r-- | testsuite/tests/th/all.T | 1 |
3 files changed, 12 insertions, 0 deletions
diff --git a/testsuite/tests/th/T7484.hs b/testsuite/tests/th/T7484.hs new file mode 100644 index 0000000000..b1a9cba97e --- /dev/null +++ b/testsuite/tests/th/T7484.hs @@ -0,0 +1,7 @@ +{-# LANGUAGE TemplateHaskell #-} + +module T7484 where + +import Language.Haskell.TH + +$( return [ ValD (VarP (mkName "a ")) (NormalB (LitE (IntegerL 5))) [] ] ) diff --git a/testsuite/tests/th/T7484.stderr b/testsuite/tests/th/T7484.stderr new file mode 100644 index 0000000000..3ffe123361 --- /dev/null +++ b/testsuite/tests/th/T7484.stderr @@ -0,0 +1,4 @@ + +T7484.hs:7:4: + Illegal variable name: ‘a ’ + When splicing a TH declaration: a = 5 diff --git a/testsuite/tests/th/all.T b/testsuite/tests/th/all.T index 6c7b2e5161..5109473d96 100644 --- a/testsuite/tests/th/all.T +++ b/testsuite/tests/th/all.T @@ -343,3 +343,4 @@ test('T9066', normal, compile, ['-v0']) test('T8100', normal, compile, ['-v0']) test('T9064', normal, compile, ['-v0']) test('T9209', normal, compile_fail, ['-v0']) +test('T7484', expect_broken(7484), compile_fail, ['-v0']) |