Выполнение тестовых примеров в alm из Excel с помощью тестового идентификатора

Question

Я пытаюсь выполнить тестовые примеры в QC ALM с помощью макроса Excel. Я могу получить доступ к тестам в тестовом списке, но я не могу найти конкретный тестовый пример, который мне нужно выполнить по его идентификатору.

Ниже приведен пример кода, я использую:

Set tsTreeMgr = tdConnection.testsettreemanager 
Set tsFolder = tsTreeMgr.NodeByPath(nPath) 
' --Search for the test set passed as an argument to the example code 
Set tsList = tsFolder.FindTestSets("Test Set Name") 

'------Accessing the Test Cases inside the Test SEt ---- 

Set theTestSet = tsList.Item(1) 
For Each testsetfound In tsList 
    Set tsFolder = testsetfound.TestSetFolder 
    Set tsTestFactory = testsetfound.tsTestFactory 
    Set tsTestList = tsTestFactory.NewList("") 

    For Each tsTest In tsTestList 
     MsgBox (tsTest.Name+","+ tsTest.ID) 
     testrunname = "Test Case name from excel sheet" 
     '----Accesssing the Run Factory --- 
     Set RunFactory = tsTest.RunFactory 
     Set obj_theRun = RunFactory.AddItem(CStr(testrunname)) 
     obj_theRun.Status = "Passed" 
     obj_theRun.Post 
    Next 
Next 

Любая помощь, чтобы получить TestCase в testset в тестовой лаборатории для выполнения будет большим подспорьем.

Answer 1

Я думаю, что вы ищете свойство TestId объекта TSTest. Таким образом, в цикле можно просто проверить, соответствует ли TestID значения из Excel:

If tsTest.TestId = testidfromexcel Then 
    ' do something 
End If 

Или вы можете использовать фильтр, чтобы получить только TSTest экземпляров из вашего теста набора, который соответствует соответствующему идентификатору теста из Excel:

Set testSetFilter = tsTestFactory.Filter 
testSetFilter.Filter("TC_TEST_ID") = testidfromexcel 
Set tsTestList = testSetFilter.NewList() 

Теперь ваш tsTestList должен содержать только тестовые экземпляры из теста с идентификатором из Excel.