Browse files

prop tests first, case tests second.

  • Loading branch information...
1 parent 9137a74 commit 95712f2e70e1fa2b163e73cd604a84aadd7dc5f8 @kazu-yamamoto kazu-yamamoto committed Dec 19, 2011
Showing with 5 additions and 0 deletions.
  1. +5 −0 src/Test/Framework/TH.hs
View
5 src/Test/Framework/TH.hs
@@ -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 95712f2

Please sign in to comment.