Commit d28447e7 by Julien Lopez

### [TESTS][LAMBDA][MINOR] Fix the two remaining tests

parent 25879ea4
 ... ... @@ -41,10 +41,13 @@ let tests_poly_abstr = [ Arrow)* ]),{}))", "fun tail x : ['A{}] : ['A{}] -> match x : ['A{}] with | (el : 'A{}) :: (rest : ['A{}]) -> rest"; "Test CDuce.runtime.poly.pair failed", "", "fun pair x : ('A{} * 'B{}) : 'A{} -> match x : ('A{} * 'B{}) with | (x : 'A{}, y : 'B{}) -> x"; "Test CDuce.runtime.poly.pair failed", "Abstraction(Dummy,,,,Sel(,((`\$A & Int | Char | Atom | (Any,Any) | <(Any) (Any)>Any | Arrow,`\$B & Int | Char | Atom | (Any,Any) | <(Any) (Any)>Any | Arrow) -> `\$A & Int | Char | Atom | (Any,Any) | <(Any) (Any)>Any | Arrow),{}))", "fun pair x : ('A{} * 'B{}) : 'A{} -> match x : ('A{} * 'B{}) with | (z : 'A{}, y : 'B{}) -> z"; "Test CDuce.runtime.poly.match_abstr failed", "", "Test CDuce.runtime.poly.match_abstr failed", "Apply(,)", "(match (fun f x : 'A{} : 'A{} -> x) : ('A{} -> 'A{}) with | y : ('A{} -> 'A{}) -> y{A/Int}).3"; ... ...
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!