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

* adapted to MacOS

Browse Source
This commit is contained in:
olle 2005-04-03 20:53:40 +00:00
parent d18746bd15
commit 6bd45d5251
3 changed files with 30 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
tests/test/units/dos/tdos.pp
View File

@ -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
}

14
tests/test/units/dos/tdos2.pp
View File

@ -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
}

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

@ -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
}