paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-19 13:59:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

* use .tmp as extension so it gets cleaned

Browse Source
This commit is contained in:
peter 2001-07-30 22:09:34 +00:00
parent a8a4c9a0e6
commit 7002745651
1 changed files with 12 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
tests/test/units/system/tio.pp
View File

@ -8,31 +8,31 @@
{ do_seek() }
{ do_truncate() }
{ This routine overwrites/creates a filename called test.dat }
{ This routine overwrites/creates a filename called test.tmp }
{ fills it up with values, checks its file size, reads the }
{ data back in, }
Program tio;
const
FILE_NAME = 'test.dat';
FILE_NAME2 = 'test1.dat';
FILE_NAME = 'test.tmp';
FILE_NAME2 = 'test1.tmp';
DATA_SIZE = 17;
DATA: array[1..DATA_SIZE] of byte =
DATA: array[1..tmpA_SIZE] of byte =
($01,$02,$03,$04,$05,$06,$07,$08,
$09,$A,$B,$C,$D,$E,$F,$10,
$11
);
{$I+}
var
F: File;
I: Integer;
b: byte;
readData : array[1..DATA_SIZE] of byte;
readData : array[1..tmpA_SIZE] of byte;
BytesRead, BytesWritten : word;
Begin
{------------------------ create and play with a new file --------------------------}
@ -96,14 +96,17 @@ Begin
Close(F);
Assign(F,FILE_NAME2);
WriteLn('renaming file...');
ReName(F,'test3.dat');
ReName(F,'test3.tmp');
WriteLn('erasing file....');
Erase(F);
end.
{
$Log$
Revision 1.1 2001-07-14 04:25:00 carl
Revision 1.2 2001-07-30 22:09:34 peter
* use .tmp as extension so it gets cleaned
Revision 1.1 2001/07/14 04:25:00 carl
system unit testing : basic I/O
}