diff options
| author | Zdeněk Crhonek <zcrhonek@gmail.com> | 2017-11-24 22:21:07 +0100 |
|---|---|---|
| committer | Zdenek Crhonek <zcrhonek@gmail.com> | 2017-12-02 17:48:52 +0100 |
| commit | 9d3b73c8351dcb534580f14c44a8387b16ba763a (patch) | |
| tree | d37a79ee41f8f380751e0b587290e327c2e8baa3 /basic | |
| parent | b659421222e1c3ffded2bf677bd1c9bf4fd56308 (diff) | |
VBA tests - repair tests (Don't pass when all tests fail)
Change-Id: I70bfb8b909f9f7033cd1eb374db0fe710fd2a0c3
Reviewed-on: https://gerrit.libreoffice.org/45260
Tested-by: Jenkins <ci@libreoffice.org>
Reviewed-by: Zdenek Crhonek <zcrhonek@gmail.com>
Diffstat (limited to 'basic')
| -rw-r--r-- | basic/qa/vba_tests/atn.vb | 2 | ||||
| -rw-r--r-- | basic/qa/vba_tests/cdate.vb | 4 | ||||
| -rw-r--r-- | basic/qa/vba_tests/cos.vb | 2 |
3 files changed, 4 insertions, 4 deletions
diff --git a/basic/qa/vba_tests/atn.vb b/basic/qa/vba_tests/atn.vb index 4155a1cb2b93..145584ee6bd2 100644 --- a/basic/qa/vba_tests/atn.vb +++ b/basic/qa/vba_tests/atn.vb @@ -6,7 +6,7 @@ Dim result As String Function doUnitTest() As String result = verify_testATN() -If failCount <> 0 And passCount > 0 Then +If failCount <> 0 or passCount = 0 Then doUnitTest = result Else doUnitTest = "OK" diff --git a/basic/qa/vba_tests/cdate.vb b/basic/qa/vba_tests/cdate.vb index 718712e93c04..d04ecc0043a0 100644 --- a/basic/qa/vba_tests/cdate.vb +++ b/basic/qa/vba_tests/cdate.vb @@ -6,7 +6,7 @@ Dim result As String Function doUnitTest() As String result = verify_testCDate() -If failCount <> 0 And passCount > 0 Then +If failCount <> 0 or passCount = 0 Then doUnitTest = result Else doUnitTest = "OK" @@ -28,7 +28,7 @@ Function verify_testCDate() As String On Error GoTo errorHandler date2 = 25246 - date1 = CDate("12.2.1969") '2/12/1969 + date1 = CDate("12/02/1969") '02/12/1969 TestLog_ASSERT date1 = date2, "the return CDate is: " & date1 date2 = 28313 diff --git a/basic/qa/vba_tests/cos.vb b/basic/qa/vba_tests/cos.vb index 4f9d725742db..993794b70f8c 100644 --- a/basic/qa/vba_tests/cos.vb +++ b/basic/qa/vba_tests/cos.vb @@ -6,7 +6,7 @@ Dim result As String Function doUnitTest() As String result = verify_testCOS() -If failCount <> 0 And passCount > 0 Then +If failCount <> 0 or passCount = 0 Then doUnitTest = result Else doUnitTest = "OK" |