Browse Source

Fix tepoch1 test

git-svn-id: trunk@47297 -
(cherry picked from commit 9b5d2322b6dc6a252cebb81829217c4319ed0599)
ondrej 4 years ago
parent
commit
d01e7ab86a
1 changed files with 2 additions and 2 deletions
  1. 2 2
      tests/test/units/unix/tepoch1.pp

+ 2 - 2
tests/test/units/unixutil/tepoch1.pp → tests/test/units/unix/tepoch1.pp

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