t_id
262
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
522666894 | 947730 | True | False | Successfully run |
Record count: 1
{ Source provided for Free Pascal Bug Report 2043 } { Submitted by "Luis Castedo" on 2002-07-16 } { e-mail: castedo@elai.upm.es } program tb1; {$MODE TP} uses Objects; const csFName1 = 'tb1_1.tmp'; csFName2 = 'tb1_2.tmp'; var pStream1: PStream; pStream2: PStream; lAux : Longint; error : boolean; begin error := false; Write('Error checking for object streams...'); { Legal operation on pStream1 } pStream1 := New(PDosStream, Init(csFName1, stCreate)); { Faulty operation on pStream2 } pStream2 := New(PDosStream, Init(csFName2, stOpenRead)); if pStream2^.Status = stOk then error := true; { Legal operation on pStream1 } pStream1^.Write(lAux, SizeOf(lAux)); { Normally, if the values are not shared, this should be ok! } if pStream1^.Status <> stOk then error := true; pStream2^.Free; pStream1^.Free; if error then Begin WriteLn('FAILED! Errors are mixed up!'); halt(1); end else Writeln('Success!'); end. { $Log: testobj2.pp,v $ Revision 1.1 2002/10/31 12:59:11 carl * error code testing (based on bug report 2043) }