msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

the parsing test now evaluates all languages

Browse Source
This commit is contained in:
krasimir
2009-08-19 22:35:57 +00:00
parent 8da1aab8ff
commit a73273895d
1 changed files with 5 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
testsuite/runtime/parser/Parse.hs
View File

@@ -7,7 +7,11 @@ import Control.Monad
main = do
pgf <- readPGF "grammar.pgf"
ts <- fmap (map (fromJust . readTree) . lines) $ readFile "trees.txt"
ss <- foldM (doTest pgf (mkCId "LangGer") (fromJust (readType "Phr"))) [] ts
mapM_ (\l -> doTestLang pgf l ts) (languages pgf)
doTestLang pgf l ts = do
hPutStrLn stderr (show l)
ss <- foldM (doTest pgf l (fromJust (readType "Phr"))) [] ts
mapM_ (hPutStrLn stderr . show) [(fromIntegral s / fromIntegral n)/1000000000 | (s,n) <- ss]
putStrLn "Done."