我正在研究QTP上的BPT框架和测试用例我多次使用相同的组件。我想从QC中获取业务组件实例编号 - > Testplan-> TestCase->业务组件。根据实例编号,我将从Excel工作表中读取所需的组件参数。
感谢。
答案 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处的教程。它已经很好地解释了每个细节的解决方案。