Bump version to 6.4.7.2.M8
[LibreOffice.git] / basic / qa / vba_tests / val.vb
blob39796d7b499738e55f6153a5a35cc2bfaa3584da
1 Option VBASupport 1
2 Option Explicit
3 Dim passCount As Integer
4 Dim failCount As Integer
5 Dim result As String
7 Function doUnitTest() As String
8 result = verify_testVal()
9 If failCount <> 0 or passCount = 0 Then
10 doUnitTest = result
11 Else
12 doUnitTest = "OK"
13 End If
14 End Function
18 Function verify_testVal() As String
20 passCount = 0
21 failCount = 0
23 result = "Test Results" & Chr$(10) & "============" & Chr$(10)
25 Dim testName As String
26 Dim date1, date2
27 testName = "Test Val function"
28 On Error GoTo errorHandler
30 date2 = 2
31 date1 = Val("02/04/2010")
32 TestLog_ASSERT date1 = date2, "the return Val is: " & date1
34 date2 = 1050
35 date1 = Val("1050")
36 TestLog_ASSERT date1 = date2, "the return Val is: " & date1
38 date2 = 130.75
39 date1 = Val("130.75")
40 TestLog_ASSERT date1 = date2, "the return Val is: " & date1
42 date2 = 50
43 date1 = Val("50 Park Lane")
44 TestLog_ASSERT date1 = date2, "the return Val is: " & date1
46 date2 = 1320
47 date1 = Val("1320 then some text")
48 TestLog_ASSERT date1 = date2, "the return Val is: " & date1
50 date2 = 0
51 date1 = Val("L13.5")
52 TestLog_ASSERT date1 = date2, "the return Val is: " & date1
54 date2 = 0
55 date1 = Val("sometext")
56 TestLog_ASSERT date1 = date2, "the return Val is: " & date1
58 REM date2 = 1
59 REM date1 = Val("1, 2")
60 REM TestLog_ASSERT date1 = date2, "the return Val is: " & date1
61 REM tdf#111999
63 date2 = -1
64 date1 = Val("&HFFFF")
65 TestLog_ASSERT date1 = date2, "the return Val is: " & date1
66 result = result & Chr$(10) & "Tests passed: " & passCount & Chr$(10) & "Tests failed: " & failCount & Chr$(10)
67 verify_testVal = result
69 Exit Function
70 errorHandler:
71 TestLog_ASSERT (False), testName & ": hit error handler"
72 End Function
74 Sub TestLog_ASSERT(assertion As Boolean, Optional testId As String, Optional testComment As String)
76 If assertion = True Then
77 passCount = passCount + 1
78 Else
79 Dim testMsg As String
80 If Not IsMissing(testId) Then
81 testMsg = testMsg + " : " + testId
82 End If
83 If Not IsMissing(testComment) And Not (testComment = "") Then
84 testMsg = testMsg + " (" + testComment + ")"
85 End If
87 result = result & Chr$(10) & " Failed: " & testMsg
88 failCount = failCount + 1
89 End If
91 End Sub