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

Fix tepoch1 test

Browse Source 
git-svn-id: trunk@47297 -
This commit is contained in:
ondrej 2020-11-03 20:15:04 +00:00
parent f296bf3f2d
commit 9b5d2322b6
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
.gitattributes vendored
View File

@ -16159,7 +16159,7 @@ tests/test/units/sysutils/twstralloc.pp svneol=native#text/plain
tests/test/units/sysutils/twstrcmp.pp svneol=native#text/plain
tests/test/units/types/ttbitconverter.pp svneol=native#text/pascal
tests/test/units/ucomplex/tcsqr1.pp svneol=native#text/pascal
tests/test/units/unixutil/tepoch1.pp svneol=native#text/pascal
tests/test/units/unix/tepoch1.pp svneol=native#text/pascal
tests/test/units/variants/tcustomvariant.pp svneol=native#text/plain
tests/test/units/variants/tvararrayofintf.pp svneol=native#text/plain
tests/test/units/variants/tw26370.pp svneol=native#text/plain

4
tests/test/units/unixutil/tepoch1.pp → tests/test/units/unix/tepoch1.pp
View File

@ -1,10 +1,10 @@
{ %target=linux,freebsd,openbsd,aix,darwin,netbsd }
uses
unixutil;
unix;
var
y,m,d,h,mn,s : word;
begin
EpochToLocal(15796372693,y,m,d,h,mn,s);
EpochToUniversal(15796372693,y,m,d,h,mn,s);
if (y<>2470) or (m<>7) or (d<>26) or (h<>9) or (mn<>18) or (s<>13) then
halt(1);
EpochToLocal(LocalToEpoch(2345,12,12,4,45,49),y,m,d,h,mn,s);