|
3#
楼主 |
发表于 2012-11-2 16:42:52
|
只看该作者
Dim i'定义行号
Dim outputvalue'定义读取系统实际提示信息的变量
Dim istatus'定义读取系统预期提示信息的变量
For i = 1 to datatable.GetSheet("Action1").GetRowCount
Browser("51Testing软件测试网-中国软件测试人的精神家园").Page("登录站点-中国软件测试人的精神家园").WebEdit("username").Set DataTable("username", dtLocalSheet)
Browser("51Testing软件测试网-中国软件测试人的精神家园").Page("登录站点-中国软件测试人的精神家园").WebEdit("password").SetSecure DataTable("password", dtLocalSheet)
Browser("51Testing软件测试网-中国软件测试人的精神家园").Page("登录站点-中国软件测试人的精神家园").WebButton("登录").Click
Browser("51Testing软件测试网-中国软件测试人的精神家园").Page("提示消息 - Powered by SupeSite").Output CheckPoint("提示消息 - Powered by SupeSite_3")
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'获取下一行数据
'Browser("51Testing软件测试网-中国软件测试人的精神家园").Page("提示消息 - Powered by SupeSite").Link("确定").Click
Browser("51Testing软件测试网-中国软件测试人的精神家园").Page("登录站点-中国软件测试人的精神家园").Sync
Next
'返回到登录界面
Browser("51Testing软件测试网-中国软件测试人的精神家园").CloseAllTabs
以上是原脚本代码 |
|