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

+ tests on removing current directory and parent directory

Browse Source
This commit is contained in:
carl 2002-03-05 21:53:18 +00:00
parent 69b7d70ca7
commit 046139f3c4
1 changed files with 14 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -364,6 +364,16 @@ begin
Erase(F); Erase(F);
test(IOResult,2); test(IOResult,2);
WriteLn(' Passed!'); WriteLn(' Passed!');
{ try to erase the current directory }
write('Trying to erase current directory...');
RmDir('.');
test(IOResult, 5);
WriteLn(' Passed!');
{ try to erase the previous directory }
write('Trying to erase parent directory...');
RmDir('..');
test(IOResult, 5);
WriteLn(' Passed!');
end; end;
@ -384,7 +394,10 @@ end.
{ {
$Log$ $Log$
Revision 1.2 2001-08-18 00:45:24 carl Revision 1.3 2002-03-05 21:53:18 carl
+ tests on removing current directory and parent directory
Revision 1.2 2001/08/18 00:45:24 carl
+ more testing + more testing
Revision 1.1 2001/05/09 21:12:36 carl Revision 1.1 2001/05/09 21:12:36 carl