pascalabcnet/TestSuite/generics45.pas
Ivan Bondarev 16274ab958 fix #2105
fix #1645
2021-01-10 18:21:39 +01:00

9 lines
287 B
ObjectPascal

begin
var s: sequence of integer := Arr(3,2,1).AsEnumerable();
var e: IEnumerator<integer> := s.OrderBy(b->b).GetEnumerator;
e.MoveNext();
assert(e.Current = 1);
var e2: IEnumerator<integer> := s.OrderBy(b->b).GetEnumerator();
e2.MoveNext();
assert(e2.Current = 1);
end.