basic/qa/vba_tests/atn.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_testATN()
   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_testATN() 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 nr1, nr2 As Double
  27     testName = "Test ATN function"
  28     On Error GoTo errorHandler
  29
  30     nr2 = 1.10714871779409
  31     nr1 = Atn(2)
  32     TestLog_ASSERT Round(nr1, 14) = Round(nr2, 14), "the return ATN is: " & nr1
  33
  34     nr2 = 1.19166451926354
  35     nr1 = Atn(2.51)
  36     TestLog_ASSERT Round(nr1, 14) = Round(nr2, 14), "the return ATN is: " & nr1
  37
  38     nr2 = -1.27229739520872
  39     nr1 = Atn(-3.25)
  40     TestLog_ASSERT Round(nr1, 14) = Round(nr2, 14), "the return ATN is: " & nr1
  41
  42     nr2 = 1.56603445802574
  43     nr1 = Atn(210)
  44     TestLog_ASSERT Round(nr1, 14) = Round(nr2, 14), "the return ATN is: " & nr1
  45
  46     nr2 = 0
  47     nr1 = Atn(0)
  48     TestLog_ASSERT nr1 = nr2, "the return ATN is: " & nr1
  49
  50     result = result & Chr$(10) & "Tests passed: " & passCount & Chr$(10) & "Tests failed: " & failCount & Chr$(10)
  51     verify_testATN = result
  52
  53     Exit Function
  54 errorHandler:
  55         TestLog_ASSERT (False), testName & ": hit error handler"
  56 End Function
  57
  58 Sub TestLog_ASSERT(assertion As Boolean, Optional testId As String, Optional testComment As String)
  59
  60     If assertion = True Then
  61         passCount = passCount + 1
  62     Else
  63         Dim testMsg As String
  64         If Not IsMissing(testId) Then
  65             testMsg = testMsg + " : " + testId
  66         End If
  67         If Not IsMissing(testComment) And Not (testComment = "") Then
  68             testMsg = testMsg + " (" + testComment + ")"
  69         End If
  70
  71         result = result & Chr$(10) & " Failed: " & testMsg
  72         failCount = failCount + 1
  73     End If
  74
  75 End Sub
  76
  77