diff options
| author | krasimir <krasimir@chalmers.se> | 2009-08-19 22:35:57 +0000 |
|---|---|---|
| committer | krasimir <krasimir@chalmers.se> | 2009-08-19 22:35:57 +0000 |
| commit | a73273895d804e977be0c10e3ae2884d6a6d0266 (patch) | |
| tree | 0f6dbb05b404f21adc314dd18acc0210f7ab07f1 /testsuite | |
| parent | 8da1aab8fff7adae50dfa7f5f13532a2980d375d (diff) | |
the parsing test now evaluates all languages
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."
|