the testsuite\runtime\parser test now generates random trees to test the parser with

1 files changed, 9 insertions, 3 deletions

diff --git a/testsuite/runtime/parser/Parse.hs b/testsuite/runtime/parser/Parse.hs
index 4d23d6b85..71697cbb9 100644
--- a/testsuite/runtime/parser/Parse.hs
+++ b/testsuite/runtime/parser/Parse.hs
@@ -3,11 +3,16 @@ import Data.Maybe
 import System.IO

 import System.CPUTime

 import Control.Monad

+import Data.Set as Set (fromList,toList)

+

+start_cat = fromJust (readType "Phr")

 

 main = do

-  pgf <- readPGF "grammar.pgf"

-  ts <- fmap (map (fromJust . readTree) . lines) $ readFile "trees.txt"

-  mapM_ (\l -> doTestLang pgf l ts) (languages pgf)

+  pgf <- readPGF "Lang.pgf"

+  trees0 <- generateRandom pgf start_cat

+  let trees = Set.toList (Set.fromList (take 5000 trees0))

+  hPutStrLn stderr ("Number of trees: "++show (length trees))

+  mapM_ (\l -> doTestLang pgf l trees) (languages pgf)

 

 doTestLang pgf l ts = do

   hPutStrLn stderr (show l)

@@ -18,6 +23,7 @@ doTestLang pgf l ts = do
 doTest pgf lang cat ss t = do

   let s = linearize pgf lang t

   putStr (s ++ " ... ")

+  hFlush stdout

   let st = initState pgf lang cat

   t1 <- getCPUTime

   res <- doParse st t1 [] (words s)