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

added testcases for evaluation with suspension

Browse Source
This commit is contained in:
krasimir
2009-07-07 11:40:14 +00:00
parent a25038f4d3
commit 02b22b8b78
3 changed files with 28 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
testsuite/runtime/eval/Test.gf
View File

@@ -11,6 +11,9 @@ def g2 1 x = x ;
fun g0 : Int -> Int -> Int ;
def g0 = g2 ;
fun g3 : Int -> (Int -> Int) ;
def g3 3 = g ;
fun const : Int -> Int -> Int ;
def const x _ = x ;
@@ -25,4 +28,14 @@ def dec zero = zero ;
dec (succ n) = n ;
dec n = err ; -- for fall through checking
fun plus : Nat -> Nat -> Nat ;
def plus err zero = err ;
plus m err = err ;
plus m zero = m ;
plus m (succ n) = plus (succ m) n ;
fun dec2 : Int -> Nat -> Nat ;
def dec2 0 zero = err ;
dec2 _ (succ n) = n ;
}