From 268026d71fd9b0e127175cd380ee47cbad974bf0 Mon Sep 17 00:00:00 2001 From: John Goerzen Date: Tue, 12 Aug 2008 09:38:45 -0500 Subject: [PATCH] Suppress the test counter --- testsrc/TestInfrastructure.hs | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) 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' -- 2.39.2