[TESTS][LAMBDA] Add two tests

tests/lambda/src/main.ml

@@ -51,6 +51,13 @@ let tests = "CDuce runtime tests" >:::
                        match x,y : ((Int*Int)*(Int*Int)) with
                          | (a : Int,_ : Int),(b : Int,_ : Int) -> a,b)
                    .(5, 3)).(1, 4)");
+      assert_equal ~msg:"Test CDuce.runtime.misc.applier failed"
+	 ~printer:(fun x -> x) "Abstraction((Int, Int -> Int -> Int))"
+	(run_test "fun applier x : Int f : (Int->Int) : Int -> f.x");
+      assert_equal ~msg:"Test CDuce.runtime.misc.applier_applied failed"
+	 ~printer:(fun x -> x) "2"
+	(run_test "((fun applier x : Int f : (Int->Int) : Int ->
+                       f.x).2).(fun g x : Int : Int -> x)");
     );
 
     "match" >:: ( fun test_ctxt ->