|
- '检查点
- Browser("百度一下,你就知道").Page("百度一下,你就知道").WebEdit("wd").Check CheckPoint("wd")
- Browser("百度一下,你就知道").Page("百度一下,你就知道").WebButton("百度一下").Check CheckPoint("百度一下")
- '手工代码
- Dim wd_value,wd_name,wd_type,wd_visible
- Dim bt_name,bt_type,bt_visible
- wd_value=Browser("百度一下,你就知道").Page("百度一下,你就知道").WebEdit("wd").GetROProperty("value")
- wd_name=Browser("百度一下,你就知道").Page("百度一下,你就知道").WebEdit("wd").GetROProperty("name")
- wd_type=Browser("百度一下,你就知道").Page("百度一下,你就知道").WebEdit("wd").GetROProperty("type")
- wd_visible=Browser("百度一下,你就知道").Page("百度一下,你就知道").WebEdit("wd").GetROProperty("visible")
- If wd_value="" Then
- Reporter.ReportEvent micPass,"默认值","期望为空,实际为:" & wd_value
- else
- Reporter.ReportEvent micFail,"默认值","期望为空,实际为:" & wd_value
- End If
- If wd_name="wd"Then
- Reporter.ReportEvent micPass,"名称","期望为wd,实际为:" & wd_name
- else
- Reporter.ReportEvent micFail,"名称","期望为wd,实际为:" & wd_name
- End If
- If wd_type="text" Then
- Reporter.ReportEvent micPass,"类型","期望为text,实际为:" & wd_type
- else
- Reporter.ReportEvent micFail,"类型","期望为text,实际为:" & wd_type
- End If
- If wd_visible=true Then
- Reporter.ReportEvent micPass,"状态","期望为可用,实际为:" & wd_visible
- else
- Reporter.ReportEvent micFail,"状态","期望为可用,实际为:" & wd_visible
- End If
- bt_name=Browser("百度一下,你就知道").Page("百度一下,你就知道").WebButton("百度一下").GetROProperty("name")
- bt_type=Browser("百度一下,你就知道").Page("百度一下,你就知道").WebButton("百度一下").GetROProperty("type")
- bt_visible=Browser("百度一下,你就知道").Page("百度一下,你就知道").WebButton("百度一下").GetROProperty("visible")
- If bt_name="百度一下" Then
- Reporter.ReportEvent micPass,"名称","期望为百度一下,实际为:" & bt_name
- else
- Reporter.ReportEvent micFail,"名称","期望为百度一下,实际为:" & bt_name
- End If
- If bt_type="submit" Then
- Reporter.ReportEvent micPass,"类型","期望为submit,实际为:" & bt_type
- else
- Reporter.ReportEvent micFail,"类型","期望为submit,实际为:" & bt_type
- End If
- If bt_visible=true Then
- Reporter.ReportEvent micPass,"状态","期望为可用,实际为:" & bt_visible
- else
- Reporter.ReportEvent micFail,"状态","期望为可用,实际为:" & bt_visible
- End If
复制代码
前面2句是用QTP的标准检查点来做的,后面是自己写的代码,问题:
1.在QTP的标准检查点中是否可以自行配置各检查项呢?例如它是没有visible这项检查项,是否在哪能将此添加进行?
2.报告显示问题:
能否在自己写的代码生成的报告中也能象检查点生成的报告那样,以不同的图标来显示不同类型的对象;
树状结构,自己写的代码生成的报告中能否像“wd“的检查点生成的报告一样将4项做为一个结果来显示;另外在显示的层次结构上是否也可向检查生成的报告那样呢?
请大家帮忙看一下,如果可能的话请大家指教一下如何改。谢谢! |
|