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