tdf#154285 Check upper bound of arguments in SbRtl_Minute function
[LibreOffice.git] / basic / qa / basic_coverage / test_weekday_method.bas
blob3c66c0dfadced378f52695704bae53d4cd116f8f
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 Explicit
11 Function doUnitTest as String
12 dim aDate as Date
13 aDate = Date()
14 ' WEEKDAY
15 If ( Weekday( aDate ) <> WeekDay( aDate ) ) Then
16 doUnitTest = "FAIL"
17 Else
18 doUnitTest = "OK"
19 End If
20 End Function