diff options
author | Zdeněk Crhonek <zcrhonek@gmail.com> | 2017-04-30 19:54:02 +0200 |
---|---|---|
committer | Zdenek Crhonek <zcrhonek@gmail.com> | 2017-05-03 20:14:27 +0200 |
commit | 3cb581adde31460d7bfe2922b8ae866aa823d5ad (patch) | |
tree | fe6d78149851c95a4f8640ba27884f5b01341381 /basic/qa/vba_tests/npv.vb | |
parent | acfda3dd7cab2a27780a162310bd8a457f9bfa33 (diff) |
VBA tests- MONTHNAME,NPER, NPV,OCT test case
Change-Id: Ia6c732d4c205ba2461007feacce1403b83e6043b
Reviewed-on: https://gerrit.libreoffice.org/37109
Tested-by: Jenkins <ci@libreoffice.org>
Reviewed-by: Zdenek Crhonek <zcrhonek@gmail.com>
Diffstat (limited to 'basic/qa/vba_tests/npv.vb')
-rw-r--r-- | basic/qa/vba_tests/npv.vb | 67 |
1 files changed, 67 insertions, 0 deletions
diff --git a/basic/qa/vba_tests/npv.vb b/basic/qa/vba_tests/npv.vb new file mode 100644 index 000000000000..9992de7845cc --- /dev/null +++ b/basic/qa/vba_tests/npv.vb @@ -0,0 +1,67 @@ +Option VBASupport 1 +Option Explicit +Dim passCount As Integer +Dim failCount As Integer +Dim result As String + +Function doUnitTest() As String +result = verify_testNPV() +If failCount <> 0 And passCount > 0 Then + doUnitTest = result +Else + doUnitTest = "OK" +End If +End Function + + + +Function verify_testNPV() 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 date1, date2 + testName = "Test NPV function" + On Error GoTo errorHandler + Static Values(5) As Double ' Set up array. + Values(0) = -70000 ' Business start-up costs. + ' Positive cash flows reflecting income for four successive years. + Values(1) = 22000: Values(2) = 25000 + Values(3) = 28000: Values(4) = 31000 + + date2 = 19312.57 + date1 = NPV(0.0625, Values()) ' Calculate net present value. + TestLog_ASSERT Round(date1, 2) = Round(date2, 2), "the return NPV is: " & date1 + + result = result & Chr$(10) & "Tests passed: " & passCount & Chr$(10) & "Tests failed: " & failCount & Chr$(10) + verify_testNPV = 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 + |