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

tests/lambda/src/main.ml

@@ -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";