[Libreoffice-bugs] [Bug 147262] CallByName() argument names does not match that of VBA

[bugzilla-daemon]

https://bugs.documentfoundation.org/show_bug.cgi?id=147262

--- Comment #3 from Alain Romedenne <alain.romede...@libreoffice.org> ---
A possible Basic test unit can be:

Option Explicit
Option Compatible

Function doUnitTest() As String
    TestUtil.TestInit
    verify_CallByName
    doUnitTest = TestUtil.GetResult()
End Function

Sub verify_CallByName()
    Const vbGet = 2, vbLet = 4, vbMethod = 1, vbSet = 8

    On Error GoTo errorHandler

        ' Basic modules are Objects 
        TestUtil.AssertEqual(CallByName(TestUtil, "failCount", vbGet), 0,
"CallByName(TestUtil, ""failCount"", vbGet")
        TestUtil.AssertEqual(CallByName(TestUtil, "passCount", vbGet), 1,
"CallByName(TestUtil, ""passCount"", vbGet")
        TestUtil.AssertEqual(CallByName(TestUtil, "GetResult", vbMethod), "OK",
"CallByName(TestUtil, ""GetResult"", vbMethod")

        ' A Collection instances or ClassModule instances are Objects too !
    Dim c As New Collection
    c.Add(100, "1st") : c.Add(101)      
        TestUtil.AssertEqual(CallByName(c,"Count", vbGet), 42,
"CallByName(c,""Count"", vbGet)")
    c.Remove(2)
    TestUtil.AssertEqual(CallByName(callType:=vbGet, object:=c,
procedureName:="Count"), 41, _
        "CallByName(callType:=vbGet, object:=c, procedureName:=""Count"")")

    Exit Sub
errorHandler:
    TestUtil.ReportErrorHandler("verify_CallByName", Err, Error$, Erl)
    Resume Next
End Sub

-- 
You are receiving this mail because:
You are the assignee for the bug.