From 953c6e8fb5a1884e36df59d4a7fc04460dd87153 Mon Sep 17 00:00:00 2001 From: hallgren Date: Fri, 6 Dec 2013 16:01:13 +0000 Subject: testsuite: reduced the number of failing tests from 25 to 13 Some tests may fail on Windows because of \ instead of / in paths. --- testsuite/run.hs | 13 +++++++------ 1 file changed, 7 insertions(+), 6 deletions(-) (limited to 'testsuite/run.hs') diff --git a/testsuite/run.hs b/testsuite/run.hs index 1f671eabf..71af1e403 100644 --- a/testsuite/run.hs +++ b/testsuite/run.hs @@ -9,7 +9,7 @@ import System.Exit(exitSuccess,exitFailure) main = do res <- walk "testsuite" let cnt = length res - (good,bad) = partition ((=="OK").fst) res + (good,bad) = partition ((=="OK").fst.snd) res ok = length good fail = ok\n" ++ "\n" ++ "\n
ResultInputGoldOutput\n" ++ unlines (map testToHTML res) ++ "
\n" - testToHTML (res,(input,gold,output)) = - ""++concatMap (td.pre) [res,input,gold,output] + testToHTML (in_file,(res,(input,gold,output))) = + ""++concatMap td [pre res,in_file++":\n"++pre input,pre gold,pre output] pre s = "
"++s++"
" td s = ""++s @@ -45,9 +45,10 @@ main = then do let in_file = fpath gold_file = fpath <.> ".gold" out_file = fpath <.> ".out" + putStr $ in_file++": "; hFlush stdout res <- runTest in_file out_file gold_file - putStrLn $ fst res++": "++in_file - return [res] + putStrLn $ fst res + return [(in_file,res)] else return [] else walk fpath -- cgit v1.2.3