GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-20 08:32:50 -06:00
Code Issues Packages Projects Releases Wiki Activity

fix the testsuite failure after the second run

Browse Source
This commit is contained in:
krangelov
2021-08-31 10:20:51 +02:00
parent 5f5b0caba5
commit b1dd94e4b0
2 changed files with 5 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
src/runtime/haskell/pgf2.cabal
View File

@@ -51,4 +51,5 @@ test-suite basic
base, base,
HUnit, HUnit,
random, random,
directory,
pgf2 pgf2

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

@@ -1,4 +1,5 @@
import System.Random import System.Random
import System.Directory
import Control.Exception import Control.Exception
import Test.HUnit import Test.HUnit
import PGF2 import PGF2
@@ -69,6 +70,9 @@ main = do
,TestCase (assertEqual "unicode names 4" (Just "'а\\'б'") (fmap (showExpr []) (readExpr "'а\\'б'"))) ,TestCase (assertEqual "unicode names 4" (Just "'а\\'б'") (fmap (showExpr []) (readExpr "'а\\'б'")))
] ]
removeFile "tests/basic.ngf" `catch` \e -> do
print (e :: SomeException)
gr1 <- readPGF "tests/basic.pgf" gr1 <- readPGF "tests/basic.pgf"
gr2 <- bootNGF "tests/basic.pgf" "tests/basic.ngf" gr2 <- bootNGF "tests/basic.pgf" "tests/basic.ngf"
gr3 <- readNGF "tests/basic.ngf" gr3 <- readNGF "tests/basic.ngf"