t_id
373
t_adddate
2003/10/03
t_result
227
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
950230945 | 1015714 | True | False | Successfully run |
Record count: 1
{ %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.