basic/qa/vba_tests/ubound.vb

   1 Option VBASupport 1
   2 Option Explicit
   3 Dim passCount As Integer
   4 Dim failCount As Integer
   5 Dim result As String
   6
   7 Function doUnitTest() As String
   8 result = verify_testUBound()
   9 If failCount <> 0 or passCount = 0 Then
  10     doUnitTest = result
  11 Else
  12     doUnitTest = "OK"
  13 End If
  14 End Function
  15
  16
  17
  18 Function verify_testUBound() As String
  19
  20     passCount = 0
  21     failCount = 0
  22
  23     result = "Test Results" & Chr$(10) & "============" & Chr$(10)
  24
  25     Dim testName As String
  26     Dim date1, date2
  27     testName = "Test UBound function"
  28     On Error GoTo errorHandler
  29     Dim A(1 To 100, 0 To 3, -3 To 4)
  30
  31     date2 = 100
  32     date1 = UBound(A, 1)
  33     TestLog_ASSERT date1 = date2, "the return UBound is: " & date1
  34
  35     date2 = 3
  36     date1 = UBound(A, 2)
  37     TestLog_ASSERT date1 = date2, "the return UBound is: " & date1
  38
  39     date2 = 4
  40     date1 = UBound(A, 3)
  41     TestLog_ASSERT date1 = date2, "the return UBound is: " & date1
  42
  43     result = result & Chr$(10) & "Tests passed: " & passCount & Chr$(10) & "Tests failed: " & failCount & Chr$(10)
  44     verify_testUBound = result
  45
  46     Exit Function
  47 errorHandler:
  48         TestLog_ASSERT (False), testName & ": hit error handler"
  49 End Function
  50
  51 Sub TestLog_ASSERT(assertion As Boolean, Optional testId As String, Optional testComment As String)
  52
  53     If assertion = True Then
  54         passCount = passCount + 1
  55     Else
  56         Dim testMsg As String
  57         If Not IsMissing(testId) Then
  58             testMsg = testMsg + " : " + testId
  59         End If
  60         If Not IsMissing(testComment) And Not (testComment = "") Then
  61             testMsg = testMsg + " (" + testComment + ")"
  62         End If
  63
  64         result = result & Chr$(10) & " Failed: " & testMsg
  65         failCount = failCount + 1
  66     End If
  67
  68 End Sub
  69