t_id
373
t_adddate
2003/10/03
t_result
227
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/18 01:10:00 32 | 2024/05/18 02:02:00 0 | |
| i386 | 25 | 50.0 | 2024/05/18 01:10:00 32 | 2024/05/18 02:02:00 0 | |
| x86_64 | 22 | 44.0 | 2024/05/18 01:28:00 26 | 2024/05/18 02:01:00 0 | |
| aarch64 | 3 | 6.0 | 2024/05/18 01:29:00 34 | 2024/05/18 01:46:00 37 | |
| linux | 49 | 98.0 | 2024/05/18 01:10:00 32 | 2024/05/18 02:02:00 0 | |
| go32v2 | 1 | 2.0 | 2024/05/18 01:45:00 54 | 2024/05/18 01:45:00 54 | |
| 3.3.1 | 28 | 56.0 | 2024/05/18 01:29:00 34 | 2024/05/18 02:01:00 0 | |
| 3.2.3 | 22 | 44.0 | 2024/05/18 01:10:00 32 | 2024/05/18 02:02:00 0 |
{ %RESULT=227 }
{ Old file: tbs0150.pp }
{ Shows that the assert() macro is missing under Delphi OK 0.99.9 (PFV) }
{
bug to show that there is no assert() macro and directive
}
var B : boolean;
i : integer;
begin
b:=true;
i:=0;
// First for assert messages should not give anything.
// First two generate code, but are OK.
// second two don't generate code ($C- !)
{$c+}
assert (b);
assert (I=0);
{$c-}
assert (not(b));
assert (i<>0);
{$c+}
// This one should give the normal assert message.
assert (not(b));
// This one should give a custom assert message.
// you must uncomment the previous one to see this one.
assert (not(I=0),'Custom assert message');
end.