编写图片空间QTP脚本时的一点经验-自动化测试
更新时间:2022-05-26 09:09:28 作者:多测师 浏览:213
我录制QTP脚本的思路是让能跑起来的都跑起来,不能跑起来的暂时不管,同时先采取固化脚本的思路写脚本(详细),完成后再加入参数化,让脚本灵活起来!呵呵!以下是我编写图片空间时的一点经验!
经验1:用FireEvent方法处理TOP菜单中弹出的子菜单
Browser(”淘宝网-店铺管理平台“).Page(”淘宝网-店铺管理平台“).Link(”素材管理(1)”).Click
Browser(”淘宝网-店铺管理平台“).Page(”淘宝网-店铺管理平台“).Link(”图片空间“).Click
我在编辑用鼠标点击TOP菜单时,发现脚本在运行时,不稳定,有时能捕捉到子菜单,有时又不能捕捉到子菜单,后加上FireEvent方法:
browser(”淘宝网-店铺管理平台“).Page(”淘宝网-店铺管理平台“).Link(”素材管理(1)”).FireEvent “onmouseup”
Browser(”淘宝网-店铺管理平台“).Page(”淘宝网-店铺管理平台“).Link(”图片空间“).Click
这时每次运行脚本时,都能捕捉到子菜单了。
经验2:通过对象唯一性确认页面访问对象
需要校验图片分类下图片的数量,思路是将页面显示的数目与数据库中查询的数据进行对比,但此时不能直接读取有图片数量的对象,因为此对象不具有“唯一性”,它属于动态生成的对象。改变校验思路是先取得页面中具有“唯一性”对象图片分类DESC对象(系统中图片分类是具有唯一性),然后通过DOM对象取得图片数量的INFO对象。
set my_obj=browser(”图片空间“).Page(”图片空间“).Link(”宝贝图片“).Object
set my_b_info=my_obj.parentnode.nextSibling
然后取得有图片分类下图片数据:
tx=my_b_info.outertext
‘msgbox “a” + tx + “b” 用来校验是否有空格
text=left(tx,len(tx)-4)
‘text=text+0
‘msgbox IsNumeric(text)
经验3:通过CURRENTSYTLE判别LINK对象可用性
提供两种思路:
第一种方式:
V=strcomp(browser(”图片空间“).Page(”图片空间“).Link(”name:=下移“,”index:=5″).GetROProperty(”class”), “move-down J_TagMoveDown no-move-down”,1)
If v=0 Then
reporter.ReportEvent micPass,”pass”,”提示成功“
else
reporter.ReportEvent micFail,”fail”,”提示失败“
End If
第二种方式:
set my_obj =browser(”图片空间“).Page(”图片空间“).Link(”name:=下移“,”index:=5″).object
x= my_obj.currentstyle.getattribute(”cursor”)
y=”not-allowed”
v=strcomp(x,y,1)
If v=0 Then
reporter.ReportEvent micPass,”pass”,”提示成功“
else
reporter.ReportEvent micFail,”fail”,”提示失败“
End If
经验4:通过DESCRIPTION访问对象库中同一对象运行时动态对象中静态提示文本
在页面中经常出现的DIALOG对象,在同一页面中可能会出现很多不同的DIALOG,但是读取对象时只有一个对象,但是其中静态文本,却是动态生成的,不同的操作对应不同的提示,此时通过:Static(”text:=图片标题不能超过50字符“).Exist语句判断系统是否成功操作!
Set MyDescription = Description.Create()
MyDescription(”text”).Value = “此分类为系统分类,不可删除。"
在这里的VALUE我们可以根据不同的对话框设置不同的静态文本:
If browser(”图片空间“).Dialog(”Windows Internet Explorer”).Static(MyDescription).Exist then
reporter.ReportEvent micPass,”pass”,”删除系统分类时提示成功“
browser(”图片空间“).Dialog(”Windows Internet Explorer”).WinButton(”确定“).Click
else
reporter.ReportEvent micFail,”fail”,”删除系统分类时提示失败“
End If
Set MyDescription = Nothing
也可以采取这种方式:
If browser(”图片空间“).Dialog(”Windows Internet Explorer”).Static(”text:=图片标题不能超过50字符“).Exist Then
reporter.ReportEvent micPass,”pass”,”图片标题不能超过50字符提示成功“
browser(”图片空间“).Dialog(”Windows Internet Explorer”).WinButton(”确定“).Click
else
reporter.ReportEvent micFail,”fail”,”图片标题不能超过50字符提示失败“
End If
以上内容为大家介绍了自动化测试中的编写图片空间QTP脚本时的一点经验,本文由多测师亲自撰写,希望对大家有所帮助。了解更多自动化测试相关知识:https://www.aichudan.com/xwzx/