paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-01 04:10:40 +02:00
Code Issues Packages Projects Releases Wiki Activity

* small fixes

Browse Source
This commit is contained in:
peter 2002-04-21 18:15:55 +00:00
parent 7020d68165
commit f10653fa2c
3 changed files with 19 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
tests/tbs/tb0239.pp
View File

@ -11,6 +11,13 @@ procedure test;
var
P:PS;
Begin
p:=New(PS);
P^:='';
P^:=P^+'BLAH';
P^:=P^+' '+P^;
Writeln(P^);
Dispose(P);
New(P);
P^:='';
P^:=P^+'BLAH';

17
tests/test/units/objects/testobj.pp
View File

@ -76,13 +76,13 @@ Var Stream : TDosStream;
begin
StreamError:= @StreamErrorProcedure;
Writeln ('Writing to stream : "01234567899876543210"');
Stream.Init('Test.dat',stCreate);
Stream.Init('testobj.tmp',stCreate);
Stream.WriteStr (@S);
Stream.StrWrite (P);
Writeln ('Closing stream.');
Stream.Done;
Writeln ('Reading from stream : ');
Stream.Init('Test.dat',StOpenRead);
Stream.Init('testobj.tmp',StOpenRead);
WriteLn('After opening');
Writeln ('Reading (',S,') : ',Stream.ReadStr^);
Writeln ('Reading (',P,') : ',Stream.StrRead);
@ -90,7 +90,7 @@ begin
Stream.Done;
Writeln ('Same thing, using raw read method : ');
Writeln ('Reading from stream : ');
Stream.Init('Test.dat',StOpenRead);
Stream.Init('testobj.tmp',StOpenRead);
Stream.Read (Buf,11);
Writeln ('Reading (',S,') : ',Buf);
Stream.Read (L,2);
@ -100,7 +100,7 @@ begin
Writeln ('Closing stream.');
Stream.Done;
Writeln ('Statistics about stream : ');
Stream.Init('Test.dat',StOpenRead);
Stream.Init('testobj.tmp',StOpenRead);
Writeln ('Size : ',Stream.GetSize);
Writeln ('Position : ',Stream.GetPos);
Writeln ('Reading (',S,') : ',Stream.ReadStr^);
@ -109,21 +109,24 @@ begin
Writeln ('Closing stream.');
Stream.Done;
Writeln ('Reading from stream : ');
Stream.Init('Test.dat',StOpenRead);
Stream.Init('testobj.tmp',StOpenRead);
Writeln ('Seek to position :',L);
Stream.Seek(L);
Writeln ('Reading (',P,') : ',Stream.StrRead);
Writeln ('Closing stream.');
Stream.Done;
Writeln ('Truncating stream to zero length.');
Stream.Init('Test.dat',StOpenWrite);
Stream.Init('testobj.tmp',StOpenWrite);
Stream.Truncate;
Stream.Done;
end.
{
$Log$
Revision 1.1 2002-03-05 21:50:19 carl
Revision 1.2 2002-04-21 18:15:55 peter
* small fixes
Revision 1.1 2002/03/05 21:50:19 carl
+ objects unit testing
Revision 1.1 2001/08/13 06:00:50 carl

4
tests/webtbs/tw1908.pp
View File

@ -1,7 +1,7 @@
uses SysUtils;
{$mode objfpc}
uses SysUtils;
{$R+}
procedure x(arr : array of byte);
begin