blob: 445e6f85f87b3ae5af434e9f5a77106cd26b1f61 (
plain)
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
|
Option VBASupport 1
Option Explicit
Function doUnitTest() As String
verify_testConstants
doUnitTest = TestUtilModule.GetResult()
End Function
Sub verify_testConstants()
TestUtilModule.TestInit
Dim testName As String
testName = "Test Constants"
On Error GoTo errorHandler
If GetGuiType() = 1 Then
TestUtilModule.AssertTrue(vbNewline = vbCrLf, "vbNewLine is the same as vbCrLf on Windows")
Else
TestUtilModule.AssertTrue(vbNewLine = vbLf, "vbNewLine is the same as vbLf on others than Windows")
End If
TestUtilModule.TestEnd
Exit Sub
errorHandler:
TestUtilModule.AssertTrue(False, testName & ": hit error handler")
End Sub
|