diff options
author | John MacFarlane <jgm@berkeley.edu> | 2011-02-04 16:53:21 -0800 |
---|---|---|
committer | John MacFarlane <jgm@berkeley.edu> | 2011-02-04 16:53:21 -0800 |
commit | 99677ac05d3c21cc923087089475a39feb9382b5 (patch) | |
tree | 7ff300f013fe4e7b6b70629ee70d5ade31dc2683 /Setup.hs | |
parent | 70405ef98ab48e76e9cc8cdd827cb7580dacf4e6 (diff) | |
download | pandoc-99677ac05d3c21cc923087089475a39feb9382b5.tar.gz |
Setup.hs: Added a 5 second timeout for test cases.
Diffstat (limited to 'Setup.hs')
-rw-r--r-- | Setup.hs | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -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 |