51Testing软件测试论坛

标题: 大家帮我看一下 [打印本页]

作者: apple69 时间: 2007-4-6 11:15
标题: 大家帮我看一下
如果用ROBOT结合DATAPOOL，做验证登录的测试，如果密码正确，则关闭系统，提示用例通过，如何跑下一组用户名和密码，用户名和密码错误，提示密码错误，但是用例正确，
'$Include "sqautil.sbh"

Sub Main
Dim Result As Integer
dim dp as long

dim i as integer

dim strName as String
dim strPassWord as string
'Initially Recorded: 2007-3-29  10:44:03
'Script Name: datapool
StartApplication """xxx.exe"""

dp=SQADatapoolOpen("dp1")' dp1为DATAPOOL的名称,循环读datapool的数据'
for i=1 to 3
   call SQADatapoolFetch(dp)
   call SQADatapoolValue(dp,1,strName)

   call SQADatapoolValue(dp,2,strPassword)



InputKeys strName
inputKeys "{ENTER}"
Inputkeys strPassword
InputKeys "{ENTER}"

Result = WindowVP (Exists, "Class=#32770;Level=6", "VP=Window Existence")'验证出现密码错误的对话框
if result=1 then
msgbox "密码不正确，但是用例正确"
Window SetContext, "Class=#32770;Level=6", ""
InputKeys "{ENTER}"
else

msgbox "密码正确，进入系统，通过测试"

Window SetContext, "Type=Form;Name=FrmLogOff", ""
PushButton Click, "Type=PushButton;Name=btnOK"
'关闭系统

end if
next
call SQADatapoolClose(dp)

end sub
大家帮我看一下有流程对吗？需要那些完善的地方，谢谢

作者: ruisnow 时间: 2007-4-6 15:19
楼主的程序调试过了么？

call SQADatapoolValue(dp,2,strPassword)



InputKeys strName
inputKeys "{ENTER}"

inputkeys 前也没有指定是对哪个控件进行输入？

作者: apple69 时间: 2007-4-6 15:51
调试过的，前面已经启动了登录窗口的，会自动的输入的呀。没有语法错误，但是流程好像不对

作者: ilovejolly 时间: 2007-4-11 16:49
先把流程用文字写出来,然后翻译成代码,就很清晰了

作者: apple69 时间: 2007-4-12 14:20
标题: 流程
我想实现的流程就是测试用户登录，循环的度DATAPOOL的数据，如果登录成功，提示正确，进入系统，然后关闭要进入的主页，继续读datapool的下行，密码失败提示密码或这用户名错误，接着走datapool的下行。，
版主帮一下忙呀，我这个代码哪写的不对

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