paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-01 17:47:16 +01:00
Code Issues Packages Projects Releases Wiki Activity

* extended test

Browse Source 
* fixed error numbers
This commit is contained in:
florian 2024-06-08 11:10:56 +02:00
parent ab827e233f
commit e2ed90d40f
1 changed files with 24 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
tests/test/units/sysutils/ttrim.pp
View File

@ -20,6 +20,13 @@ procedure testtrim_ansistr;
Check(TrimRight(s)=#10#9#13' asdfA SDF'#10#9#13'asdfASDF',2);
s:=#10#9#13' asdfA SDF'#10#9#13'asdfASDF'#10#9#13' ';
Check(TrimLeft(s)='asdfA SDF'#10#9#13'asdfASDF'#10#9#13' ',3);
s:='a'#10#9#13' asdfA SDF'#10#9#13'asdfASDF'#10#9#13' A';
Check(Trim(s)=s,4);
s:='a'#10#9#13' asdfA SDF'#10#9#13'asdfASDF'#10#9#13' A';
Check(TrimRight(s)=s,5);
s:='a'#10#9#13' asdfA SDF'#10#9#13'asdfASDF'#10#9#13' A';
Check(TrimLeft(s)=s,5);
end;
@ -33,6 +40,13 @@ procedure testtrim_unicodestr;
Check(TrimRight(s)=#10#9#13' asdfA SDF'#10#9#13'asdfASDF',1002);
s:=#10#9#13' asdfA SDF'#10#9#13'asdfASDF'#10#9#13' ';
Check(TrimLeft(s)='asdfA SDF'#10#9#13'asdfASDF'#10#9#13' ',1003);
s:='a'#10#9#13' asdfA SDF'#10#9#13'asdfASDF'#10#9#13' A';
Check(Trim(s)=s,1004);
s:='a'#10#9#13' asdfA SDF'#10#9#13'asdfASDF'#10#9#13' A';
Check(TrimRight(s)=s,1005);
s:='a'#10#9#13' asdfA SDF'#10#9#13'asdfASDF'#10#9#13' A';
Check(TrimLeft(s)=s,1005);
end;
@ -41,11 +55,18 @@ procedure testtrim_widestr;
s: widestring;
begin
s:=#10#9#13' asdfA SDF'#10#9#13'asdfASDF'#10#9#13' ';
Check(Trim(s)='asdfA SDF'#10#9#13'asdfASDF',1001);
Check(Trim(s)='asdfA SDF'#10#9#13'asdfASDF',2001);
s:=#10#9#13' asdfA SDF'#10#9#13'asdfASDF'#10#9#13' ';
Check(TrimRight(s)=#10#9#13' asdfA SDF'#10#9#13'asdfASDF',1002);
Check(TrimRight(s)=#10#9#13' asdfA SDF'#10#9#13'asdfASDF',2002);
s:=#10#9#13' asdfA SDF'#10#9#13'asdfASDF'#10#9#13' ';
Check(TrimLeft(s)='asdfA SDF'#10#9#13'asdfASDF'#10#9#13' ',1003);
Check(TrimLeft(s)='asdfA SDF'#10#9#13'asdfASDF'#10#9#13' ',2003);
s:='a'#10#9#13' asdfA SDF'#10#9#13'asdfASDF'#10#9#13' A';
Check(Trim(s)=s,2004);
s:='a'#10#9#13' asdfA SDF'#10#9#13'asdfASDF'#10#9#13' A';
Check(TrimRight(s)=s,2005);
s:='a'#10#9#13' asdfA SDF'#10#9#13'asdfASDF'#10#9#13' A';
Check(TrimLeft(s)=s,2005);
end;
begin