pascalabcnet/TestSuite/patterns-is-yield-test.pas
2018-05-22 21:30:38 +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.