pascalabcnet/TestSuite/SeqSeq.pas

7 lines
166 B
ObjectPascal
Raw Permalink Normal View History

2020-06-29 00:25:52 +03:00
// #2079
begin
Seq&<sequence of byte>(Seq&<byte>);
var q := Seq&<sequence of byte>(Seq&<byte>,Seq&<byte>);
Assert(q.Count=2);
Assert(q.First.Count=0);
end.