diff options
| author | krasimir <krasimir@chalmers.se> | 2009-05-20 20:27:19 +0000 |
|---|---|---|
| committer | krasimir <krasimir@chalmers.se> | 2009-05-20 20:27:19 +0000 |
| commit | 401dfc28d62584178c1187c92dece8dd0832dcb4 (patch) | |
| tree | d21742923e49c2cbd8b6c1a6a1f262067ed0a445 | |
| parent | 8f2fb8275049f7622e8d95abf33b48b80ad887e5 (diff) | |
some more tests for evaluation in the abstract syntax
| -rw-r--r-- | testsuite/paraphrase/lambda.gf | 17 | ||||
| -rw-r--r-- | testsuite/paraphrase/lambda.gfs | 9 | ||||
| -rw-r--r-- | testsuite/paraphrase/lambda.gfs.gold | 12 |
3 files changed, 38 insertions, 0 deletions
diff --git a/testsuite/paraphrase/lambda.gf b/testsuite/paraphrase/lambda.gf new file mode 100644 index 000000000..3476866c9 --- /dev/null +++ b/testsuite/paraphrase/lambda.gf @@ -0,0 +1,17 @@ +abstract lambda = {
+
+fun f1 : Int -> Int ;
+def f1 = (\x -> x) ;
+
+fun f2 : Int ;
+def f2 = f1 1 ;
+
+cat D ;
+data D1 : D ;
+ D2 : D ;
+
+fun d : D -> Int -> Int ;
+def d D1 = \x -> x ;
+ d D2 = \x -> 2 ;
+
+}
\ No newline at end of file diff --git a/testsuite/paraphrase/lambda.gfs b/testsuite/paraphrase/lambda.gfs new file mode 100644 index 000000000..54b0708cb --- /dev/null +++ b/testsuite/paraphrase/lambda.gfs @@ -0,0 +1,9 @@ +i testsuite/paraphrase/lambda.gf
+
+pt -compute f1
+pt -compute f2
+
+pt -compute d D1
+pt -compute d D2
+pt -compute d D1 1
+pt -compute d D2 1
diff --git a/testsuite/paraphrase/lambda.gfs.gold b/testsuite/paraphrase/lambda.gfs.gold new file mode 100644 index 000000000..0d8f027d6 --- /dev/null +++ b/testsuite/paraphrase/lambda.gfs.gold @@ -0,0 +1,12 @@ +\v0 -> v0
+
+1
+
+\v0 -> v0
+
+\v0 -> 2
+
+1
+
+2
+
|