administrator/pascalabcnet
1
0
Fork 0
Code Issues Pull requests Actions Packages Projects Releases Wiki Activity

temp change for #2852

Browse source
This commit is contained in:
Sun Serega 2023-11-07 13:58:14 +02:00
parent 49f079e7ac
commit 1d33a5eb82
1 changed files with 10 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

19
TestSuite/foreach_index1.pas
View file

@ -1,17 +1,18 @@
begin begin
var l := new List<integer>; var l := new List<integer>;
foreach var x in Arr(1,3,5) index i do foreach var x in Arr(1,3,5) index i do
begin begin
l.Add(x); l.Add(x);
l.Add(i); l.Add(i);
end; end;
Assert(l.SequenceEqual(Arr(1,0,3,1,5,2))); Assert(l.SequenceEqual(Arr(1,0,3,1,5,2)));
l := new List<integer>; l.Clear;
foreach var x in 1..3 index i do //TODO #2852
begin // foreach var x in 1..3 index i do
l.Add(x); // begin
l.Add(i); // l.Add(x);
end; // l.Add(i);
Assert(l.SequenceEqual(Arr(1,0,2,1,3,2))); // end;
// Assert(l.SequenceEqual(Arr(1,0,2,1,3,2)));
end. end.