From dbf360a5264d5d6597e046dcd9b4f49effa91eee Mon Sep 17 00:00:00 2001 From: Richard Eisenberg Date: Mon, 3 Nov 2014 15:33:51 -0500 Subject: Test #7484 in th/T7484 --- testsuite/tests/th/T7484.hs | 7 +++++++ testsuite/tests/th/T7484.stderr | 4 ++++ testsuite/tests/th/all.T | 1 + 3 files changed, 12 insertions(+) create mode 100644 testsuite/tests/th/T7484.hs create mode 100644 testsuite/tests/th/T7484.stderr (limited to 'testsuite') 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']) -- cgit v1.2.1