GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-30 14:52:51 -06:00
Code Issues Packages Projects Releases Wiki Activity

added test case for showPGF

Browse Source
This commit is contained in:
krangelov
2021-11-18 13:55:57 +01:00
parent 06980404a9
commit f8fb64a53e
2 changed files with 40 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src/runtime/haskell/tests/basic.hs
View File

@@ -6,6 +6,7 @@ import PGF2
main = do
g <- newStdGen
let
limit = 10 ^ 100
ns = take 5000 (randomRs (-limit,limit) g)
@@ -79,6 +80,7 @@ main = do
gr1 <- readPGF "tests/basic.pgf"
gr2 <- bootNGF "tests/basic.pgf" "tests/basic.ngf"
gr3 <- readNGF "tests/basic.ngf"
pmcfg <- readFile "tests/basic.pmcfg"
rp1 <- testLoadFailure (readPGF "non-existing.pgf")
rp2 <- testLoadFailure (readPGF "tests/basic.gf")
@@ -103,6 +105,8 @@ main = do
,TestCase (assertBool "wrong file format (GF)" rn2)
,TestCase (assertBool "wrong file format (PGF)" rn3)
,TestCase (assertEqual "show pgf" (init pmcfg) (showPGF gr1))
]
++ grammarTests gr1
++ grammarTests gr2