pascalabcnet/TestSuite/patterns/patterns-is-yield-test.pas

function Y1(): sequence of integer;
begin
  if 1 is integer(var i) then 
    yield i;
end;

begin
  Assert(System.Linq.Enumerable.SequenceEqual(Seq(1), Y1));
end.
-												Add tests & semantic checks

											
										
										
											2018-05-18 18:18:38 +03:00
+								function Y1(): sequence of integer;
 								begin
-												Allow var token in match..with and require in 'is' expression

											
										
										
											2018-05-22 21:30:38 +03:00
+								  if 1 is integer(var i) then
-												Add tests & semantic checks

											
										
										
											2018-05-18 18:18:38 +03:00
+								    yield i;
 								end;
 								begin
 								  Assert(System.Linq.Enumerable.SequenceEqual(Seq(1), Y1));
 								end.