document RasterOp a little
[LibreOffice.git] / basic / qa / vba_tests / year.vb
blob3ba0df62d52799716941f4ea52398619b34ed99d
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/.
9 Option VBASupport 1
10 Option Explicit
12 Function doUnitTest() As String
13 TestUtil.TestInit
14 verify_testYear
15 doUnitTest = TestUtil.GetResult()
16 End Function
18 Sub verify_testYear()
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)")
24 Exit Sub
25 errorHandler:
26 TestUtil.ReportErrorHandler("verify_testYear", Err, Error$, Erl)
27 End Sub