From 99677ac05d3c21cc923087089475a39feb9382b5 Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Fri, 4 Feb 2011 16:53:21 -0800 Subject: Setup.hs: Added a 5 second timeout for test cases. --- Setup.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'Setup.hs') 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 -- cgit v1.2.3