Commit a08b6a2d authored by Julien Lopez's avatar Julien Lopez
Browse files

[TESTS][LAMBDA] Add two tests

parent 09152eed
......@@ -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 ->
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment