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

+ more testing

Browse Source
This commit is contained in:
carl 2001-08-18 00:45:24 +00:00
parent 1f4c560e67
commit ab90785af8
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
tests/test/units/system/tiorte.pp
View File

@ -334,7 +334,6 @@ begin
ChDir('Y:\test.dir'); ChDir('Y:\test.dir');
test(IOResult,15); test(IOResult,15);
{$endif} {$endif}
(*
{ make a stub directory for testing purposes } { make a stub directory for testing purposes }
Mkdir(TMP_DIRECTORY); Mkdir(TMP_DIRECTORY);
test(IOResult,0); test(IOResult,0);
@ -353,7 +352,6 @@ begin
{ now really remove the directory } { now really remove the directory }
RmDir(TMP_DIRECTORY); RmDir(TMP_DIRECTORY);
test(IOResult,0); test(IOResult,0);
*)
{ remove non-existant directory } { remove non-existant directory }
write('Testing remove directory of non-existent file...'); write('Testing remove directory of non-existent file...');
RmDir('testdir.exe'); RmDir('testdir.exe');
@ -386,7 +384,10 @@ end.
{ {
$Log$ $Log$
Revision 1.1 2001-05-09 21:12:36 carl Revision 1.2 2001-08-18 00:45:24 carl
+ more testing
Revision 1.1 2001/05/09 21:12:36 carl
+ moved from /test/ and renamed + moved from /test/ and renamed
+ added directory service testing + added directory service testing
+ added filesize/filepos testing. + added filesize/filepos testing.