2 ' This file is part of the LibreOffice project.
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/.
12 Function doUnitTest() As String
15 doUnitTest
= TestUtil
.GetResult()
19 On Error GoTo errorHandler
21 TestUtil
.AssertEqual(Year("12/2/1969"), 1969, "Year(""12/2/1969"")")
22 TestUtil
.AssertEqual(Year(256), 1900, "Year(256)")
26 TestUtil
.ReportErrorHandler("verify_testYear", Err
, Error$, Erl
)