prop tests first, case tests second.

finnsson · Dec 19, 2011 · 95712f2 · 95712f2
1 parent 9137a74
commit 95712f2
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/src/Test/Framework/TH.hs b/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.
 --