forked from GitHub/gf-core
some more tests for evaluation in the abstract syntax
This commit is contained in:
17
testsuite/paraphrase/lambda.gf
Normal file
17
testsuite/paraphrase/lambda.gf
Normal file
@@ -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 ;
|
||||||
|
|
||||||
|
}
|
||||||
9
testsuite/paraphrase/lambda.gfs
Normal file
9
testsuite/paraphrase/lambda.gfs
Normal file
@@ -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
|
||||||
12
testsuite/paraphrase/lambda.gfs.gold
Normal file
12
testsuite/paraphrase/lambda.gfs.gold
Normal file
@@ -0,0 +1,12 @@
|
|||||||
|
\v0 -> v0
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
1
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
\v0 -> v0
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
Reference in New Issue
Block a user