1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
|
Option VBASupport 1
Option Explicit
Dim passCount As Integer
Dim failCount As Integer
Dim result As String
Function doUnitTest() As String
result = verify_testCLng()
If failCount <> 0 And passCount > 0 Then
doUnitTest = result
Else
doUnitTest = "OK"
End If
End Function
Function verify_testCLng() As String
passCount = 0
failCount = 0
result = "Test Results" & Chr$(10) & "============" & Chr$(10)
Dim testName As String
Dim TestDateTime As Date
Dim TestStr As String
Dim nr1, nr2 As Long 'variables for test
testName = "Test CLng function"
On Error GoTo errorHandler
nr2 = -1
nr1 = CLng(-1.1)
TestLog_ASSERT nr1 = nr2, "the return CLng is: " & nr1
nr2 = -1
nr1 = CLng(-1.1)
TestLog_ASSERT nr1 = nr2, "the return CLng is: " & nr1
nr2 = -2
nr1 = CLng(-1.9)
TestLog_ASSERT nr1 = nr2, "the return CLng is: " & nr1
nr2 = 0
nr1 = CLng(0.2)
TestLog_ASSERT nr1 = nr2, "the return CLng is: " & nr1
REM nr2 = 0
REM nr1 = CLng(0.5)
REM TestLog_ASSERT nr1 = nr2, "the return CLng is: " & nr1
REM If the fraction is less than or equal to .5, the result will round down.
REM If the fraction is greater than .5, the result will round up.
nr2 = 11
nr1 = CLng(10.51)
TestLog_ASSERT nr1 = nr2, "the return CLng is: " & nr1
nr2 = 30207
nr1 = CLng("&H75FF")
TestLog_ASSERT nr1 = nr2, "the return CLng is: " & nr1
nr2 = 1876
nr1 = CLng("&H754")
TestLog_ASSERT nr1 = nr2, "the return CLng is: " & nr1
result = result & Chr$(10) & "Tests passed: " & passCount & Chr$(10) & "Tests failed: " & failCount & Chr$(10)
verify_testCLng = result
Exit Function
errorHandler:
TestLog_ASSERT (False), testName & ": hit error handler"
End Function
Sub TestLog_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 = 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
|
