From 17f324229163d1c3bc94a154c5ca0a10dc9a036f Mon Sep 17 00:00:00 2001
From: simonpj <unknown>
Date: Wed, 29 Oct 2003 17:20:29 +0000
Subject: [PATCH] [project @ 2003-10-29 17:20:29 by simonpj] Add a TH test

---
 testsuite/tests/ghc-regress/th/TH_bracket1.hs | 7 +++++++
 testsuite/tests/ghc-regress/th/all.T          | 2 ++
 2 files changed, 9 insertions(+)
 create mode 100644 testsuite/tests/ghc-regress/th/TH_bracket1.hs

diff --git a/testsuite/tests/ghc-regress/th/TH_bracket1.hs b/testsuite/tests/ghc-regress/th/TH_bracket1.hs
new file mode 100644
index 0000000000..5547764de9
--- /dev/null
+++ b/testsuite/tests/ghc-regress/th/TH_bracket1.hs
@@ -0,0 +1,7 @@
+-- Check that declarations in a bracket shadow the top-level 
+-- declarations, rather than clashing with them.
+
+module TH_bracket1 where
+
+foo = 1
+bar = [d| foo = 1|]
diff --git a/testsuite/tests/ghc-regress/th/all.T b/testsuite/tests/ghc-regress/th/all.T
index b482f2ed86..cab43840c8 100644
--- a/testsuite/tests/ghc-regress/th/all.T
+++ b/testsuite/tests/ghc-regress/th/all.T
@@ -24,3 +24,5 @@ test('TH_spliceDecl2', normal, compile, ['-v0'])
 test('TH_spliceDecl3', normal, multimod_compile, ['TH_spliceDecl3', '-v0'])
 
 test('TH_spliceExpr1', normal, compile, ['-v0'])
+
+test('TH_bracket1', normal, compile, [''])
-- 
GitLab