t_id
244
t_adddate
2003/10/03
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/09/26 18:42:00 90 | 2024/09/26 23:02:00 44 | |
i386 | 4 | 8.0 | 2024/09/26 19:54:00 70 | 2024/09/26 22:38:00 79 | |
powerpc | 14 | 28.0 | 2024/09/26 19:41:00 35 | 2024/09/26 23:02:00 44 | |
powerpc64 | 17 | 34.0 | 2024/09/26 18:42:00 90 | 2024/09/26 22:29:00 103 | |
wasm32 | 7 | 14.0 | 2024/09/26 19:31:00 339 | 2024/09/26 22:50:00 299 | |
riscv64 | 8 | 16.0 | 2024/09/26 19:14:00 123 | 2024/09/26 19:59:00 123 | |
linux | 39 | 78.0 | 2024/09/26 18:42:00 90 | 2024/09/26 23:02:00 44 | |
go32v2 | 4 | 8.0 | 2024/09/26 19:54:00 70 | 2024/09/26 22:38:00 79 | |
wasi | 7 | 14.0 | 2024/09/26 19:31:00 339 | 2024/09/26 22:50:00 299 | |
3.3.1 | 34 | 68.0 | 2024/09/26 18:42:00 90 | 2024/09/26 22:50:00 299 | |
3.2.3 | 16 | 32.0 | 2024/09/26 21:17:00 71 | 2024/09/26 23:02:00 44 |
{ Program to test system unit setstring routines Tested against Delphi 3 and (where possible) against Borland Pascal v7.01 Copyright (c) 2002 Carl Eric Codere } { second version compiled with $H+ } program tsetstr; {$R+} {$Q+} {$APPTYPE CONSOLE} {$H+} {$ifdef fpc} {$ifndef ver1_0} {$define haswidestring} {$endif} {$else} {$ifndef ver70} {$define haswidestring} {$endif} {$endif} {$ifdef fpc} uses strings; {$else} uses sysutils; {$endif} const HELLO_STRING = 'Hello my little world!'; PCHAR_NULL = nil; PCHAR_EMPTY : pchar = #0; PCHAR_NORMAL : pchar = HELLO_STRING; var arr: array[0..255] of byte; str1 : shortstring; str2 : ansistring; {$ifdef haswidestring} str3 : widestring; {$endif} procedure fail; begin WriteLn('Failed!'); Halt(1); end; procedure test_shortstring; var i: longint; _failed : boolean; begin _failed := false; write('Testing setstring() with shortstring...'); { buffer : pchar with #0 character } { pchar = nil } { pchar = valid value } str1:=''; setstring(str1, PCHAR_NULL, 0); if str1 <> '' then _failed := true; str1:=''; setstring(str1,PCHAR_EMPTY,strlen(PCHAR_EMPTY)); if str1 <> '' then _failed := true; setstring(str1,PCHAR_NORMAL,strlen(PCHAR_NORMAL)); if str1 <> HELLO_STRING then _failed := true; { len = 0, len = normal length, len > 255 } str1:=''; setstring(str1, PCHAR_NORMAL, 0); if str1 <> '' then _failed := true; str1:=''; fillchar(arr,sizeof(arr),'a'); setstring(str1,@arr[0],512); if length(str1) <> 255 then _failed := true; for i := 1 to length(str1) do if str1[i] <> 'a' then _failed := true; str1:=''; setstring(str1,PCHAR_NORMAL,strlen(PCHAR_NORMAL)); if str1 <> HELLO_STRING then _failed := true; if _failed then fail; writeln('Passed!'); end; procedure test_ansistring; var _failed : boolean; begin _failed := false; write('Testing setstring() with ansistring...'); { buffer : pchar with #0 character } { pchar = nil } { pchar = valid value } str2:=''; setstring(str2, PCHAR_NULL, 0); if str2 <> '' then _failed := true; str2:=''; setstring(str2,PCHAR_EMPTY,strlen(PCHAR_EMPTY)); if str2 <> '' then _failed := true; setstring(str2,PCHAR_NORMAL,strlen(PCHAR_NORMAL)); if str2 <> HELLO_STRING then _failed := true; { len = 0, len = normal length, len > 255 } str2:=''; setstring(str2, PCHAR_NORMAL, 0); if str2 <> '' then _failed := true; str2:=''; setstring(str2,PCHAR_NORMAL,strlen(PCHAR_NORMAL)); if str2 <> HELLO_STRING then _failed := true; if _failed then fail; writeln('Passed!'); end; {$ifdef haswidestring} procedure test_widestring; var _failed : boolean; begin _failed := false; write('Testing setstring() with widestring...'); { buffer : pchar with #0 character } { pchar = nil } { pchar = valid value } str3:=''; setstring(str3, PCHAR_NULL, 0); if str3 <> '' then _failed := true; str3:=''; setstring(str3,PCHAR_EMPTY,strlen(PCHAR_EMPTY)); if str3 <> '' then _failed := true; setstring(str3,PCHAR_NORMAL,strlen(PCHAR_NORMAL)); if str3 <> HELLO_STRING then _failed := true; { len = 0, len = normal length, len > 255 } str3:=''; setstring(str3, PCHAR_NORMAL, 0); if str3 <> '' then _failed := true; str3:=''; setstring(str3,PCHAR_NORMAL,strlen(PCHAR_NORMAL)); if str3 <> HELLO_STRING then _failed := true; if _failed then fail; writeln('Passed!'); end; {$endif} Begin test_shortstring; test_ansistring; {$ifdef haswidestring} test_widestring; {$endif} end. { $Log: tsetstr2.pp,v $ Revision 1.2 2003/03/04 18:19:48 jonas * adapted tests to fixed implementation Revision 1.1 2002/10/21 09:02:25 pierre * tsetstr.pp duplicated with $H+ Revision 1.1 2002/10/20 11:44:15 carl + setstring testing * args checking is not interactive + zero and negative length checking for move/fillchar }