pascalabcnet/TestSuite/patterns/patterns-is-yield-test.pas
2019-04-26 20:30:28 +03:00

9 lines
165 B
ObjectPascal

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.