From a9942364d880e6fd5b83ff38bce74680df04c652 Mon Sep 17 00:00:00 2001 From: David Waern Date: Sat, 8 Dec 2007 21:25:49 +0000 Subject: Give a diff on test failure --- tests/runtests.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'tests/runtests.hs') 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 -- cgit v1.2.3