Add anonymous lambda test

2021-07-05 00:26:29 -04:00 · 2021-07-05 00:26:29 -04:00 · 6ec0da6353
parent dbaf57abad
commit 6ec0da6353
1 changed files with 2 additions and 0 deletions
--- a/src/tests.sh
+++ b/src/tests.sh
@ -135,6 +135,8 @@ endBlock
 title "Lambdas"
 check "MultStmt" "(def yee (fn (a) (* 10 a))) ; (yee 5)" "50"
 check "DefinMap" "(def yee (fn (a) (* 10 a))) ; (map yee (5 10 2 (+ 12 0)))" "( 50 100 20 120 )"
+check "AnonymousLambda" "\
+  (map (fn (a) (* a a)) (5 6 7))" "( 25 36 49 )"
 check "FbnciSeq" "\
  (def fib (fn (a) \
    (if (< a 2) \