t_id
262
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
| tr_id | run | tr_ok | tr_skip | tr_result |
|---|---|---|---|---|
| 443837660 | 934995 | 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)
}