[Libreoffice-commits] core.git: basic/qa

[Xisco Fauli (via logerrit)]

 basic/qa/basic_coverage/dateadd.bas |    5 +++++
 1 file changed, 5 insertions(+)

New commits:
commit c3fc5aaa654b649be9adec8904f76272cd50bb16
Author:     Xisco Fauli <xiscofauli at libreoffice.org>
AuthorDate: Wed Jul 14 17:30:01 2021 +0200
Commit:     Xisco Fauli <xiscofauli at libreoffice.org>
CommitDate: Wed Jul 14 18:15:28 2021 +0200

    tdf#114011: basic_macros: Add unittest
    
    Change-Id: Ib9a7e87b4c8159fd5fbaaaa66705cddae138fcdd
    Reviewed-on: https://gerrit.libreoffice.org/c/core/+/118942
    Tested-by: Jenkins
    Reviewed-by: Xisco Fauli <xiscofauli at libreoffice.org>

diff --git a/basic/qa/basic_coverage/dateadd.bas b/basic/qa/basic_coverage/dateadd.bas
index 84b796db3cba..409a55a9b76c 100644
--- a/basic/qa/basic_coverage/dateadd.bas
+++ b/basic/qa/basic_coverage/dateadd.bas
@@ -20,6 +20,11 @@ Sub verify_testDateAdd()
     ' tdf#117612
     TestUtil.AssertEqual(DateAdd("m", 1, "2014-01-29"), CDate("2014-02-28"), "DateAdd(""m"", 1, ""2014-01-29"")")
 
+    ' tdf#114011 Without the fix in place, this test would have failed with
+    ' returned 01/31/32767, expected 12/31/32767
+    TestUtil.AssertEqual(DateAdd("m", 1, 31012004), CDate("32767-12-31"), "DateAdd(""m"", 1, 31012004)")
+    TestUtil.AssertEqual(DateAdd("M", 1, 31012005), CDate("32767-12-31"), "DateAdd(""M"", 1, 31012005)")
+
     Exit Sub
 errorHandler:
     TestUtil.ReportErrorHandler("verify_testDateAdd", Err, Error$, Erl)