|
在脚本回放过程中报这样错误:
缺少对象: '[string: "outmsg"]'
Line (13): "outputvalue=datatable("outmsg".dtlocalsheet)'将实际输出值赋予变量outputvalue".
脚本如下:
Dim i'定义行号
Dim outputvalue'定义读取系统实际操作的提示信息
Dim istatus'定义读取系统预期操作的提示信息
For i = 1 to datatable.GetSheet("Action1").GetRowCount
Browser("人人网,中国领先的实名制SNS社交网络。加入人人网,找到老同").Page("人人网,中国领先的实名制SNS社交网络。加入人人网,找到老同").WebEdit("email").Set DataTable("username", dtLocalSheet)
Browser("人人网,中国领先的实名制SNS社交网络。加入人人网,找到老同").Page("人人网,中国领先的实名制SNS社交网络。加入人人网,找到老同").WebEdit("password").SetSecure DataTable("password", dtLocalSheet)
Browser("人人网,中国领先的实名制SNS社交网络。加入人人网,找到老同").Page("人人网,中国领先的实名制SNS社交网络。加入人人网,找到老同").WebButton("登录人人网").Click
Browser("人人网,中国领先的实名制SNS社交网络。加入人人网,找到老同").Page("人人网,中国领先的实名制SNS社交网络。加入人人网,找到老同").Output CheckPoint("人人网,中国领先的实名制SNS社交网络。加入人人网,找到老同")'插入文本输出点
outputvalue=datatable("outmsg".dtlocalsheet)'将实际输出值赋予变量outputvalue
istatus=datatable("status".dtlocalsheet)'将预期输出值赋予变量istatus
If outputvalue<>istatus Then
reporter.ReportEvent 1,"登录功能测试"," 预期值为:"+istatus+" ,实际值为"+outputvalue
End If
datatable.GetSheet("Action1").SetNextRow'获取Action1的下一行数据
Next
'进入系统
Browser("人人网,中国领先的实名制SNS社交网络。加入人人网,找到老同").Page("人人网 - 江子").Link("退出").Click |
|