GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-20 08:32:50 -06:00
Code Issues Packages Projects Releases Wiki Activity

testsuite: reduced the number of failing tests from 25 to 13

Browse Source 
Some tests may fail on Windows because of \ instead of / in paths.
This commit is contained in:
hallgren
2013-12-06 16:01:13 +00:00
parent a98f4aa4be
commit 953c6e8fb5
14 changed files with 73 additions and 72 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
testsuite/run.hs
View File

@@ -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<cnt
putStrLn $ show ok++"/"++show cnt++ " passed/tests"
@@ -24,15 +24,15 @@ main =
"<!DOCTYPE html>\n"
++ "<meta charset=\"UTF-8\">\n"
++ "<style>\n"
++ "pre { max-width: 500px; overflow: scroll; }\n"
++ "pre { max-width: 600px; overflow: scroll; }\n"
++ "th,td { vertical-align: top; text-align: left; }\n"
++ "</style>\n"
++ "<table border=1>\n<tr><th>Result<th>Input<th>Gold<th>Output\n"
++ unlines (map testToHTML res)
++ "</table>\n"
testToHTML (res,(input,gold,output)) =
"<tr>"++concatMap (td.pre) [res,input,gold,output]
testToHTML (in_file,(res,(input,gold,output))) =
"<tr>"++concatMap td [pre res,in_file++":\n"++pre input,pre gold,pre output]
pre s = "<pre>"++s++"</pre>"
td s = "<td>"++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