diff options
| author | Joey Hess <joey@kitenet.net> | 2013-11-20 16:10:01 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2013-11-20 16:10:01 -0400 |
| commit | 8199c94bfcb2f66cacb5c6a11476485f0457d239 (patch) | |
| tree | ffd33f9f408cbf5feeb93a638fc1e1d54e146598 | |
| parent | ea8b6cdf35d2993a06d2ad546c8347bbab4410a0 (diff) | |
| download | git-repair-8199c94bfcb2f66cacb5c6a11476485f0457d239.tar.gz | |
show current test number
| -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 |