Quality Center 用例模板配置
上一篇 /
下一篇 2014-12-19 14:31:51
/ 个人分类:测试人生
Function Test_CanDelete(Entity,IsTest)
On Error Resume Next
Test_CanDelete = DefaultRes
On Error GoTo 0
End Function
Function Test_CanPost
On Error Resume Next
Test_CanPost = DefaultRes
On Error GoTo 0
End Function
Sub Test_FieldChange(FieldName)
On Error Resume Next
On Error GoTo 0
End Sub
Function Test_FieldCanChange(FieldName, NewValue)
On Error Resume Next
Test_FieldCanChange = DefaultRes
On Error GoTo 0
End Function
Sub Test_MoveTo
On Error Resume Next
On Error GoTo 0
End Sub
Sub Test_New
On Error Resume Next
Dim Template
Template = "<html><body>"
Template = "<html><body>"
Template = Template & "<font color=""#000080""><b>[测试目的]</b></font><br>"
Template = Template & "<font color=""#000080""><b>[前置条件]</b></font><br>"
Template = Template & " 数据准备<br>"
Template = Template & " 无<br>"
Template = Template & "<font color=""#000080""><b>[测试步骤]:</b></font>"
Template = Template & "--请写至测试步骤中<br>"
Template = Template & "<font color=""#000080""><b>[预期结果]:</b></font>"
Template = Template & "--请写至测试步骤中<br>"
Template = Template & "</body></html>"
Test_Fields("TS_DESCRIPTION").Value = Template
On Error GoTo 0
End Sub
Sub DesignStep_FieldChange(FieldName)
On Error Resume Next
On Error GoTo 0
End Sub
Function DesignStep_FieldCanChange(FieldName, NewValue)
On Error Resume Next
DesignStep_FieldCanChange = DefaultRes
On Error GoTo 0
End Function
Sub DesignStep_MoveTo
On Error Resume Next
On Error GoTo 0
End Sub
Sub DesignStep_New
On Error Resume Next
On Error GoTo 0
End Sub
收藏
举报
TAG: