From 8199c94bfcb2f66cacb5c6a11476485f0457d239 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Wed, 20 Nov 2013 16:10:01 -0400 Subject: show current test number --- test-runner.hs | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/test-runner.hs b/test-runner.hs index e81fc90..56b118e 100644 --- a/test-runner.hs +++ b/test-runner.hs @@ -62,7 +62,9 @@ run settings go $ forM l $ \damage -> runTest settings damage >>= showTestResult settings | otherwise = - go $ replicateM (numTests settings) (runRandomTest settings) + go $ forM [1 .. numTests settings] $ \n -> do + putStrLn $ "** Test " ++ show n ++ "/" ++ show (numTests settings) + runRandomTest settings where go a = exitBool . and =<< a -- cgit v1.2.3