sc/qa/extras/testdocuments/OnTime.fods | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-)
New commits: commit c3eae64e6ee3f2d2d61f551db5a1a7316a543b6f Author: Mike Kaganski <[email protected]> AuthorDate: Sun Nov 9 13:03:17 2025 +0500 Commit: Mike Kaganski <[email protected]> CommitDate: Sun Nov 9 10:21:19 2025 +0100 tdf#169278: improve unit test Explicitly define the type of the value passed to OnTime, to avoid unnoticed regressions, where the difference somehow gets Double type. Change-Id: If33b411b9731b12d29523c0dd4a571bf00270f5d Reviewed-on: https://gerrit.libreoffice.org/c/core/+/193650 Tested-by: Jenkins Reviewed-by: Mike Kaganski <[email protected]> diff --git a/sc/qa/extras/testdocuments/OnTime.fods b/sc/qa/extras/testdocuments/OnTime.fods index d3118827156c..4e704f53b563 100644 --- a/sc/qa/extras/testdocuments/OnTime.fods +++ b/sc/qa/extras/testdocuments/OnTime.fods @@ -10,8 +10,10 @@ Option VBASupport 1 Sub ScheduleOnTime + Dim startTime As Date ' Make start time 1 s in the past, to force minimal timer timeout: - Application.OnTime Now() - TimeSerial(0, 0, 1), "Standard.Module1.OnTime" + startTime = Now() - TimeSerial(0, 0, 1) + Application.OnTime startTime, "Standard.Module1.OnTime" End Sub Sub OnTime()
