Adding upstream version 4:7.4.7.upstream/4%7.4.7upstream

Signed-off-by: Daniel Baumann <daniel.baumann@progress-linux.org>

1 files changed, 36 insertions, 0 deletions

diff --git a/basic/qa/basic_coverage/test_tdf147529_optional_parameters_msgbox.bas b/basic/qa/basic_coverage/test_tdf147529_optional_parameters_msgbox.bas
new file mode 100755
index 000000000..67378213e
--- /dev/null
+++ b/basic/qa/basic_coverage/test_tdf147529_optional_parameters_msgbox.bas
@@ -0,0 +1,36 @@
+'

+' 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 Explicit

+
+Function doUnitTest() As String

+    TestUtil.TestInit

+    verify_testOptionalParametersMsgBox

+    doUnitTest = TestUtil.GetResult()

+End Function
+

+Sub verify_testOptionalParametersMsgBox
+    On Error GoTo errorHandler

+

+    ' tdf#147529 - check for missing optional parameters

+    TestUtil.AssertEqual(TestOptionalParametersMsgBox(), True, "TestOptionalParametersMsgBox()")

+

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

+

+Function TestOptionalParametersMsgBox(Optional text, Optional dialogType, Optional dialogTitle) As Boolean

+On Error GoTo errorHandler

+    MsgBox(text, dialogType, dialogTitle)

+    TestOptionalParametersMsgBox = False

+    Exit Function

+errorHandler:

+    TestUtil.AssertEqual(Err, 449, "Argument not optional (Error 449)")

+    TestOptionalParametersMsgBox = True

+End Function