diff options
| author | Andreas Heinisch <andreas.heinisch@yahoo.de> | 2020-10-05 12:20:50 +0200 |
|---|---|---|
| committer | Mike Kaganski <mike.kaganski@collabora.com> | 2020-10-06 17:17:55 +0200 |
| commit | 698e5d54182d96a1fd0c3b864ba0e618f82dd1f1 (patch) | |
| tree | 6e62331a5cecf4648fa050aed65c6e356875b2bd | |
| parent | f1f33b332a0b4ada8ac8ff885fc2efee768091a6 (diff) | |
tdf#123025 - fixed broken tests for cverr method
Change-Id: I44eb44107a24207764da24b4e01b407570342013
Reviewed-on: https://gerrit.libreoffice.org/c/core/+/103956
Tested-by: Jenkins
Reviewed-by: Mike Kaganski <mike.kaganski@collabora.com>
| -rw-r--r-- | basic/qa/basic_coverage/test_cverr_method.vb | 26 |
1 files changed, 9 insertions, 17 deletions
diff --git a/basic/qa/basic_coverage/test_cverr_method.vb b/basic/qa/basic_coverage/test_cverr_method.vb index f74445c20c6a..9bc8b4f953f1 100644 --- a/basic/qa/basic_coverage/test_cverr_method.vb +++ b/basic/qa/basic_coverage/test_cverr_method.vb @@ -7,26 +7,18 @@ ' Function doUnitTest as Integer - ' CVERR - If (CVerr(100) <> 100) Then - doUnitTest = 0 - Else - doUnitTest = 1 - End If - ' tdf#79426 - passing an error object to a function - if ( TestCVErr( CVErr( 2 ) ) <> 2 ) Then - doUnitTest = 0 - Else - doUnitTest = 1 - End If + doUnitTest = 0 + ' CVERR + If (CVerr(100) <> 100) Then Exit Function + ' tdf#79426 - passing an error object to a function + If (TestCVErr(CVErr(2)) <> 2) Then Exit Function ' tdf#79426 - test with Error-Code 448 ( ERRCODE_BASIC_NAMED_NOT_FOUND ) - if ( TestCVErr( CVErr( 448 ) ) <> 448 ) Then - doUnitTest = 0 - Else - doUnitTest = 1 - End If + If (TestCVErr(CVErr(448)) <> 448) Then Exit Function + + doUnitTest = 1 + End Function Function TestCVErr(vErr As Variant) |