99677ac · typeable/pandoc

git.iko.soy/typeable/pandoc

Setup.hs: Added a 5 second timeout for test cases.

commit99677ac05d3c21cc923087089475a39feb9382b5 authorJohn MacFarlane <jgm@berkeley.edu> dateFri 4 Feb 2011, 16:53 (16 years ago) parent70405ef

1 file changed+1−1

unifiedsplit

Setup.hs+1−1

@@ -40,7 +40,7 @@ runTestSuite :: Args -> Bool -> PackageDescription -> LocalBuildInfo -> IO a

4040runTestSuite args _ pkg lbi = do

4141 let testDir = buildDir lbi </> "test-pandoc"

4242 testDir' <- canonicalizePath testDir

43− let testArgs = concatMap (\arg -> ["-t",arg]) args

43+ let testArgs = "--timeout=5" : concatMap (\arg -> ["-t",arg]) args

4444 if any id [buildable (buildInfo exe) | exe <- executables pkg, exeName exe == "test-pandoc"]

4545 then inDirectory "tests" $ rawSystem (testDir' </> "test-pandoc") testArgs >>= exitWith

4646 else do