Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

prop tests first, case tests second.

  • Loading branch information...
commit 95712f2e70e1fa2b163e73cd604a84aadd7dc5f8 1 parent 9137a74
@kazu-yamamoto kazu-yamamoto authored
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.
--
Please sign in to comment.
Something went wrong with that request. Please try again.