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

added testcase for linearization with HOAS

Browse Source
This commit is contained in:
krasimir
2009-06-18 17:47:06 +00:00
parent 13232a5e81
commit eeb08bbd4d
4 changed files with 22 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
testsuite/runtime/linearize/Test.gf Normal file
View File

@@ -0,0 +1,9 @@
abstract Test = {
cat P ;
cat E ;
fun Exist : (E -> P) -> P ;
Even : E -> P ;
}

7
testsuite/runtime/linearize/TestCnc.gf Normal file
View File

@@ -0,0 +1,7 @@
concrete TestCnc of Test = {
lincat E,P = {s:Str} ;
lin Exist f = {s = "exists" ++ f.$0 ++ "such that" ++ f.s};
lin Even x = {s = x.s ++ "is even"};
}

3
testsuite/runtime/linearize/linearize.gfs Normal file
View File

@@ -0,0 +1,3 @@
i testsuite/runtime/linearize/TestCnc.gf
l Exist (\x -> Even x)

3
testsuite/runtime/linearize/linearize.gfs.gold Normal file
View File

@@ -0,0 +1,3 @@
exists x such that x is even