diff options
Diffstat (limited to 'testsuite/runtime/linearize')
| -rw-r--r-- | testsuite/runtime/linearize/TestCnc.gf | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/testsuite/runtime/linearize/TestCnc.gf b/testsuite/runtime/linearize/TestCnc.gf index 17de23793..025e7af34 100644 --- a/testsuite/runtime/linearize/TestCnc.gf +++ b/testsuite/runtime/linearize/TestCnc.gf @@ -1,7 +1,12 @@ concrete TestCnc of Test = {
-lincat E,P = {s:Str} ;
+param Number = Pl | Sg;
+lincat E = {s:Str; n : Number} ;
+lindef E = \s -> {s=s; n=Sg} ;
+
+lincat P = {s:Str} ;
lin Exist f = {s = "exists" ++ f.$0 ++ "such that" ++ f.s};
-lin Even x = {s = x.s ++ "is even"};
+lin Even x = {s = x.s ++ case x.n of {Sg => "is"; Pl => "are"} ++ "even"};
+
}
\ No newline at end of file |