d6063f416c
Change-Id: I59bcd11b5da1450fced77671c2cf6ed44e299a06 Reviewed-on: https://gerrit.libreoffice.org/c/core/+/122607 Tested-by: Jenkins Reviewed-by: Andreas Heinisch <andreas.heinisch@yahoo.de>
42 lines
1.5 KiB
VB.net
42 lines
1.5 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#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
|