diff options
Diffstat (limited to 'testsuite')
| -rw-r--r-- | testsuite/runtime/parser/Parse.hs | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/testsuite/runtime/parser/Parse.hs b/testsuite/runtime/parser/Parse.hs index 4a828301d..4d23d6b85 100644 --- a/testsuite/runtime/parser/Parse.hs +++ b/testsuite/runtime/parser/Parse.hs @@ -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."
|