paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-28 03:30:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Test for slice

Browse Source
This commit is contained in:
Michaël Van Canneyt 2024-12-18 21:14:19 +01:00
parent 73287c1fa8
commit 060c06c052
1 changed files with 41 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

41
tests/webtbf/tw41068.pp Normal file
View File

@ -0,0 +1,41 @@
program sl;
{$mode objfpc}
{$assertions on}
{$WARN 5024 off : Parameter "$1" not used}
uses
SysUtils, Classes;
var
Source, DestP, DestF: TStringList;
i, StartIdx, EndIdx: Integer;
begin
{$if declared(TMyStringsHelper)}
writeln('Using TMyStringsHelper class');
{$endif}
Source := TStringList.Create;
DestP := TStringList.Create;
try
for i := 0 to 19 do Source.Add(i.ToString);
StartIDx := 7;
EndIdx := 16;
Source.Slice(StartIdx, EndIdx, DestP);
TStrings(DestF) := Source.Slice(StartIdx, EndIdx);
Assert(DestP.Count = DestF.Count,Format('DestP.Count (%d) <> DestF.Count (%d)',[DestP.Count, DestF.Count]));
Assert(DestP.Count = EndIdx-StartIdx+1, Format('Dest.Count=%d, Expected: %d (%d-%d+1)',[DestP.Count,StartIdx-EndIdx+1,StartIdx,EndIdx]));
writeln('Dest.Count=',DestP.Count, ' [Ok]');
for i := 0 to DestP.Count-1 do
begin
Assert(DestP[i]=DestF[i],Format('Dest[%d] (%s) <> DestF[%d] (%s)',[i,DestP[i],i,DestF[i]]));
Assert((DestP[i] = (i + StartIdx).ToString),Format('Dest[%d]: Found %s, Expected: %s',[i,DestP[i],(i + StartIdx).ToString]));
writeln(i:2,': ',DestP[i]);
end;
finally
Source.Free;
DestP.Free;
DestF.Free;
end;
writeln('TStrings.Slice test: Ok');
end.