[project @ 2005-05-03 11:05:36 by simonpj]

Add a test for multiple local bindings with TH

testsuite/tests/ghc-regress/rename/should_fail/all.T

@@ -43,3 +43,4 @@ test('rnfail040', normal, multimod_compile_fail, ['rnfail040', '-v0'])
 clean(['Rnfail040_A.hi', 'Rnfail040_A.o'])
 test('rnfail041', normal, compile_fail, [''])
 test('rnfail042', normal, compile_fail, [''])
+test('rnfail043', normal, compile_fail, [''])

testsuite/tests/ghc-regress/rename/should_fail/rnfail043.hs

+{-# OPTIONS -fth #-}
+
+-- Duplicate bindings introduced one at a time with TH
+module ShouldFail where
+
+f x = x
+
+$([d| h x = x |])
+
+f x = x