多测师是一家拥有先进的教学理念,强大的师资团队,业内好评甚多的接口自动化测试培训机构!

17727591462

联系电话

您现在所在位置:接口自动化测试培训 > 新闻资讯

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

更新时间:2022-05-26 09:09:28 作者:多测师 浏览:213

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

联系电话

17727591462

返回顶部