+ tests on removing current directory and parent directory

tests/test/units/system/tiorte.pp

@@ -364,6 +364,16 @@ begin
   Erase(F);
   test(IOResult,2);
   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;
 
 
@@ -384,7 +394,10 @@ end.
 
 {
  $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
 
  Revision 1.1  2001/05/09 21:12:36  carl