t_id
1222
t_adddate
2004/01/02
t_result
0
t_knownrunerror
0
Record count: 50
Total = 50
OK=50 Percentage= 100.00
Result type | Cat. | Count | Percentage | First date | Last Date |
Successfully run | 50 | 100.0 | 2024/05/17 23:52:00 41 | 2024/05/18 01:32:00 24 | |
i386 | 39 | 78.0 | 2024/05/18 00:21:00 24 | 2024/05/18 01:32:00 24 | |
sparc | 1 | 2.0 | 2024/05/17 23:52:00 41 | 2024/05/17 23:52:00 41 | |
x86_64 | 6 | 12.0 | 2024/05/18 00:21:00 30 | 2024/05/18 01:32:00 15 | |
powerpc64 | 2 | 4.0 | 2024/05/18 01:09:00 101 | 2024/05/18 01:11:00 108 | |
aarch64 | 2 | 4.0 | 2024/05/18 00:11:00 33 | 2024/05/18 00:52:00 35 | |
linux | 45 | 90.0 | 2024/05/18 00:11:00 33 | 2024/05/18 01:32:00 24 | |
win32 | 1 | 2.0 | 2024/05/18 00:21:00 24 | 2024/05/18 00:21:00 24 | |
solaris | 4 | 8.0 | 2024/05/17 23:52:00 41 | 2024/05/18 00:34:00 30 | |
3.3.1 | 24 | 48.0 | 2024/05/18 00:11:00 33 | 2024/05/18 01:32:00 24 | |
3.2.3 | 26 | 52.0 | 2024/05/17 23:52:00 41 | 2024/05/18 01:31:00 26 |
{ Basic test suite for the strings unit } Program TStrings1; uses strings; procedure failed; begin writeln('Failed.'); halt(1); end; procedure teststrlen; Const P1 : PChar = ''; P2 : PChar = 'This is a constant pchar string'; begin if strlen(P1)<>0 then failed; if strlen(P2)<>31 then failed; end; procedure teststrcomp; Const P1 : PChar = 'This is the first string.'; P2 : PCHar = 'This is the second string.'; P3 : PChar = 'This is the first string.'; begin If StrComp (P1,P2)=0 then failed; If StrComp (P1,P3)<>0 then failed; If StrComp (P1,P2)>0 then failed; If StrComp (P2,P1)<0 then failed; end; procedure teststrpas; Const P1 : PChar = 'This is a PCHAR string'; P2 : PChar = ''; var S : string; begin S:=StrPas(P1); if S<>'This is a PCHAR string' then failed; S:=StrPas(P2); if S<>'' then failed; end; procedure teststrlcomp; Const P1 : PChar = 'This is the first string.'; P2 : PCHar = 'This is the second string.'; P3 : PChar = 'This is the first string.'; Var L : Longint; begin L:=1; While StrLComp(P1,P2,L)=0 do inc (L); if L<>13 then failed; If StrLComp (P1,P2,255)=0 then failed; If StrLComp (P1,P3,100)<>0 then failed; If StrLComp (P1,P2,65535)>0 then failed; If StrLComp (P2,P1,12341234)<0 then failed; end; procedure teststrpcopy; Const S1 = 'This is a normal string.'; S2 = ''; Var P : array[0..255] of char; begin if StrPCopy(P,S1)<>P then failed; if StrComp(P,S1)<>0 then failed; if StrPCopy(P,S2)<>P then failed; if StrComp(P,S2)<>0 then failed; end; procedure teststrend; Const P : PChar = 'This is a PCHAR string.'; begin If StrEnd(P)-P<>23 then failed; end; procedure teststrcopy; Const P1 : PChar = 'This a test string 012345678901234567890123456789012345678901234567890123456789'; P2 : PChar = ''; var Buf : array[0..255] of char; begin if StrCopy(Buf,P1)<>Buf then failed; if StrComp(Buf,P1)<>0 then failed; if StrCopy(Buf,P2)<>Buf then failed; if StrComp(Buf,P2)<>0 then failed; end; procedure teststrscanstrrscan; Const P : PChar = 'This is a PCHAR string.'; S : Char = 's' ; begin if StrComp(StrScan(P,s),'s is a PCHAR string.')<>0 then failed; if StrComp(StrRScan(P,s),'string.')<>0 then failed; end; begin write('Testing strlen ... '); teststrlen; writeln('Success.'); write('Testing strcomp ... '); teststrcomp; writeln('Success.'); write('Testing strlcomp ... '); teststrlcomp; writeln('Success.'); write('Testing strpas ... '); teststrpas; writeln('Success.'); write('Testing strcopy ... '); teststrcopy; writeln('Success.'); write('Testing strpcopy ... '); teststrpcopy; writeln('Success.'); write('Testing strend ... '); teststrend; writeln('Success.'); write('Testing strscan/strrscan ... '); teststrscanstrrscan; writeln('Success.'); end.