basic/qa/cppunit/_test_asserts.bas

   1 '
   2 ' This file is part of the LibreOffice project.
   3 '
   4 ' This Source Code Form is subject to the terms of the Mozilla Public
   5 ' License, v. 2.0. If a copy of the MPL was not distributed with this
   6 ' file, You can obtain one at http://mozilla.org/MPL/2.0/.
   7 '
   8
   9 Option Explicit
  10
  11 Dim passCount As Integer
  12 Dim failCount As Integer
  13 Dim result As String
  14
  15 Function GetResult()
  16     If passCount <> 0 and failCount = 0 Then
  17         GetResult = "OK"
  18     Else
  19         GetResult = result & Chr$(10) & "Tests passed: " & passCount & Chr$(10) & "Tests failed: " & failCount & Chr$(10)
  20     End If
  21 End Function
  22
  23 Sub TestInit()
  24     passCount = 0
  25     failCount = 0
  26     result = result & "Test Results" & Chr$(10) & "============" & Chr$(10)
  27 End Sub
  28
  29 Sub Assert(Assertion As Boolean, Optional testId As String, Optional testComment As String)
  30     If Assertion = True Then
  31         passCount = passCount + 1
  32     Else
  33         Dim testMsg As String
  34         If Not IsMissing(testId) Then
  35             testMsg = " " + testId
  36         End If
  37         If Not IsMissing(testComment) Then
  38             If Not (testComment = "") Then testMsg = testMsg + " (" + testComment + ")"
  39         End If
  40
  41         result = result & Chr$(10) & " Failed:" & testMsg
  42         failCount = failCount + 1
  43     End If
  44 End Sub
  45
  46 Sub AssertEqual(actual As Variant, expected As Variant, testName As String)
  47     If expected = actual Then
  48         passCount = passCount + 1
  49     Else
  50         result = result & Chr$(10) & " Failed: " & testName & " returned " & actual & ", expected " & expected
  51         failCount = failCount + 1
  52     End If
  53 End Sub
  54
  55 ' Same as AssertEqual, but also checks actual and expected types
  56 Sub AssertEqualStrict(actual As Variant, expected As Variant, testName As String)
  57     AssertEqual actual, expected, testName
  58     AssertEqual TypeName(actual), TypeName(expected), testName & " type mismatch:"
  59 End Sub
  60
  61 Sub AssertEqualApprox(actual, expected, epsilon, testName As String)
  62     If Abs(expected - actual) <= epsilon Then
  63         passCount = passCount + 1
  64     Else
  65         result = result & Chr$(10) & " Failed: " & testName & " returned " & actual & ", expected " & expected & ", epsilon " & epsilon
  66         failCount = failCount + 1
  67     End If
  68 End Sub
  69
  70 Sub ReportErrorHandler(testName As String, aErr, sError, nErl)
  71     Assert False, testName, "hit error handler - " & aErr & ": " & sError & " line : " & nErl
  72 End Sub