Permalink
Browse files

Merge pull request #6 from kazu-yamamoto/master

defaultMainGenerator2

Sorry for the super-late merge. I've totally missed I had forgot to merge.
  • Loading branch information...
2 parents 9137a74 + 95712f2 commit 2a52a708aaf44724c49a76f57531fcea49a1de55 @finnsson committed Nov 17, 2012
Showing with 5 additions and 0 deletions.
  1. +5 −0 src/Test/Framework/TH.hs
View
@@ -14,6 +14,7 @@
module Test.Framework.TH (
defaultMainGenerator,
+ defaultMainGenerator2,
testGroupGenerator
) where
import Language.Haskell.TH
@@ -61,6 +62,10 @@ defaultMainGenerator :: ExpQ
defaultMainGenerator =
[| defaultMain [ testGroup $(locationModule) $ $(propListGenerator) ++ $(caseListGenerator) ] |]
+defaultMainGenerator2 :: ExpQ
+defaultMainGenerator2 =
+ [| defaultMain [ testGroup $(locationModule) $ $(caseListGenerator) ++ $(propListGenerator) ] |]
+
-- | Generate the usual code and extract the usual functions needed for a testGroup in HUnit/Quickcheck/Quickcheck2.
-- All functions beginning with case_ or prop_ will be extracted.
--

0 comments on commit 2a52a70

Please sign in to comment.