diff options
Diffstat (limited to 'basic/qa/vba_tests/str.vb')
-rw-r--r-- | basic/qa/vba_tests/str.vb | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/basic/qa/vba_tests/str.vb b/basic/qa/vba_tests/str.vb index f06775bfecda..e46371ed5812 100644 --- a/basic/qa/vba_tests/str.vb +++ b/basic/qa/vba_tests/str.vb @@ -6,7 +6,7 @@ Dim result As String Function doUnitTest() As String result = verify_testSTR() -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_testSTR() 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 STR function" On Error GoTo errorHandler |