diff --git a/tests/test/units/sysutils/tfileage.pp b/tests/test/units/sysutils/tfileage.pp index 7710082ea6..23ec862424 100644 --- a/tests/test/units/sysutils/tfileage.pp +++ b/tests/test/units/sysutils/tfileage.pp @@ -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.