From 99677ac05d3c21cc923087089475a39feb9382b5 Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Fri, 4 Feb 2011 16:53:21 -0800
Subject: [PATCH] Setup.hs: Added a 5 second timeout for test cases.
---
Setup.hs | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/Setup.hs b/Setup.hs
index e942b0da2..056987e84 100644
--- a/Setup.hs
+++ b/Setup.hs
@@ -40,7 +40,7 @@ runTestSuite :: Args -> Bool -> PackageDescription -> LocalBuildInfo -> IO a
runTestSuite args _ pkg lbi = do
let testDir = buildDir lbi </> "test-pandoc"
testDir' <- canonicalizePath testDir
- let testArgs = concatMap (\arg -> ["-t",arg]) args
+ let testArgs = "--timeout=5" : concatMap (\arg -> ["-t",arg]) args
if any id [buildable (buildInfo exe) | exe <- executables pkg, exeName exe == "test-pandoc"]
then inDirectory "tests" $ rawSystem (testDir' </> "test-pandoc") testArgs >>= exitWith
else do