Option VBASupport 1 Option Explicit Dim passCount As Integer Dim failCount As Integer Dim result As String Function doUnitTest() As String result = verify_testUBound() If failCount <> 0 or passCount = 0 Then doUnitTest = result Else doUnitTest = "OK" End If End Function Function verify_testUBound() As String passCount = 0 failCount = 0 result = "Test Results" & Chr$(10) & "============" & Chr$(10) Dim testName As String Dim date1, date2 testName = "Test UBound function" On Error GoTo errorHandler Dim A(1 To 100, 0 To 3, -3 To 4) date2 = 100 date1 = UBound(A, 1) TestLog_ASSERT date1 = date2, "the return UBound is: " & date1 date2 = 3 date1 = UBound(A, 2) TestLog_ASSERT date1 = date2, "the return UBound is: " & date1 date2 = 4 date1 = UBound(A, 3) TestLog_ASSERT date1 = date2, "the return UBound is: " & date1 result = result & Chr$(10) & "Tests passed: " & passCount & Chr$(10) & "Tests failed: " & failCount & Chr$(10) verify_testUBound = 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 /cib/libreoffice-6-3'>distro/cib/libreoffice-6-3 LibreOffice 核心代码仓库文档基金会
summaryrefslogtreecommitdiff
path: root/vcl/inc/impfontmetricdata.hxx
AgeCommit message (Expand)Author
2018-05-30tdf#116498 Use win metrics for 'DIN Light' fontSamuel Mehrbrodt
2017-11-17vcl: clean ImplFontMetricData::ImplInitTextLineSize a little bit.Mark Hung
2017-11-06QT5 first stab on implementing CommonSalLayoutJan-Marek Glogowski
2017-10-30loplugin:constmethod in vcl and stocNoel Grandin
2017-05-19remove unused languagetag.hxx includesJochen Nitschke
2016-12-23loplugin:unusedmethodsNoel Grandin
2016-11-29Drop a bunch of font metrics flagsKhaled Hosny
2016-11-22tdf#55469 Consistent line spacing across platformsKhaled Hosny
2016-09-02boost::intrusive_ptr->tools::SvRefCaolán McNamara