msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

added testcases for abstract syntax computation

Browse Source
This commit is contained in:
krasimir
2009-05-20 15:01:52 +00:00
parent 9a3576c1d2
commit 4a2b219921
2 changed files with 16 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
testsuite/paraphrase/Nat.gf
View File

@@ -26,4 +26,9 @@ def four = twice (twice one) ;
fun exp : Nat -> Nat ; fun exp : Nat -> Nat ;
def exp Zero = one ; def exp Zero = one ;
def exp (Succ x) = twice (exp x) ; def exp (Succ x) = twice (exp x) ;
fun plus' : Nat -> Nat -> Nat ;
def plus' Zero = \y -> y ;
def plus' (Succ x) = \y -> Succ (plus x y) ;
} }

11
testsuite/paraphrase/test.gfs.gold Normal file
View File

@@ -0,0 +1,11 @@
Succ (Succ Zero)
Succ (Succ (Succ Zero))
Succ (Succ Zero)