diff options
| author | krasimir <krasimir@chalmers.se> | 2009-06-18 17:47:06 +0000 |
|---|---|---|
| committer | krasimir <krasimir@chalmers.se> | 2009-06-18 17:47:06 +0000 |
| commit | eeb08bbd4d6d6545dfdefd3a35877e0e0117c514 (patch) | |
| tree | 5ec0db9bdc097790067ef745ee1e43c534958dfe /testsuite/runtime/linearize/TestCnc.gf | |
| parent | 13232a5e8125bfcb9a3c03ec0764b41500163c76 (diff) | |
added testcase for linearization with HOAS
Diffstat (limited to 'testsuite/runtime/linearize/TestCnc.gf')
| -rw-r--r-- | testsuite/runtime/linearize/TestCnc.gf | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/testsuite/runtime/linearize/TestCnc.gf b/testsuite/runtime/linearize/TestCnc.gf new file mode 100644 index 000000000..17de23793 --- /dev/null +++ b/testsuite/runtime/linearize/TestCnc.gf @@ -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"};
+}
\ No newline at end of file |