Add a test TH_sections for trac #2956

a8152ea9 · Ian Lynagh · c6b18fed · a8152ea9 · a8152ea9
Commit a8152ea9 authored Jan 21, 2009 by Ian Lynagh
Showing with 14 additions and 0 deletions

testsuite/tests/ghc-regress/th/TH_sections.hs testsuite/tests/ghc-regress/th/TH_sections.hs +11 -0

testsuite/tests/ghc-regress/th/all.T testsuite/tests/ghc-regress/th/all.T +3 -0

No files found.
--- a/testsuite/tests/ghc-regress/th/TH_sections.hs
+++ b/testsuite/tests/ghc-regress/th/TH_sections.hs
+
+-- Test for trac #2956
+
+module TH_sections where
+
+two :: Int
+two = $( [| (1 +) 1 |] )
+
+three :: Int
+three = $( [| (+ 2) 1 |] )
+
--- a/testsuite/tests/ghc-regress/th/all.T
+++ b/testsuite/tests/ghc-regress/th/all.T
@@ -130,3 +130,6 @@ test('T2386', extra_clean(['T2386_Lib.hi', 'T2386_Lib.o']),

 test('T2685', extra_clean(['T2685a.hi','T2685a.o']), 
              multimod_compile, ['T2685','-v0'])
+
+test('TH_sections', normal, compile, ['-v0'])
+