diff options
| author | Mike Kaganski <mike.kaganski@collabora.com> | 2021-07-02 20:44:27 +0300 |
|---|---|---|
| committer | Mike Kaganski <mike.kaganski@collabora.com> | 2021-07-02 21:53:39 +0200 |
| commit | 357c0e2a4a07aca48a69fbc2616b7002401b3267 (patch) | |
| tree | ad8cef8bf3e4dbbfec37ba3cc165455a33e11514 /basic/qa/basic_coverage | |
| parent | 4f8748fc973acdb67790ff048a247717afa9b9c7 (diff) | |
Move utility code out of test directories
This simplifies iteration over the test files, and avoids relying
on file URLs being the same (e.g., having no /./ segments).
Change-Id: I227785806e474a3a2dffeb46df21617eae43327e
Reviewed-on: https://gerrit.libreoffice.org/c/core/+/118329
Reviewed-by: Xisco Fauli <xiscofauli@libreoffice.org>
Reviewed-by: Mike Kaganski <mike.kaganski@collabora.com>
Tested-by: Jenkins
Diffstat (limited to 'basic/qa/basic_coverage')
| -rw-r--r-- | basic/qa/basic_coverage/_test_asserts.bas | 57 |
1 files changed, 0 insertions, 57 deletions
diff --git a/basic/qa/basic_coverage/_test_asserts.bas b/basic/qa/basic_coverage/_test_asserts.bas deleted file mode 100644 index 0ecbf6828bcd..000000000000 --- a/basic/qa/basic_coverage/_test_asserts.bas +++ /dev/null @@ -1,57 +0,0 @@ -' -' This file is part of the LibreOffice project. -' -' This Source Code Form is subject to the terms of the Mozilla Public -' License, v. 2.0. If a copy of the MPL was not distributed with this -' file, You can obtain one at http://mozilla.org/MPL/2.0/. -' - -Option Explicit - -Dim passCount As Integer -Dim failCount As Integer -Dim result As String - -Function GetResult() - If passCount <> 0 and failCount = 0 Then - GetResult = "OK" - Else - GetResult = result & Chr$(10) & "Tests passed: " & passCount & Chr$(10) & "Tests failed: " & failCount & Chr$(10) - End If -End Function - -Sub TestInit() - passCount = 0 - failCount = 0 - result = result & "Test Results" & Chr$(10) & "============" & Chr$(10) -End Sub - -Sub Assert(Assertion As Boolean, Optional testId As String, Optional testComment As String) - If Assertion = True Then - passCount = passCount + 1 - Else - Dim testMsg As String - If Not IsMissing(testId) Then - testMsg = " " + testId - End If - If Not IsMissing(testComment) And Not (testComment = "") Then - testMsg = testMsg + " (" + testComment + ")" - End If - - result = result & Chr$(10) & " Failed:" & testMsg - failCount = failCount + 1 - End If -End Sub - -Sub AssertEqual(actual As Variant, expected As Variant, testName As String) - If expected = actual Then - passCount = passCount + 1 - Else - result = result & Chr$(10) & " Failed: " & testName & " returned " & actual & ", expected " & expected - failCount = failCount + 1 - End If -End Sub - -Sub ReportErrorHandler(testName As String, aErr, sError, nErl) - Assert False, testName, "hit error handler - " & aErr & ": " & sError & " line : " & nErl -End Sub |