diff options
| author | David Waern <davve@dtek.chalmers.se> | 2007-12-08 21:25:49 +0000 |
|---|---|---|
| committer | David Waern <davve@dtek.chalmers.se> | 2007-12-08 21:25:49 +0000 |
| commit | a9942364d880e6fd5b83ff38bce74680df04c652 (patch) | |
| tree | 5871cd379dab3c03fd4aa46589cc85707b36ff31 /tests/runtests.hs | |
| parent | 12c7ddd2277fe0eb59356c889d2f1f099ed3342b (diff) | |
Give a diff on test failure
Diffstat (limited to 'tests/runtests.hs')
| -rw-r--r-- | tests/runtests.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/tests/runtests.hs b/tests/runtests.hs index 321938b3..d3fa71de 100644 --- a/tests/runtests.hs +++ b/tests/runtests.hs @@ -39,7 +39,8 @@ check modules = do ref <- readFile reffile if not $ haddockEq out ref then do - putStrLn $ "Output for " ++ mod ++ " has changed! Exiting." + putStrLn $ "Output for " ++ mod ++ " has changed! Exiting with diff:" + system $ "diff " ++ reffile ++ " " ++ outfile exitFailure else do putStrLn $ "Pass: " ++ mod |