From 9b5d2322b6dc6a252cebb81829217c4319ed0599 Mon Sep 17 00:00:00 2001
From: ondrej <ondrej@idefix.freepascal.org>
Date: Tue, 3 Nov 2020 20:15:04 +0000
Subject: [PATCH] Fix tepoch1 test
git-svn-id: trunk@47297 -
---
.gitattributes | 2 +-
tests/test/units/{unixutil => unix}/tepoch1.pp | 4 ++--
2 files changed, 3 insertions(+), 3 deletions(-)
rename tests/test/units/{unixutil => unix}/tepoch1.pp (86%)
diff --git a/.gitattributes b/.gitattributes
index 748a86af79..cee4edb3f5 100644
--- a/.gitattributes
+++ b/.gitattributes
@@ -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
diff --git a/tests/test/units/unixutil/tepoch1.pp b/tests/test/units/unix/tepoch1.pp
similarity index 86%
rename from tests/test/units/unixutil/tepoch1.pp
rename to tests/test/units/unix/tepoch1.pp
index d4113cd0cd..7b2d03543f 100644
--- a/tests/test/units/unixutil/tepoch1.pp
+++ b/tests/test/units/unix/tepoch1.pp
@@ -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);