From 6f3532f6aaafb6ad58a9e32dc0eff43a0d54862b Mon Sep 17 00:00:00 2001 From: Andreas Heinisch Date: Sun, 18 Sep 2022 21:57:21 +0200 Subject: tdf#151012 - Initialize optional parameters with their default values Change-Id: I3ed3eb904b50892e5946abe684e801819ba296e6 Reviewed-on: https://gerrit.libreoffice.org/c/core/+/140128 Tested-by: Jenkins Reviewed-by: Andreas Heinisch --- basic/qa/basic_coverage/test_tdf147529_optional_parameters_msgbox.bas | 4 +--- basic/qa/vba_tests/tdf147529_optional_parameters_msgbox.vb | 4 +--- 2 files changed, 2 insertions(+), 6 deletions(-) (limited to 'basic/qa') diff --git a/basic/qa/basic_coverage/test_tdf147529_optional_parameters_msgbox.bas b/basic/qa/basic_coverage/test_tdf147529_optional_parameters_msgbox.bas index dabb23c0faf1..67378213e287 100644 --- a/basic/qa/basic_coverage/test_tdf147529_optional_parameters_msgbox.bas +++ b/basic/qa/basic_coverage/test_tdf147529_optional_parameters_msgbox.bas @@ -18,9 +18,7 @@ Sub verify_testOptionalParametersMsgBox On Error GoTo errorHandler ' tdf#147529 - check for missing optional parameters - TestUtil.AssertEqual(TestOptionalParametersMsgBox(), True, "TestOptionalParametersMsgBox()") - TestUtil.AssertEqual(TestOptionalParametersMsgBox("test"), True, "TestOptionalParametersMsgBox(""test"")") - TestUtil.AssertEqual(TestOptionalParametersMsgBox("test", 1), True, "TestOptionalParametersMsgBox(""test"", 1)") + TestUtil.AssertEqual(TestOptionalParametersMsgBox(), True, "TestOptionalParametersMsgBox()") Exit Sub errorHandler: diff --git a/basic/qa/vba_tests/tdf147529_optional_parameters_msgbox.vb b/basic/qa/vba_tests/tdf147529_optional_parameters_msgbox.vb index dabe552a821b..e599f46eedf1 100644 --- a/basic/qa/vba_tests/tdf147529_optional_parameters_msgbox.vb +++ b/basic/qa/vba_tests/tdf147529_optional_parameters_msgbox.vb @@ -19,9 +19,7 @@ Sub verify_testOptionalParametersMsgBox On Error GoTo errorHandler ' tdf#147529 - check for missing optional parameters - TestUtil.AssertEqual(TestOptionalParametersMsgBox(), True, "TestOptionalParametersMsgBox()") - TestUtil.AssertEqual(TestOptionalParametersMsgBox("test"), True, "TestOptionalParametersMsgBox(""test"")") - TestUtil.AssertEqual(TestOptionalParametersMsgBox("test", 1), True, "TestOptionalParametersMsgBox(""test"", 1)") + TestUtil.AssertEqual(TestOptionalParametersMsgBox(), True, "TestOptionalParametersMsgBox()") Exit Sub errorHandler: -- cgit