编写图片空间QTP脚本时的一点经验-自动化测试

　　我录制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/