tests: add test for lambda calls

Author: leostera

tests/compiler/expressions.t/apply.ml

@@ -24,3 +24,11 @@ let run () =
   f3 1 2 3;
   f4 1 2 3 4;
   Funs.apply_fun ()
+
+let lambda () =
+  let f () = 1 in
+  let f' x = 1 + x in
+  let f'' x y = 1 + x + y in
+  let _ = f () in
+  let _ = f' 1 in
+  f'' 1 2

tests/compiler/expressions.t/run.t

@@ -48,6 +48,7 @@
   -export([f2/2]).
   -export([f3/3]).
   -export([f4/4]).
+  -export([lambda/0]).
   -export([run/0]).
 
   -spec f(any()) -> any().
@@ -73,6 +74,21 @@
     f4(1, 2, 3, 4),
     apply__funs:apply_fun().
 
+  -spec lambda() -> integer().
+  lambda() ->
+    F = fun
+    () -> 1
+  end,
+    F_prime = fun
+    (X) -> erlang:'+'(1, X)
+  end,
+    F_prime_prime = fun
+    (X, Y) -> erlang:'+'(erlang:'+'(1, X), Y)
+  end,
+    F(),
+    F_prime(1),
+    F_prime_prime(1, 2).
+  
 
   $ caramelc compile binding_on_match.ml
   File "binding_on_match.ml", line 4, characters 57-68: