From: John Goerzen <jgoerzen@complete.org>
Date: Tue, 12 Aug 2008 14:38:45 +0000 (-0500)
Subject: Suppress the test counter
X-Git-Url: https://code.delx.au/offlineimap/commitdiff_plain/268026d71fd9b0e127175cd380ee47cbad974bf0?hp=adf06bd04dc8dc39bc466b13a16770578fbab22d

Suppress the test counter
---

diff --git a/testsrc/TestInfrastructure.hs b/testsrc/TestInfrastructure.hs
index f5ae004..255a232 100644
--- a/testsrc/TestInfrastructure.hs
+++ b/testsrc/TestInfrastructure.hs
@@ -80,5 +80,10 @@ runVerbTestText (HU.PutText put us) t = do
          path' = HU.showPath (HU.path ss)
 
 q :: Testable a => String -> a -> HU.Test
-q = qccheck (defaultConfig {configMaxTest = 250, configMaxFail = 5000})
+q = qccheck (defaultConfig {configMaxTest = 250, configMaxFail = 10000,
+                            configEvery = \_ _ -> ""})
+    -- configEvery = testCount for displaying a running test counter
+    where testCountBase n = " (test " ++ show n ++ "/250)"
+          testCount n _ = testCountBase n ++ 
+                          replicate (length (testCountBase n)) '\b'