pascalabcnet/TestSuite/patterns/patterns-is-in-lambda.pas

begin
  var res := Arr(object(new List<integer>), object('asd'), object(1), object(2.0)).First(x -> x is string(var s));
  Assert(res = 'asd');
end.
-												Add tests & semantic checks

											
										
										
											2018-05-18 18:18:38 +03:00
+								begin
-												Allow var token in match..with and require in 'is' expression

											
										
										
											2018-05-22 21:30:38 +03:00
+								  var res := Arr(object(new List<integer>), object('asd'), object(1), object(2.0)).First(x -> x is string(var s));
-												Add tests & semantic checks

											
										
										
											2018-05-18 18:18:38 +03:00
+								  Assert(res = 'asd');
 								end.