* adapted to MacOS

tests/test/units/dos/tdos.pp

@@ -187,14 +187,20 @@ begin
   exedir:=dir;
   TestInfo;
   TestEnvironment;
+{$ifndef macos}
+  {Since Dos.Exec is not reentrant in MacOS it cannot be tested by doTest.}
   TestExec;
+{$endif macos}
   TestDisk;
   TestFile;
 end.
 
 {
   $Log$
-  Revision 1.10  2005-02-14 17:13:37  peter
+  Revision 1.11  2005-04-03 20:56:43  olle
+    * adapted to MacOS
+
+  Revision 1.10  2005/02/14 17:13:37  peter
     * truncate log
 
 }

tests/test/units/dos/tdos2.pp

@@ -292,10 +292,14 @@ Begin
  { SO IN FPC!                                                           }
  {**********************************************************************}
  {********************** TURBO PASCAL BUG ******************************}
- Write('Opening an invalid file...');
+ Write('Assigning an invalid file...');
  Assign(f,'x');
  GetFTime(f,Time);
+{$ifndef macos}
  CheckDosError(6);
+{$else}
+ CheckDosError(2); {Since on MacOS, GetFTime works even for non-opened files}
+{$endif}
 
  Write('Trying to open ',TestFName,'...');
  Assign(f,TestFName);
@@ -664,6 +668,9 @@ var
  F: File;
  Attr : Word;
 Begin
+{$IFDEF MACOS}
+ pathTranslation:= true;
+{$ENDIF}
  TestSystemDate;
  TestSystemTime;
 
@@ -699,7 +706,10 @@ end.
 
 {
   $Log$
-  Revision 1.13  2005-02-14 17:13:37  peter
+  Revision 1.14  2005-04-03 20:56:43  olle
+    * adapted to MacOS
+
+  Revision 1.13  2005/02/14 17:13:37  peter
     * truncate log
 
 }

tests/test/units/system/tiorte.pp

@@ -369,7 +369,11 @@ begin
   { try to erase the current directory }
   write('Trying to erase current directory...');
   RmDir('.');
+{$ifndef macos}
   test(IOResult, 16);
+{$else}
+  test(IOResult, 5); {..since the system is not aware of current dir}
+{$endif}
   WriteLn(' Passed!');
   { try to erase the previous directory }
   write('Trying to erase parent directory...');
@@ -380,6 +384,9 @@ end;
 
 
 begin
+{$ifdef macos}
+  pathTranslation:= true;
+{$endif}
   test_read_text;
   test_read_typed;
   test_read_untyped;
@@ -398,7 +405,10 @@ end.
 
 {
  $Log$
- Revision 1.7  2005-02-14 17:13:37  peter
+ Revision 1.8  2005-04-03 20:53:40  olle
+   * adapted to MacOS
+
+ Revision 1.7  2005/02/14 17:13:37  peter
    * truncate log
 
 }