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
98
99
100
101
102
103
|
Option VBASupport 1
Option Explicit
Dim passCount As Integer
Dim failCount As Integer
Dim result As String
Function doUnitTest() As String
result = verify_testCInt()
If failCount <> 0 Or passCount = 0 Then
doUnitTest = result
Else
doUnitTest = "OK"
End If
End Function
Function verify_testCInt() As String
passCount = 0
failCount = 0
result = "Test Results" & Chr$(10) & "============" & Chr$(10)
Dim testName As String
Dim nr1, nr2 As Integer 'variables for test
testName = "Test CInt function"
On Error GoTo errorHandler
nr2 = -1
nr1 = CInt(-1.1)
TestLog_ASSERT nr1 = nr2, "the return CInt is: " & nr1
nr2 = -1
nr1 = CInt(-1.1)
TestLog_ASSERT nr1 = nr2, "the return CInt is: " & nr1
nr2 = -2
nr1 = CInt(-1.9)
TestLog_ASSERT nr1 = nr2, "the return CInt is: " & nr1
nr2 = 0
nr1 = CInt(0.2)
TestLog_ASSERT nr1 = nr2, "the return CInt is: " & nr1
REM In excel:
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.
REM nr2 = 0
REM nr1 = CInt(0.5)
REM TestLog_ASSERT nr1 = nr2, "the return CInt is: " & nr1
REM nr2 = 2
REM nr1 = CInt(1.5)
REM TestLog_ASSERT nr1 = nr2, "the return CInt is: " & nr1
REM nr2 = 2
REM nr1 = CInt(2.5)
REM TestLog_ASSERT nr1 = nr2, "the return CInt is: " & nr1
nr2 = 11
nr1 = CInt(10.51)
TestLog_ASSERT nr1 = nr2, "the return CInt is: " & nr1
nr2 = 30207
nr1 = CInt("&H75FF")
TestLog_ASSERT nr1 = nr2, "the return CInt is: " & nr1
nr2 = 1876
nr1 = CInt("&H754")
TestLog_ASSERT nr1 = nr2, "the return CInt is: " & nr1
result = result & Chr$(10) & "Tests passed: " & passCount & Chr$(10) & "Tests failed: " & failCount & Chr$(10)
verify_testCInt = 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
|
