added testsuite for the parser

This commit is contained in:
krasimir
2011-01-10 10:34:09 +00:00
parent b8c1a09896
commit 72529388bf
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))