summaryrefslogtreecommitdiff
path: root/basic/qa/vba_tests/nper.vb
diff options
context:
space:
mode:
authorZdeněk Crhonek <zcrhonek@gmail.com>2017-04-30 19:54:02 +0200
committerZdenek Crhonek <zcrhonek@gmail.com>2017-05-03 20:14:27 +0200
commit3cb581adde31460d7bfe2922b8ae866aa823d5ad (patch)
treefe6d78149851c95a4f8640ba27884f5b01341381 /basic/qa/vba_tests/nper.vb
parentacfda3dd7cab2a27780a162310bd8a457f9bfa33 (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/nper.vb')
-rw-r--r--basic/qa/vba_tests/nper.vb62
1 files changed, 62 insertions, 0 deletions
diff --git a/basic/qa/vba_tests/nper.vb b/basic/qa/vba_tests/nper.vb
new file mode 100644
index 000000000000..e81b739658dd
--- /dev/null
+++ b/basic/qa/vba_tests/nper.vb
@@ -0,0 +1,62 @@
+Option VBASupport 1
+Option Explicit
+Dim passCount As Integer
+Dim failCount As Integer
+Dim result As String
+
+Function doUnitTest() As String
+result = verify_testNPer
+If failCount <> 0 And passCount > 0 Then
+ doUnitTest = result
+Else
+ doUnitTest = "OK"
+End If
+End Function
+
+
+
+Function verify_testNPer() 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 NPER function"
+ On Error GoTo errorHandler
+
+ date2 = -4.359
+ date1 = NPer(0.0821, 400, 2000)
+ TestLog_ASSERT Round(date1, 3) = Round(date2, 3), "the return NPer is: " & date1
+
+ result = result & Chr$(10) & "Tests passed: " & passCount & Chr$(10) & "Tests failed: " & failCount & Chr$(10)
+ verify_testNPer = 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
+