diff options
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/012/lambda.tl | 12 | ||||
| -rw-r--r-- | tests/016/arith.tl | 4 |
2 files changed, 10 insertions, 6 deletions
diff --git a/tests/012/lambda.tl b/tests/012/lambda.tl index d298f59a..47b03e4b 100644 --- a/tests/012/lambda.tl +++ b/tests/012/lambda.tl @@ -19,7 +19,7 @@ [(lambda ())] nil [(lambda (a) a)] :error [(lambda (a) a) 1] 1 - [(lambda (a b) a) 1] :error + [(lambda (a b) (list a b)) 1] :error [(lambda (a b) (list a b)) 1 2] (1 2) [(lambda (a b c) (list a b c)) 1 2] :error [(lambda (a b c) (list a b c)) 1 2 3] (1 2 3)) @@ -32,11 +32,11 @@ [(lambda (: (a 1 a-p)) (list a a-p)) 2] (2 t)) (mltest - [(lambda (x : a) a)] :error - [(lambda (x : (a 1)) a)] :error - [(lambda (x : (a 1)) a) 2] 1 - [(lambda (x : (a 1 a-p)) (list a a-p))] :error - [(lambda (x : (a 1 a-p)) (list a a-p)) 2] (1 nil)) + [(lambda (x : a) (list x a))] :error + [(lambda (x : (a 1)) (list x a))] :error + [(lambda (x : (a 1)) (list x a)) 2] (2 1) + [(lambda (x : (a 1 a-p)) (list x a a-p))] :error + [(lambda (x : (a 1 a-p)) (list x a a-p)) 2] (2 1 nil)) (mltest [(lambda (x : a) (list x a)) 0] (0 nil) diff --git a/tests/016/arith.tl b/tests/016/arith.tl index 8f401463..86b5d9bb 100644 --- a/tests/016/arith.tl +++ b/tests/016/arith.tl @@ -401,3 +401,7 @@ (gcd-grind '(2 3 5 7 11 13 17 19 23)) (gcd-grind '(2 3 5 4294967291 4294967311 4294967357 4294967371)) + +(test + (build (each-prod* ((i '(b c)) (j (cons 'a i))) (add (list i j)))) + ((b a) (b b) (b c) (c a) (c b) (c c))) |