如何从QC / ALM获取业务组件实例编号

时间:2014-02-19 14:26:06

标签: vbscript qtp qc hp-uft

我正在研究QTP上的BPT框架和测试用例我多次使用相同的组件。我想从QC中获取业务组件实例编号 - > Testplan-> TestCase->业务组件。根据实例编号,我将从Excel工作表中读取所需的组件参数。

感谢。

1 个答案:

答案 0 :(得分:0)

以下代码对我有用:

Set TestTree = TestSet.TSTestFactory
Set TestList = TestTree.NewList("")

For Each TSTest In TestList

    Set Test = TSTest.Test
    Set objTestFactory = tdc.TestFactory

    Set tFilter = objTestFactory.Filter
    tFilter.Filter("TS_TEST_ID") = Test.ID
    Set tList = objTestFactory.NewList(tFilter.Text)

    Dim objTest
    For Each tst In tList
        If tst.Type = "BUSINESS-PROCESS" Then
        Set objTest = tst
        Exit For
        End If
    Next


    If objTest Is Nothing Then

            Else
        Dim BPTest As BusinessProcess
        Set BPTest = objTest
        BPTest.Load

        ' Get list if component instance from the Test
        Set components = BPTest.BPComponents
        Set Component = components.Item(1)
        For i = 1 To BPTest.BPComponents.Count
            componentName = components.Item(i).Name
            componentInstanceId = components.Item(i).ID
            ComponentId = components.Item(i).Component.ID
        Next
    End if
Next

此代码将从测试实验室级别获取详细信息,直到业务组件级别。目前它正在提取组件名称和ID。您可以根据需要修改代码。

访问knowlzz处的教程。它已经很好地解释了每个细节的解决方案。