2016-06-27 25 views
0

我想从测试集的执行网格打开缺陷窗口当“TC_STATUS”是“失败”从Excecution电网新缺陷时,状态变为失败

下面的代码似乎只有当我执行工作“全” 跑

Actions.Action("Defects.NewDefect").Execute 

Actions.Action("StepsView.NewDefect").Execute 

我已经尝试过:

Actions.Action("TestSetView.NewDefect").Execute  

但这无助

回答

0

您可以发布新的缺陷每次自动测试实例状态发生改变并把这个新的缺陷,以目前选定的测试实例。

在测试实验室模块脚本流程把这个代码:

Sub TestSetTests_FieldChange(FieldName) 
On Error Resume Next 

If FieldName = "TC_STATUS" and TestSetTest_Fields.Field("TC_STATUS").Value = "Failed" Then 
    Set BugFact = TDConnection.BugFactory 
    Set NewBug = BugFact.AddItem(null) 
    'Fill new defect fields 
    NewBug.Summary = "New Defect" 
    NewBug.Field("BG_SEVERITY") = "3-High" 
    NewBug.Field("BG_STATUS") = "New" 
    NewBug.Field("BG_DETECTION_DATE") = "2016-01-01" 
    '... 
    NewBug.Post() 

    TestInstanceId = TestSetTest_Fields.Field("TC_TESTCYCL_ID").Value 
    Set TestInstanceFact = TDConnection.TSTestFactory 
    Set TestInstance = TestInstanceFact.Item(TestInstanceId) 

    Set NewBugLinkFact = TestInstance.BugLinkFactory 
    Set NewBugLink = NewBugLinkFact.AddItem(null) 
    NewBugLink.TargetEntity = NewBug 
    NewBugLink.Post 
End If 

On Error GoTo 0 
End Sub 

或者,如果你与ALM 12.53工作,你可以尝试在执行从所有模块桅顶“新缺陷”的行动。

Actions.Action("HeaderActions.HeaderNewDefect").Execute 
相关问题