basic/qa/basic_coverage/dateadd.bas

   1 '
   2 ' This file is part of the LibreOffice project.
   3 '
   4 ' This Source Code Form is subject to the terms of the Mozilla Public
   5 ' License, v. 2.0. If a copy of the MPL was not distributed with this
   6 ' file, You can obtain one at http://mozilla.org/MPL/2.0/.
   7 '
   8
   9 Option Explicit
  10
  11 Function doUnitTest() As String
  12     TestUtil.TestInit
  13     verify_testDateAdd
  14     doUnitTest = TestUtil.GetResult()
  15 End Function
  16
  17 Sub verify_testDateAdd()
  18     On Error GoTo errorHandler
  19
  20     ' tdf#117612
  21     TestUtil.AssertEqual(DateAdd("m", 1, "2014-01-29"), CDate("2014-02-28"), "DateAdd(""m"", 1, ""2014-01-29"")")
  22
  23     ' tdf#114011 Without the fix in place, this test would have failed with
  24     ' returned 01/31/32767, expected 12/31/32767
  25     TestUtil.AssertEqual(DateAdd("m", 1, 31012004), CDate("32767-12-31"), "DateAdd(""m"", 1, 31012004)")
  26     TestUtil.AssertEqual(DateAdd("M", 1, 31012005), CDate("32767-12-31"), "DateAdd(""M"", 1, 31012005)")
  27
  28     Exit Sub
  29 errorHandler:
  30     TestUtil.ReportErrorHandler("verify_testDateAdd", Err, Error$, Erl)
  31 End Sub