forked from GitHub/gf-core
added testsuite for the parser
This commit is contained in:
8
testsuite/runtime/parser/DummyNat.gf
Normal file
8
testsuite/runtime/parser/DummyNat.gf
Normal file
@@ -0,0 +1,8 @@
|
||||
abstract DummyNat = {
|
||||
|
||||
cat Nat ;
|
||||
fun zero : Nat ;
|
||||
succ : Nat -> Nat ;
|
||||
plus : Nat -> Nat -> Nat ;
|
||||
|
||||
}
|
||||
8
testsuite/runtime/parser/DummyNatCnc.gf
Normal file
8
testsuite/runtime/parser/DummyNatCnc.gf
Normal file
@@ -0,0 +1,8 @@
|
||||
concrete DummyNatCnc of DummyNat = {
|
||||
|
||||
lincat Nat = Str ;
|
||||
lin zero = "z" ;
|
||||
succ n = n ;
|
||||
plus m n = m ++ n ;
|
||||
|
||||
}
|
||||
3
testsuite/runtime/parser/parser.gfs
Normal file
3
testsuite/runtime/parser/parser.gfs
Normal 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"
|
||||
18
testsuite/runtime/parser/parser.gfs.gold
Normal file
18
testsuite/runtime/parser/parser.gfs.gold
Normal 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))
|
||||
|
||||
Reference in New Issue
Block a user