paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-23 21:11:40 +02:00
Code Issues Packages Projects Releases Wiki Activity

* patch by Nico Erfurth:

Browse Source 
Linux shows a similar behaviour as BEOS in this test. The time gets set to the
next day to around 12:00. While the problem only shows when running the
test-suite as root, it's still annoying when it happens.

git-svn-id: trunk@21434 -
This commit is contained in:
florian 2012-05-29 19:12:55 +00:00
parent 2ce563710a
commit 1403cec462
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -246,6 +246,7 @@ Begin
WriteLn(' Note: GetTime should return the same value as the previous test. '); WriteLn(' Note: GetTime should return the same value as the previous test. ');
WriteLn('----------------------------------------------------------------------'); WriteLn('----------------------------------------------------------------------');
{$ifndef beos} {$ifndef beos}
{$ifndef linux}
{This should be disabled under BeOS : maybe this is a BeOS bug (or a feature ?) {This should be disabled under BeOS : maybe this is a BeOS bug (or a feature ?)
in stime function. in stime function.
When you set 36 hours, the time AND the date are changed When you set 36 hours, the time AND the date are changed
@ -253,9 +254,12 @@ Begin
36 hours in the future from the begining of the starting day, more or less 36 hours in the future from the begining of the starting day, more or less
depending on your timezone. depending on your timezone.
For example in Paris, in summer (2 hours from GMT time zone), 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 !} this call set the clock to 14:<Minute>:<Second>:<Sec100> the next day !
Linux shows the same behaviour.
}
SetTime(36,Minute,Second,Sec100); SetTime(36,Minute,Second,Sec100);
CheckDosError(0); CheckDosError(0);
{$endif}
{$endif} {$endif}
GetTime(Hour1,Minute1,Second1,Sec1001); GetTime(Hour1,Minute1,Second1,Sec1001);
CheckDosError(0); CheckDosError(0);