summaryrefslogtreecommitdiff
path: root/tests/Roundtrip.hs
diff options
context:
space:
mode:
authorAlanZimmerman <>2018-03-11 10:47:00 (GMT)
committerhdiff <hdiff@hdiff.luite.com>2018-03-11 10:47:00 (GMT)
commitb6934f22d6668ed1ee60bca7a5382e4288426984 (patch)
tree07b8df6824dde2367389b893823a9860bb7a2dde /tests/Roundtrip.hs
parentce330ddf61c1499bd4de7b358965523ce2943248 (diff)
version 0.5.6.10.5.6.1
Diffstat (limited to 'tests/Roundtrip.hs')
-rw-r--r--tests/Roundtrip.hs6
1 files changed, 4 insertions, 2 deletions
diff --git a/tests/Roundtrip.hs b/tests/Roundtrip.hs
index ffab633..e16ac8b 100644
--- a/tests/Roundtrip.hs
+++ b/tests/Roundtrip.hs
@@ -13,7 +13,7 @@ import System.Environment
import System.Exit
import System.FilePath
import System.IO
-import System.IO.Temp
+-- import System.IO.Temp
import Test.Common
import Test.CommonUtils
import Test.HUnit
@@ -31,6 +31,7 @@ verb = Debug
writeCPP :: FilePath -> IO ()
writeCPP fp = appendFileFlush cppFile (('\n' : fp))
+writeError :: FilePath -> IO ()
writeError = writeCPP
writeParseFail :: FilePath -> String -> IO ()
@@ -62,6 +63,7 @@ appendFileFlush f txt = withFile f AppendMode (\ hdl -> hPutStr hdl txt >> hFlus
-- ---------------------------------------------------------------------
+readFileIfPresent :: FilePath -> IO [String]
readFileIfPresent fileName = do
isPresent <- doesFileExist fileName
if isPresent
@@ -100,7 +102,7 @@ main = do
!parseFailList <- lines <$> readFile parseFailFile
let done = S.fromList (processedList ++ cppList ++ blackList ++ knownFailures ++ parseFailList)
tsts <- TestList <$> mapM (tests done) ds
- runTests tsts
+ _ <- runTests tsts
return ()
runTests :: Test -> IO Counts