Test #9209 in th/T9209

6db0f6fe · eir@cis.upenn.edu · e2f78036 · 6db0f6fe · 6db0f6fe · 6db0f6fe
Commit 6db0f6fe authored Nov 03, 2014 by eir@cis.upenn.edu
Showing with 10 additions and 0 deletions

testsuite/tests/th/T9209.hs testsuite/tests/th/T9209.hs +5 -0

testsuite/tests/th/T9209.stderr testsuite/tests/th/T9209.stderr +4 -0

testsuite/tests/th/all.T testsuite/tests/th/all.T +1 -0

No files found.
--- a/testsuite/tests/th/T9209.hs
+++ b/testsuite/tests/th/T9209.hs
+{-# LANGUAGE TemplateHaskell #-}
+
+module T9209 where
+
+foo = let $( [d| x = 5 |] ) in x
--- a/testsuite/tests/th/T9209.stderr
+++ b/testsuite/tests/th/T9209.stderr
+
+T9209.hs:5:11:
+    Declaration splices are allowed only at the top level:
+      $([d| x = 5 |])
--- a/testsuite/tests/th/all.T
+++ b/testsuite/tests/th/all.T
@@ -342,3 +342,4 @@ test('T9081', normal, compile, ['-v0'])
 test('T9066', normal, compile, ['-v0'])
 test('T8100', normal, compile, ['-v0'])
 test('T9064', normal, compile, ['-v0'])
+test('T9209', expect_broken(9209), compile_fail, ['-v0'])