报告优化 - 51Testing软件测试论坛

'检查点
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

复制代码