1
0
forked from GitHub/gf-core

added testsuite for the parser

This commit is contained in:
krasimir
2011-01-10 10:34:09 +00:00
parent 5d8d1999d8
commit 37d0200c7f
4 changed files with 37 additions and 0 deletions

View File

@@ -0,0 +1,8 @@
abstract DummyNat = {
cat Nat ;
fun zero : Nat ;
succ : Nat -> Nat ;
plus : Nat -> Nat -> Nat ;
}

View File

@@ -0,0 +1,8 @@
concrete DummyNatCnc of DummyNat = {
lincat Nat = Str ;
lin zero = "z" ;
succ n = n ;
plus m n = m ++ n ;
}

View File

@@ -0,0 +1,3 @@
i -src testsuite/runtime/parser/DummyNatCnc.gf
p -cat=Nat -depth=3 "z"
p -cat=Nat -depth=2 "z z"

View File

@@ -0,0 +1,18 @@
succ (succ (succ zero))
succ (succ zero)
succ zero
zero
plus (succ zero) (succ zero)
plus (succ zero) zero
plus zero (succ zero)
plus zero zero
succ (plus (succ zero) (succ zero))
succ (plus (succ zero) zero)
succ (plus zero (succ zero))
succ (plus zero zero)
succ (succ (plus (succ zero) (succ zero)))
succ (succ (plus (succ zero) zero))
succ (succ (plus zero (succ zero)))
succ (succ (plus zero zero))