所以,我正在慢慢地使用OTA在ALM中自动化一个痛苦的手动过程。我目前的努力是删除测试集。它只是没有做任何事情 - 没有错误,没有删除,没有。这就像代码行甚至没有。虽然,它确实在做一些事情,因为ALM现在正在运作时髦。
我尝试过不同的东西:Delete,RemoveNode。任何建议表示赞赏。
Set qcConnection = QCutil.QCConnection
Set tsFolder = qcconnection.TestSetTreeManager.NodeById(224)
Set tstestList = tsFolder.FindTestSets("", False, "")
If tstestList is Nothing Then
print "No manual tests present", vbOK
Else
For i = 1 to tstestList.Count
Set temp = tstestList.Item(i)
if temp.TestSetFolder.father.name = strMonth then
qcconnection.TSTestFactory.RemoveItem(temp.id)
end if
Next
End If
看来你使用了错误的工厂 - 你需要使用TestSetFactory
而不是TSTestFactory