HP ALM 11.52 - OTA API - 使用 VB 脚本检查 In/Out 个测试用例

Question

我正在使用 OTA 将测试用例从 excel 上传到 ALM。

我已经使用了 excel 加载项，发现它对我的项目需求来说非常麻烦，所以我正在编写一个自定义脚本来完成任务。

注意：版本控制已开启。

我有版本控制，因此，我需要先检查创建的测试用例，然后才能添加步骤。最好，我希望能够在完成后再次检查测试用例。有没有办法用 OTA api?

这是我正在使用的脚本：

Sub UploadTC()

Dim QCConnection
Dim qcUserName, qcPassword, qcDomain, qcProj
Dim tsf, trmgr
Dim trfolder, trtest
Dim dsf, dstep, steplist
Dim TCR As Range
Dim cache As Range
Dim scount As Range
'Fields
Dim TCName As Range
Dim TCStep As Range
Dim TCDesc As Range
Dim TCExRe As Range
Dim TCComm As Range
Dim TCType As Range



'~~~These need to come from a user form. Temporary.
qcUserName = "ssoong01"
qcPassword = "*********"
qcDomain = "HUB"
qcProj = "*********"

Set QCConnection = CreateObject("TDApiOle80.TDConnection")
'MsgBox ("Connect to QC Server")

QCConnection.InitConnectionEx "http://hpalm-qc.*****.net:8080/qcbin/"
'MsgBox ("Connection Established.")

QCConnection.Login qcUserName, qcPassword
'MsgBox ("Login Authenticated.")

QCConnection.Connect qcDomain, qcProj
'MsgBox ("Connected to Project.")

Set tsf = QCConnection.TestFactory
Set trmgr = QCConnection.TreeManager

With ThisWorkbook.Sheets("Test Cases")

 'Create Project Folder
Set trfolder = trmgr.NodebyPath("Subject").AddNode(.Cells(3, 2))
trfolder.Post
'Loop through each row in sheet from A4
Set cache = ThisWorkbook.Sheets("Values").Range("$A")
For Each TCR In .Range(.Cells(4, 1), .Cells(.Cells(Rows.Count, 1).End(xlUp).Row, 1))
    Set TCName = .Range(TCR.Offset(0, 1).Address)
    Set TCType = .Range(TCR.Offset(0, 7).Address)

    'If Folder Then
        If TCType.Value = "Folder" Then
            Set trfolder = trmgr.NodebyPath("Subject" & TCR.Value).AddNode(TCName.Value)
            trfolder.Post
    'If Test Case Then
        ElseIf TCType.Value = "MANUAL" Then
            'If cached TC name = current row TC name then skip
            If TCName = cache.Value Then
            'Add Test Case
            ElseIf TCName <> cache.Value Then
                Set trfolder = trmgr.NodebyPath("Subject" & TCR.Value)
                Set trtest = trfolder.TestFactory.AddItem(TCName.Value)
                    ' set values
                    trtest.Field("TS_NAME") = TCName
                    trtest.Field("TS_RESPONSIBLE") = qcUserName ' Designer
                    trtest.Field("TS_TYPE") = "MANUAL"

                    trtest.Post

            'Steps
            Set dsf = trtest.DesignStepFactory
            Set steplist = dsf.Newlist("[empty]")

            ' loop through all the steps
            Set scount = .Range(TCName.Address)
            Do
                Set TCStep = .Range(scount.Offset(0, 1).Address)
                Set TCDesc = .Range(scount.Offset(0, 2).Address)
                Set TCExRe = .Range(scount.Offset(0, 3).Address)
                Set TCComm = .Range(scount.Offset(0, 4).Address)

                Set dstep = dsf.AddItem(Null)
                    dstep.Field("DS_STEP_NAME") = TCStep.Value
                    dstep.Field("DS_DESCRIPTION") = TCDesc.Value
                    dstep.Field("DS_EXPECTED") = TCExRe.Value
                    Set scount = .Range(scount.Offset(1).Address)
            Loop Until scount.Value <> scount.Offset(-1).Value

            dstep.Post

                'cache TC name
                cache.Value = TCName.Value
            End If
        Else:
            MsgBox ("Invalid type at cell: " & TCR.Address)
        End If

Next TCR

HP 应用程序生命周期管理

应用程序生命周期管理版 11.52.514

OTA 客户端 11.52.514.0

Answer 1

是的，您可以使用 OTA API 执行签入和签出操作。它在文档中有详细描述，那里还有一些示例脚本展示了如何完成。我假设您知道在哪里可以找到 OTA API reference/documenation?

这是文档中的示例脚本，它展示了如何编写执行测试签出的函数：

Public Function CheckoutTest(tst As Test, comment$, _
    ByRef CanContinue As Boolean) As Object

    On Error GoTo checkout_err
    CanContinue = True

    Dim fVersionControl As VCS
    Set fVersionControl = tst.VCS

    If IsNull(fVersionControl) Then
        Set CheckoutTest = Null
        Exit Function
    End If

    Set CheckoutTest = fVersionControl
    fVersionControl.CheckOut -1, comment, False

Exit Function
checkout_err:
    CanContinue = False
    ErrHandler err, "CheckoutTest", "", FATAL_ERROR
End Function

Answer 2

我在 OTA 文档中找到了我想要的答案。绝对是我应该更经常利用的资源。

HP ALM 11.52 - OTA API - 使用 VB 脚本检查 In/Out 个测试用例

HP ALM 11.52 - OTA API - Check In/Out test cases with VB script

excel

vba

hp-alm