如何使用 QC OTA API 获取测试实例的链接缺陷

Question

Set TSChildren = TSFolder.FindChildren("")

For Each TSChild In TSChildren
    Set TSFactory = TSChild.testSetFactory
    Set TSList = TSFactory.NewList("")
    'Iterate through all the Test Sets
    For Each TestSet In TSList
    Set TSTestFactory = TestSet.TSTestFactory.NewList("")

    For Each TF In TSTestFactory

            k = k + 1
            Debug.Print "TC Count: " & k
         If TF.Status <> "No Run" Then

         Set runF = TF.RunFactory
         Set runFilter = runF.Filter
            runFilter.Clear

             runFilter("RN_EXECUTION_DATE") = ">= " & Date

         Set runList = runF.NewList(runFilter.Text)
          'filter by execution date
          'take nth run list
          iRunListCount = runList.Count
          totalRunCount = 0

            For Each RunItem In runList
                Set LnkFact = RunItem.BugLinkFactory
                LnkFact.FullLinkage = True 'for step links
                For Each Lnk In LnkFact.NewList("")
                    /*  Here my defects are not getting displayed*/
                   Set MyBug = Lnk.TargetEntity
                Next
            Next

        End If
    Next

Next

下一个

使用上面的代码，我无法获得测试用例的链接缺陷。

注意：原因是所有缺陷都链接到一个测试实例，而不是测试运行。

Answer 1

试试这个（在 C# 中）：

(TF as ILinkable).BugLinkFactory;