diff options
| author | Zdeněk Crhonek <zcrhonek@gmail.com> | 2017-12-03 13:32:44 +0100 |
|---|---|---|
| committer | Zdenek Crhonek <zcrhonek@gmail.com> | 2017-12-22 00:04:01 +0100 |
| commit | baaf6c12c8e9f785dc91e5d3db8b2f5072d4e3f5 (patch) | |
| tree | d86d6d7c83f921eb9288c377c262b88773f688c8 /basic/qa/vba_tests/right.vb | |
| parent | 8f3f6755d7f7355493e873954513fdaeb4dceca9 (diff) | |
VB tests (3)-don't pass whe all tests fail
Change-Id: I7dd99a43a3d41c8ca31a070028a19bd032d06435
Reviewed-on: https://gerrit.libreoffice.org/45739
Tested-by: Jenkins <ci@libreoffice.org>
Reviewed-by: Zdenek Crhonek <zcrhonek@gmail.com>
Diffstat (limited to 'basic/qa/vba_tests/right.vb')
| -rw-r--r-- | basic/qa/vba_tests/right.vb | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/basic/qa/vba_tests/right.vb b/basic/qa/vba_tests/right.vb index d67523cd9358..0e09bc11cca3 100644 --- a/basic/qa/vba_tests/right.vb +++ b/basic/qa/vba_tests/right.vb @@ -6,7 +6,7 @@ Dim result As String Function doUnitTest() As String result = verify_testRight() -If failCount <> 0 And passCount > 0 Then +If failCount <> 0 or passCount = 0 Then doUnitTest = result Else doUnitTest = "OK" @@ -23,8 +23,6 @@ Function verify_testRight() As String result = "Test Results" & Chr$(10) & "============" & Chr$(10) Dim testName As String - Dim TestDateTime As Date - Dim TestStr As String Dim date1, date2 testName = "Test Right function" On Error GoTo errorHandler |