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

bugfix in the PGF typechecker and more test cases

Browse Source
This commit is contained in:
krasimir
2010-01-29 21:10:14 +00:00
parent ed446a4295
commit 9e547710f5
15 changed files with 81 additions and 53 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -22,6 +22,9 @@ cat Nat ;
data zero : Nat ;
succ : Nat -> Nat ;
err : Nat ;
fun zeroF : Nat ;
succF : Nat -> Nat ;
fun dec : Nat -> Nat ;
def dec zero = zero ;

6
testsuite/runtime/eval/eval.gfs
View File

@@ -20,6 +20,9 @@ pt -compute g0 23
pt -compute const 3.14 "pi"
pt -compute dec (succ (succ zero))
pt -compute dec (succ ?)
pt -compute dec (succ zeroF)
pt -compute dec (succF zeroF)
pt -compute dec zeroF
pt -compute <\x -> dec x : Nat -> Nat>
pt -compute dec ?
pt -compute <\f -> f 0 : (Int -> Int) -> Int> (g3 ?)
@@ -27,4 +30,5 @@ pt -compute g (g2 ? 0)
pt -compute plus (succ zero) (succ zero)
pt -compute dec2 0 (succ zero)
pt -compute dec2 0 err
pt -compute plus err (succ zero)
pt -compute plus err (succ zero)
pt -compute <\x -> dec (dec x) : Nat -> Nat>

8
testsuite/runtime/eval/eval.gfs.gold
View File

@@ -38,6 +38,12 @@ succ zero
\x -> g x
g ?1
5
@@ -54,3 +60,5 @@ dec2 0 err
f 32