diff options
| -rw-r--r-- | test-runner.hs | 4 |
1 files changed, 3 insertions, 1 deletions
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 |