51Testing软件测试论坛

标题: 为什么我的登录测试脚本运行时提示不支持对象'reporter.ReportEvent1' [打印本页]

作者: piaolingyan 时间: 2010-4-8 10:18
标题: 为什么我的登录测试脚本运行时提示不支持对象'reporter.ReportEvent1'
我写了个登录测试的脚本，不需要验证码的，可是运行的时候第一次到for语句后就停了，后面再run就继续，运行到【 reporter.ReportEvent1, "管理系统登录",  "预期值为:"+ istatus +",  实际输出值为:"+outputvalue】，到这边停止了提示 “对象不支持此属性或方法: 'reporter.ReportEvent1'”，跳过后，还是不会自动读取表中的下一行数据。。。。请帮忙指导下啥问题？qtp9.2版本的
脚本如下：
Dim i '定义行号；

Dim outputvalue '读取系统输出的实际提示信息的变量；
Dim istatus '读取系统输出的预期提示信息的变量；

For i=1 to datatable.GetSheet("Action1").getrowcount

Browser("管理系统登录").Page("管理系统登录").WebEdit("j_username").Set DataTable("username", dtLocalSheet)
Browser("管理系统登录").Page("管理系统登录").WebEdit("j_password").SetSecure DataTable("password", dtLocalSheet)
Browser("管理系统登录").Page("管理系统登录").WebButton("WebButton").Click
Browser("管理系统登录").Page("管理系统登录").Output CheckPoint("管理系统登录")'插入文本的输出点；
outputvalue=datatable("outmsg",dtlocalsheet )  ' 将实际输出值赋予本地表outputvalue变量；
istatus=datatable("status",dtlocalsheet) '将预期输出值赋予本地表outputvalue变量；
If outputvalue <> istatus Then
  reporter.ReportEvent1, "管理系统登录",  "预期值为:"+ istatus +",  实际输出值为:"+outputvalue
End If
datatable.GetSheet("Action1").setnextrow '获取action1中的下一行数据；
Next
Browser("管理系统登录").Page("欢迎进入管理页面").Frame("topFrame").Link("[退出]").Click
Browser("管理系统登录").Page("管理系统登录_2").Sync
Browser("管理系统登录").Close

[ 本帖最后由 piaolingyan 于 2010-4-8 16:51 编辑 ]

作者: feiyunkai 时间: 2010-4-8 10:35
标题: ReportEvent1的1前面没加空格
reporter.ReportEvent1修改为：reporter.ReportEvent 1就可以了

作者: piaolingyan 时间: 2010-4-8 11:00
标题: 回复 2# 的帖子

太感谢了，可以了，晕倒。。。居然被一个空格折腾了半天。哎。

作者: yujie6832 时间: 2010-4-8 15:47
呵呵，新人很多都犯这个错误

作者: zrg9399 时间: 2010-4-8 17:02
熟人多多呀

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)