summaryrefslogtreecommitdiff
path: root/basic/qa/vba_tests/constants.vb
blob: c31444889faeb08205f9cae42071a018d03b3b42 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
'
' This file is part of the LibreOffice project.
'
' This Source Code Form is subject to the terms of the Mozilla Public
' License, v. 2.0. If a copy of the MPL was not distributed with this
' file, You can obtain one at http://mozilla.org/MPL/2.0/.
'

Option VBASupport 1
Option Explicit

Function doUnitTest() As String
    TestUtil.TestInit
    verify_testConstants
    doUnitTest = TestUtil.GetResult()
End Function

Sub verify_testConstants()
    On Error GoTo errorHandler

    ' vbNewLine is the same as vbCrLf on Windows, and the same as vbLf on other OSes
    If GetGuiType() = 1 Then
        TestUtil.AssertEqual(vbNewline, vbCrLf, "vbNewline")
    Else
        TestUtil.AssertEqual(vbNewLine, vbLf, "vbNewline")
    End If

    ' tdf#153543 - check for vba shell constants
    ' See https://learn.microsoft.com/en-us/office/vba/language/reference/user-interface-help/shell-constants
    TestUtil.AssertEqual(vbHide,             0, "vbHide")
    TestUtil.AssertEqual(vbNormalFocus,      1, "vbNormalFocus")
    TestUtil.AssertEqual(vbMinimizedFocus,   2, "vbMinimizedFocus")
    TestUtil.AssertEqual(vbMaximizedFocus,   3, "vbMaximizedFocus")
    TestUtil.AssertEqual(vbNormalNoFocus,    4, "vbNormalNoFocus")
    TestUtil.AssertEqual(vbMinimizedNoFocus, 6, "vbMinimizedNoFocus")

    ' tdf#131563 - check for vba color constants
    ' See https://docs.microsoft.com/en-us/office/vba/language/reference/user-interface-help/color-constants
    TestUtil.AssertEqual(vbBlack,   RGB(0, 0, 0),       "vbBlack")
    TestUtil.AssertEqual(vbRed,     RGB(255, 0, 0),     "vbRed")
    TestUtil.AssertEqual(vbGreen,   RGB(0, 255, 0),     "vbGreen")
    TestUtil.AssertEqual(vbYellow,  RGB(255, 255, 0),   "vbYellow")
    TestUtil.AssertEqual(vbBlue,    RGB(0, 0, 255),     "vbBlue")
    TestUtil.AssertEqual(vbMagenta, RGB(255, 0, 255),   "vbMagenta")
    TestUtil.AssertEqual(vbCyan,    RGB(0, 255, 255),   "vbCyan")
    TestUtil.AssertEqual(vbWhite,   RGB(255, 255, 255), "vbWhite")

    Exit Sub
errorHandler:
    TestUtil.ReportErrorHandler("verify_testConstants", Err, Error$, Erl)
End Sub