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

started a testsuite

Browse Source
This commit is contained in:
krangelov
2021-08-05 20:45:08 +02:00
parent 36e87668e0
commit 87f1e24384
4 changed files with 20 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
src/runtime/haskell/tests/basic.gf Normal file
View File

@@ -0,0 +1,8 @@
abstract basic = {
cat N ;
fun Z : N ;
S : N -> N ;
}

6
src/runtime/haskell/tests/basic.hs Normal file
View File

@@ -0,0 +1,6 @@
import Test.HUnit
import PGF2
main = do
gr <- readPGF "tests/basic.pgf"
runTestTTAndExit (TestCase (assertEqual "abstract names" "basic" (abstractName gr)))

BIN
src/runtime/haskell/tests/basic.pgf Normal file
View File

Binary file not shown.