1

QC 11 からテスト ケースをエクスポートするマクロがありますが、テスト ケースにマップされた要件 ID を取得できません。

 For Each Node In NodesList
    Set TestTree = TreeMgr.NodeByPath(Node)
    Set TestFactory = TestTree.TestFactory
    Set TestList = TestFactory.NewList("") 'Get a list of all from node.

    'Iterate through all the tests.
    For Each TestCase In TestList
        Dim DesignStepFactory, DesignStep, DesignStepList
        Set DesignStepFactory = TestCase.DesignStepFactory
        Set DesignStepList = DesignStepFactory.NewList("")
  If DesignStepList.Count = 0 Then
            Sheet.Cells(Row, 1).Value = Trim(TestCase.Field("TS_TEST_ID"))
            Sheet.Cells(Row, 2).Value = Trim(TestCase.Field("TS_NAME"))
            Sheet.Cells(Row, 3).Value = Trim(TestCase.Field("TS_DESCRIPTION"))
            Sheet.Cells(Row, 4).Value = Trim(TestCase.Field("TS_RESPONSIBLE"))
            Sheet.Cells(Row, 5).Value = Trim(TestCase.Field("TS_SUBJECT").Path)
            Row = Row + 1
        Else
            For Each DesignStep In DesignStepList
                'Save a specified set of fields.
            Sheet.Cells(Row, 1).Value = Trim(TestCase.Field("TS_TEST_ID"))
            Sheet.Cells(Row, 2).Value = Trim(TestCase.Field("TS_NAME"))
            Sheet.Cells(Row, 3).Value = Trim(TestCase.Field("TS_DESCRIPTION"))
            Sheet.Cells(Row, 4).Value = Trim(TestCase.Field("TS_RESPONSIBLE"))
            Sheet.Cells(Row, 5).Value = Trim(TestCase.Field("TS_SUBJECT").Path)

                'Save the specified design steps.
                Sheet.Cells(Row, 6).Value = Trim(DesignStep.Field("DS_STEP_NAME"))
                Sheet.Cells(Row, 7).Value = Trim(DesignStep.Field("DS_DESCRIPTION"))
                Sheet.Cells(Row, 8).Value = Trim(DesignStep.Field("DS_EXPECTED"))
                Row = Row + 1
            Next
        End If
    Next
Next

ここでは、テスト ケース ID、名前、説明、デザイナー、およびパスを取得しています。しかし、それにマップされている要件 ID を取得していません。

どんな助けでも大歓迎です。前もって感謝します。

4

1 に答える 1

2

テストは複数の要件をカバーできるため、テストにリンクされた単一の要件 ID はありません。Test オブジェクトからメソッドGetCoverListを使用して、テストでカバーされるすべての要件のリストを取得できます。次のようになります。

Set RequirementList = TestCase.GetCoverList
于 2016-10-25T07:05:48.163 に答える