paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-11 22:06:40 +02:00
Code Issues Packages Projects Releases Wiki Activity

* removing current directory should return 16

Browse Source
This commit is contained in:
carl 2002-03-09 23:17:35 +00:00
parent 829c405bbe
commit 7645e4c56b
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -367,7 +367,7 @@ begin
{ try to erase the current directory } { try to erase the current directory }
write('Trying to erase current directory...'); write('Trying to erase current directory...');
RmDir('.'); RmDir('.');
test(IOResult, 5); test(IOResult, 16);
WriteLn(' Passed!'); WriteLn(' Passed!');
{ try to erase the previous directory } { try to erase the previous directory }
write('Trying to erase parent directory...'); write('Trying to erase parent directory...');
@ -394,7 +394,10 @@ end.
{ {
$Log$ $Log$
Revision 1.3 2002-03-05 21:53:18 carl Revision 1.4 2002-03-09 23:17:35 carl
* removing current directory should return 16
Revision 1.3 2002/03/05 21:53:18 carl
+ tests on removing current directory and parent directory + tests on removing current directory and parent directory
Revision 1.2 2001/08/18 00:45:24 carl Revision 1.2 2001/08/18 00:45:24 carl