paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-25 03:50:57 +01:00
Code Issues Packages Projects Releases Wiki Activity

* ensure that the executable path used in the test is absolute

Browse Source 
(cherry picked from commit 8028a769f4)
This commit is contained in:
florian 2022-08-12 22:11:39 +02:00
parent ac28b5ad05
commit 92fc7edd7e
1 changed files with 9 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
tests/test/units/sysutils/tfileage.pp
View File

@ -1,18 +1,21 @@
uses
sysutils;
var
ExecutableName: String;
begin
if 3600*24*(now()-FileDateToDateTime(FileAge(paramstr(0))))>7200 then
ExecutableName:=ExpandFileName(paramstr(0));
if 3600*24*(now()-FileDateToDateTime(FileAge(ExecutableName)))>7200 then
begin
writeln('FileAge returns: ',FileDateToDateTime(FileAge(paramstr(0))));
writeln('Compilation time and run time differ too much, SysUtils.FileAge buggy?');
writeln('FileAge returns: ',FileDateToDateTime(FileAge(ExecutableName)));
writeln('Executable file time and run time differ too much, SysUtils.FileAge buggy?');
halt(1);
end;
{ test with relative path }
if 3600*24*(now()-FileDateToDateTime(FileAge(ExtractRelativePath(GetCurrentDir+DirectorySeparator,paramstr(0)))))>7200 then
if 3600*24*(now()-FileDateToDateTime(FileAge(ExtractRelativePath(GetCurrentDir+DirectorySeparator,ExecutableName))))>7200 then
begin
writeln('FileAge returns: ',FileDateToDateTime(FileAge(paramstr(0))));
writeln('Compilation time and run time differ too much, SysUtils.FileAge buggy?');
writeln('FileAge returns: ',FileDateToDateTime(FileAge(ExecutableName)));
writeln('Executable file time (relative path) and run time differ too much, SysUtils.FileAge buggy?');
halt(1);
end;
end.