paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 23:09:18 +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; exedir:=dir;
TestInfo; TestInfo;
TestEnvironment; TestEnvironment;
{$ifndef macos}
{Since Dos.Exec is not reentrant in MacOS it cannot be tested by doTest.}
TestExec; TestExec;
{$endif macos}
TestDisk; TestDisk;
TestFile; TestFile;
end. end.
{ {
$Log$ $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 * truncate log
} }

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

@ -292,10 +292,14 @@ Begin
{ SO IN FPC! } { SO IN FPC! }
{**********************************************************************} {**********************************************************************}
{********************** TURBO PASCAL BUG ******************************} {********************** TURBO PASCAL BUG ******************************}
Write('Opening an invalid file...'); Write('Assigning an invalid file...');
Assign(f,'x'); Assign(f,'x');
GetFTime(f,Time); GetFTime(f,Time);
{$ifndef macos}
CheckDosError(6); CheckDosError(6);
{$else}
CheckDosError(2); {Since on MacOS, GetFTime works even for non-opened files}
{$endif}
Write('Trying to open ',TestFName,'...'); Write('Trying to open ',TestFName,'...');
Assign(f,TestFName); Assign(f,TestFName);
@ -664,6 +668,9 @@ var
F: File; F: File;
Attr : Word; Attr : Word;
Begin Begin
{$IFDEF MACOS}
pathTranslation:= true;
{$ENDIF}
TestSystemDate; TestSystemDate;
TestSystemTime; TestSystemTime;
@ -699,7 +706,10 @@ end.
{ {
$Log$ $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 * truncate log
} }

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

@ -369,7 +369,11 @@ 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('.');
{$ifndef macos}
test(IOResult, 16); test(IOResult, 16);
{$else}
test(IOResult, 5); {..since the system is not aware of current dir}
{$endif}
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...');
@ -380,6 +384,9 @@ end;
begin begin
{$ifdef macos}
pathTranslation:= true;
{$endif}
test_read_text; test_read_text;
test_read_typed; test_read_typed;
test_read_untyped; test_read_untyped;
@ -398,7 +405,10 @@ end.
{ {
$Log$ $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 * truncate log
} }