QTp脚本 把结果输出到测试报告的方法

在调试脚本的过程中遇到了个问题...

判断某个单选框是否被选中

第一步先要找出你要判断哪个单选框,通过webradiogroup的value值来判断

v=Browser("编辑个人资料").Page("编辑个人资料").WebRadioGroup("_fmf.edit._0.si").GetROProperty("value")
If  v=3 Then
a=Browser("编辑个人资料").Page("编辑个人资料").WebRadioGroup("_fmf.edit._0.si").GetROProperty("checked")
  'If a=1 Then
   Reporter.ReportEvent 0, "单选框被选中", "The user-defined step pass."
   end if '
else if v<>3 then
   Reporter.ReportEvent 1, "单选框未被选中", "The user-defined step pass."
  End If
  End If

如果取出来的value值不等于3 其实就是说这个单选框没被选中 就输出报告

中间注释掉的语句其实可以不用写的 因为qtp只能找到被选中的那个单选框的value,如果这个单选框没被选中.qtp自然也是找不到的 (这个也是调试脚本发现的结论..)

if这些个判断因为不能在测试报告中反应出来是成功了还是失败了.所以可以把这个结果输出到测试报告中.

方法:

在test result中报告测试结果。

语法

Reporter.ReportEvent EventStatus, ReportStepName, Details [, in]

 Argument  Type  Descrīption
 EventStatus  Number or pre-defined constant
状态值:

0 或 micPass:将本步骤的运行结果状态设置为“Pass”，并向Result中产生报告信息。

如果想在报告中生成“通过”报告，用本状态值。

1 或 micFail: 将本步骤的运行结果状态设置为“Fail”，并向Result中产生报告信息。当脚本中运行本语句时，整个测试的结果状态是“fails”。

如果想在报告中生成“失败”报告，用本状态值。如果运行了本语句，则整个测试的状态为“Fail”。

2 或 micDone:仅向Result中产生报告信息，但不影响整个测试的结果状态。

如果想在报告中生成“完成”报告，用本状态值。

3 或 micWarning: S向Result中产生报告信息，但是不会中断测试的运行，也不影响测试的 pass
/fail status。

如果想在报告中生成“警告”报告，用本状态值。运行这个语句后，整个测试结果状态为“Warning”。
 
 ReportStepName  String 将在报告中显示的步骤名称(object name). 
 Details  String 报告的详细信息。这些信息是本条报告的“Details”信息。
 in  N/A  Not in use

举例： 下面的例子使用ReprotEvent方法来报告一个失败信息。

Reporter.ReportEvent 1, "Custom Step", "The user-defined step failed."