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

* tests part of Olivier Coursier's BeOS patch

Browse Source 
git-svn-id: trunk@8397 -
This commit is contained in:
florian 2007-09-07 19:27:06 +00:00
parent bcd5fc555a
commit 834ea1bec1
10 changed files with 32 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
.gitattributes vendored
View File

@ -6413,6 +6413,10 @@ tests/test/cg/cdecl/taoc4.pp svneol=native#text/plain
tests/test/cg/cdecl/taoc5.pp svneol=native#text/plain
tests/test/cg/cdecl/taoc6.pp svneol=native#text/plain
tests/test/cg/obj/amiga/m68k/ctest.o -text
tests/test/cg/obj/beos/i386/ctest.o -text
tests/test/cg/obj/beos/i386/tcext3.o -text
tests/test/cg/obj/beos/i386/tcext4.o -text
tests/test/cg/obj/beos/i386/tcext5.o -text
tests/test/cg/obj/darwin/i386/ctest.o -text
tests/test/cg/obj/darwin/i386/tcext3.o -text
tests/test/cg/obj/darwin/i386/tcext4.o -text

BIN
tests/test/cg/obj/beos/i386/ctest.o Normal file
View File

Binary file not shown.

BIN
tests/test/cg/obj/beos/i386/tcext3.o Normal file
View File

Binary file not shown.

BIN
tests/test/cg/obj/beos/i386/tcext4.o Normal file
View File

Binary file not shown.

BIN
tests/test/cg/obj/beos/i386/tcext5.o Normal file
View File

Binary file not shown.

5
tests/test/cg/tprintf.pp
View File

@ -10,6 +10,11 @@ uses
{$define TEST_EXTENDED}
{$endif FPC_HAS_TYPE_EXTENDED}
{$ifdef beos}
{it seems that BeOS doesn't support extended...}
{$undef TEST_EXTENDED}
{$endif beos}
{$ifdef WINDOWS}
const
{$ifdef wince}

5
tests/test/cg/tprintf2.pp
View File

@ -10,6 +10,11 @@ uses
{$define TEST_EXTENDED}
{$endif FPC_HAS_TYPE_EXTENDED}
{$ifdef beos}
{it seems that BeOS doesn't support extended...}
{$undef TEST_EXTENDED}
{$endif beos}
{$ifdef WINDOWS}
const
{$ifdef wince}

5
tests/test/cg/tprintf3.pp
View File

@ -11,6 +11,11 @@ uses
{$define TEST_EXTENDED}
{$endif FPC_HAS_TYPE_EXTENDED}
{$ifdef beos}
{it seems that BeOS doesn't support extended...}
{$undef TEST_EXTENDED}
{$endif beos}
{$ifdef WINDOWS}
{ the msvcrt.dll doesn't support extended because MS-C doesn't }
{$undef TEST_EXTENDED}

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

@ -245,8 +245,18 @@ Begin
WriteLn('----------------------------------------------------------------------');
WriteLn(' Note: GetTime should return the same value as the previous test. ');
WriteLn('----------------------------------------------------------------------');
{$ifndef beos}
{This should be disabled under BeOS : maybe this is a BeOS bug (or a feature ?)
in stime function.
When you set 36 hours, the time AND the date are changed
It seems it is a valid value under BeOS, but you have jump in the future :
36 hours in the future from the begining of the starting day, more or less
depending on your timezone.
For example in Paris, in summer (2 hours from GMT time zone),
this call set the clock to 14:<Minute>:<Second>:<Sec100> the next day !}
SetTime(36,Minute,Second,Sec100);
CheckDosError(0);
{$endif}
GetTime(Hour1,Minute1,Second1,Sec1001);
CheckDosError(0);
WriteLn('HH:MIN:SEC ',Hour1,':',Minute1,':',Second1);

3
tests/utils/redir.pp
View File

@ -42,6 +42,9 @@ Interface
{$ifdef BSD}
{$define implemented}
{$endif}
{$ifdef BEOS}
{$define implemented}
{$endif}
{$ifdef macos}
{$define shell_implemented}
{$endif}