fa0a1f6462
Change-Id: Ifa73050f6892ce8ce95d16dedc166e68d1809491 Reviewed-on: https://gerrit.libreoffice.org/c/core/+/151567 Tested-by: Jenkins Reviewed-by: Andreas Heinisch <andreas.heinisch@yahoo.de>
51 lines
2 KiB
VB.net
51 lines
2 KiB
VB.net
'
|
|
' 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
|